Resaltar palabras buscadas

[knarfy]

Ya he conseguido resaltar la palabra de búsqueda independientemente de si se busca en mayusculas o minúsculas.
Pongo todo loque he hecho para a ver si le sirve al alguien:


criterio=request.form("criterio") 'El criterio de búsqueda
SQL="Select * from mensajes where mensaje like '%"&criterio&"%'"
set rs=conn.execute(SQL)

'Busco dentro del campo mensaje la palabra buscada para saber la posición que ocupa en el mensaje
var1=instr(UCase(rs.fields("mensaje")),Ucase(crite rio))

'Le calculo la longitud
longi=len(criterio)

'Y ahora saco la palabra tal y como está en el mensaje original
var2=mid(rs.fields("Mensaje"),var1,longi)

'La mostramos por pantalla reemplazándola por la misma palabra en negrita y con color rojo
response.write replace(rs.fields("Mensaje"),var2,"<strong><font color=#ff0000>"&var2&"</font></strong>")



¿Qué os parece?