Funcion en asp

[Jhon Silver]

Tengo la siguiente funcion en asp

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function

Esta funcion recoge los datos de un formulario a traves del contenedor
<%= AcomodarTXT(mensaje)%> e insertados en la .mdb
Estos son visualizados a traves de un fichero que lee la base de datos.
En este momento la visualizacion es texto plano, las urls no son activas.
¿Como podria modificar la funcion para que los enlaces aparezcan activos y con nofollow?

[alpe2000]

No entiendo que tiene que ver la funcion con crear un enlace y que este sea o no nofollow

¿Podrías explicarlo mejor?

[Jhon Silver]

Iniciado por alpe2000

No entiendo que tiene que ver la funcion con crear un enlace y que este sea o no nofollow

¿Podrías explicarlo mejor?

La funcion acomoda el texto plano (una url www.miweb.com permaneceria inactiva). Y hacer que los enlaces sean nofollow para que estos no sean validos para buscadores
La idea es si a traves de expresiones regulares se podria modificar la funcion

[alpe2000]

Sigo sin entender lo que quieres hacer... según lo que yo veo, la función que has puesto lo que hace es reemplazar ciertos caracteres.

Si lo que quieres es crear una url, tendras que decirselo.

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
AcomodarTXT = "<a href='http://" & txt & "' >texto</a>"
End function