knarfy... cópialo igualito y ejecutalo como test.asp.
es el mismo código que te puse anteriormente.... como te decia, me funciona perfectamente, lo único es que la cadena a buscar debe ser igual, quiero decir, que influye si tiene mayusuculas o ambas... pero eso lo puedes arreglar...
saludos
Código HTML:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>búsqueda</title>
</head>
<body style="font-family:Verdana, Arial, Helvetica, sans-serif; font-size:11px;">
<%
mensaje = "Knarfy, te comento que la funcion InStr viene con un metodo para hacer que distinga o no entre palabras minusculas o mayusculas. Debes poner "_
& "InStr(1, Cadena, Cadena_a_buscar, metodo) En donde 1 es la posicion en donde quieres que comienze la busqueda; Cadena, es el texto en donde quieres que busque; " _
& "Cadena_a_buscar, es la palabra que quieres que encuentre; método posee dos, el vbBinaryCompare (por defecto, distingue entre minusculas y mayusculas) y " _
& "vbTextCompare, que no distingue entre minusculas y mayusculas. Debes poner las constantes 0 y 1 respectivamente para que te funcione correctamente." _
& " Esepro que te haya servido de algo, por más que ya lo hayas solucionado, siempre es bueno saber otra forma de hacerlo.SAludos."
texto = request.Form("texto")
texto_split = split(texto, " ")
for I = 0 to ubound(texto_split)
mensaje = replace(mensaje, texto_split(I), "<strong><font color=#ff0000>" & texto_split(I) & "</font></strong>")
next
response.Write(mensaje)
%>
<form name="form1" method="post" action="test.asp">
<input type="text" name="texto">
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>