<%
'Fonction : Equivalent à la mise à niveau de HTMLEncode2. Pas besoin de boucler la chaîne entière.
'Source : http://www.downcodes.com/536459.html
Fonction BHTML(s)
BHTML = BStr(s)
BHTML = Serveur.HTMLEncode(BHTML)
BHTML = Remplacer(BHTML, " ", " ")
BHTML = Remplacer(BHTML, " ", " ")
BHTML = Remplacer(BHTML, vbCr, "<br />")
BHTML = Remplacer(BHTML, vbLf, "<br />")
BHTML = Remplacer(BHTML, vbTab, " ")
Fonction de fin
%>