Bueno, aqui esta el resultado para MRGUBU, utiliza esto:
Código:
<%
Function Cambia(ElTexto,LaBusqueda)
Dim Expresion, Patron
Set Expresion= New RegExp
Expresion.Pattern = ("((\S+\s+){0,5})("&LaBusqueda&"[\.,:;]*)((\s+\S+){0,5})")
Expresion.IgnoreCase = True
Expresion.Global = True
Set Matches=Expresion.Execute(ElTexto)
For Each Match in Matches
ElResultado = ElResultado& "..."& Match.Value & "... <br>"
Next
Cambia = ElResultado
End Function
Dim Texto
Texto="El Tren: Muchos perros han caminado por este sendero triste y desolado, donde el tren pasa todas las mañanas haciendo un ruido insoportable que despierta hasta a don José, el simple sonido de el tren"
Response.write (Cambia(Texto,"tren"))
%>
Como podras darte cuenta, si la función se encuentra varias veces la palabra en el mismo texto, te dará una linea para cada una de las coincidencias, si quieres que aparezcan todas en una linea, quitale el <br>...
Solo llama la funcion así: Response.write (Cambia("Aqui pon el texto que deseas revisar","aqui pones la palabra buscada"))
Saludos!!