Yo uso esta funcioncita en mis proyectos:
Primero crea un array con las palabras a buscar (arrBusqueda).
StringAMostrar es donde quieres resaltar las palabras; puede ser un campo "Descripcion" o "Nombre" de una base de datos
Código:
arrBusqueda = split(strBusqueda," ")
StringAMostrar = rsBusqueda("nombre")
Dim pos
Dim FndPos
pos = 1
FndPos = 1
For z = 0 To UBound(arrBusqueda)
FndPos = instr(1, StringAMostrar, arrBusqueda(z),1)
Do While FndPos<>0
str = Mid(StringAMostrar, 1, (FndPos-1)+len(arrBusqueda(z)))
newstr = Mid(str, 1, FndPos - 1) & "<span style=background:yellow;font-weight:bold>" & Mid(str, FndPos, len(arrBusqueda(z))) & "</span>"
StringAMostrar = replace(StringAMostrar, str, newstr)
pos = FndPos+len(arrBusqueda(z)) + 47
FndPos = instr(pos, StringAMostrar, arrBusqueda(z),1)
Loop
Next
Response.Write(StringAMostrar)
Saludos!
