<%
'Função: Equivalente à atualização do HTMLEncode2. Não há necessidade de repetir a string inteira.
'Fonte: http://www.downcodes.com/536459.html
Função BHTML(s)
BHTML = BStr(s)
BHTML = Servidor.HTMLEncode(BHTML)
BHTML = Substituir(BHTML, " ", " ")
BHTML = Substituir(BHTML, " ", " ")
BHTML = Substituir(BHTML, vbCr, "<br />")
BHTML = Substituir(BHTML, vbLf, "<br />")
BHTML = Substituir(BHTML, vbTab, " ")
Função final
%>