<%

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

%>