<%
'Función: Equivalente a la actualización de HTMLEncode2. No es necesario repetir la cadena completa.
'Fuente: http://www.downcodes.com/536459.html
Función BHTML(s)
BHTML = BStr(es)
BHTML = Servidor.HTMLEncode(BHTML)
BHTML = Reemplazar(BHTML, " ", " ")
BHTML = Reemplazar(BHTML, " ", " ")
BHTML = Reemplazar(BHTML, vbCr, "<br />")
BHTML = Reemplazar(BHTML, vbLf, "<br />")
BHTML = Reemplazar (BHTML, vbTab, " ")
Función final
%>