<%
FunctionHTMLDecode(sText)
DimI
sText=Replace(sText,"&",Chr(38))
sText=Replace(sText,"""",Chr(34))
sText=Replace(sText,"<",Chr(60))
sText=Replace(sText,">",Chr(62))
sText=Replace(sText,"",Chr(32))
ForI=1To255
sText=Replace(sText,"&#"&I&";",Chr(I))
Next
HTMLDecode=sText
EndFunction
%>
