<%function HTMLEncode(fString)
	if not isnull(fString) then
	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = Replace(fString, CHR(32), "&nbsp;")
	fString = Replace(fString, CHR(9), "&nbsp;")
	fString = Replace(fString, CHR(34), "&quot;")
	fString = Replace(fString, CHR(39), "&#39;")
	fString = Replace(fString, vbCrLf & vbCrLf, "<P>")
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10), "<BR>")

	HTMLEncode = fString
	end if
end function
%>