que interesante esta ese pequeño codigo, en mi caso utilizo un similar a eso
Cita: buscar=request.Form("searchFor")
reemplazo="<strong><em>"&buscar&"</em></strong>"
realizo la busqueda y al escribir
Cita: texto=lcase(RS("titulo").value)
texto=replace(texto,lcase(buscar),lcase(reemplazo) )
aunque fijandome un poco en el mio, desperdicio tiempo en la busqueda.... ya que uso 3 variables.... lo bueno que es para intranet y no importa mucho... pero si vale mas la pena implementarlo bien
