He combinado el método de Saruman con lo que hice yo para distinguir mayúsculas y minúsculas pero sigue resaltándome solamente la última palabra que hay en el campo criterio.
Aquí pongo el código para ver si se os puede ocurrir alguna idea, que esto me está matando:
Código:
texto=split(resalte," ")
for i=0 to ubound(texto)
var1=Instr(UCase(rs2.fields("mensaje")),Ucase(texto(i)))
longi=len(texto(i))
texto(i)=mid(rs2.fields("Mensaje"),var1,longi)
mensaje=replace(rs2.fields("Mensaje"),texto(i),"<strong><font color=#ff0000>"&texto(i)&"</font></strong>")
next
response.write mensaje