ASP commonly used functions: BHTML()

<%
'Function: Equivalent to the upgrade of HTMLEncode2. No need to loop the entire string.
'Source: http://www.downcodes.com/536459.html

Function BHTML(s)
BHTML = BStr(s)
BHTML = Server.HTMLEncode(BHTML)
BHTML = Replace(BHTML, " ", " ")
BHTML = Replace(BHTML, " ", " ")
BHTML = Replace(BHTML, vbCr, "<br />")
BHTML = Replace(BHTML, vbLf, "<br />")
BHTML = Replace(BHTML, vbTab, " ")
End Function
%>