HTMLDecode Function:

The HTMLDecode function decodes an HTML encoded string back into the original html code.

Syntax:
string = HTMLDecode(encodedstring)
Example Usage: 
<%
 ' use the GetWebPage function to grab some html
 ' use the server.htmlencode method to encode it
 ' and finally, decode the encoded HTML back into
 ' code. If it works, you see the generated html of
 ' the web page.
%>
<%  =  HTMLDecode(  Server.HTMLEncode( _
	 GetWebPage( "http://www.yahoo.com/" )  )  )  %>
ASP Source Code: 
<%
Private Function HTMLDecode(byVal encodedstring)
	Dim tmp, i
	tmp = encodedstring
	tmp = Replace( tmp, "&quot;", chr(34) )
	tmp = Replace( tmp, "&lt;"  , chr(60) )
	tmp = Replace( tmp, "&gt;"  , chr(62) )
	tmp = Replace( tmp, "&amp;" , chr(38) )
	tmp = Replace( tmp, "&nbsp;", chr(32) )
	For i = 1 to 255
		tmp = Replace( tmp, "&#" & i & ";", chr( i ) )
	Next
	HTMLDecode = tmp
End Function
%>