<%
'--------------------------------HTMLDecode
Function HTMLDecode(reString)
	Dim Str:Str=reString
	If Not IsNull(Str) Then
		Str = Replace(Str, "&gt;", ">")
		Str = Replace(Str, "&lt;", "<")
		Str = Replace(Str, "&nbsp;", CHR(32))
		Str = Replace(Str, "&amp;", "&")
	    'Str = Replace(Str, "&nbsp;", CHR(9))
		Str = Replace(Str, "&#160;&#160;&#160;&#160;", CHR(9))
		'Str = Replace(Str, "&quot;", CHR(34))
		Str = Replace(Str, "&#39;", CHR(39))
		HTMLDecode = Str
	End If
End Function
'--------------------------------codeDeHTML
function codedeHTML(reString)
	Dim Str:Str=reString
	If Not IsNull(Str) Then
	'Str = Replace(Str, "&", "&amp;")
    Str = replace(Str, ">", "&gt;")
    Str = replace(Str, "<", "&lt;")
    Str = Replace(Str, CHR(32), "&nbsp;")
    Str = Replace(Str, CHR(9), "&nbsp;")
    Str = Replace(Str, CHR(34), "&quot;")
    Str = Replace(Str, CHR(39), "&#39;")
    codedeHTML =Str
    end if
end function
%>