Resaltar resultados en buscador.

[Juansan]

yo uso esta funcion:

Function resaltar(abuscar,encontrado)
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = encontrado
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(abuscar)
For Each Match in Matches
abuscar = replace(abuscar,Match.Value,"<font color=#0000cc>" & match.value & "</font>")
Next
resaltar = abuscar
End Function

debes definir que es abuscar y encontrado.

abuscar = rs.Fields("localidad")
encontrado = request("calle")

despues aplicas la funcion
Response.Write("<TD align=center>"&resaltar(abuscar,encont rado)&" </TD>")

Espero que te sirva y por favor avisame si funciono.