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?