Hi.

I have a webpage that pulls some HTML from an access database. The tags (such as <, >, &...ect) are encoded to &lt;, &gt; ect..., and I need them decoded back so they display properly. I havn't the slightest idea how to do this. Any help?

Thanks.

replace(strData, ">",">")
replace(strData, "&lt;","<")

I get:

Microsoft VBScript compilation (0x800A0414)
Cannot use parentheses when calling a Sub

How can I fix that?

Thanks.

Set the replace up fully and correctly in the code that displays your data.
I only showed examples of how to use the replace function

If you only have two HTML entities to replace ( &gt; & &lt; ) then use nested replace functions.

 
response.write replace(replace(strData, "&gt;",">"), "&lt;","<")

The question I have is...why would you want to?

The whole point of HTML encoding tags is to ensure that those who have malicious intentions (e.g. malicious scripting) won't be able to pull those off.

And if they're stored in the database that way, then you've probably at some point had to encode them using Server.HTMLEncode. The easier thing to do is simply to remove that at the point which it's being called. Mind you, you're opening yourself up to some huge security stuff.

Don't see it a case of using HTML.Encode.

The page data is stored in the table with the tags stored as &lt:body&gt; (for example) so they will display as that, rather than be seen as HTML code and be parsed correctly by browsers.

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