Uma das funçoes mais úteis no tratamento de strings que o ASP possui internamente é o HTMLEncode.
Infelizmente não foi incluído em seus objetos a função para desfazer essa codificação.
Abaixo segue a função que realiza esta operação e chega de brigar com códigos HTML codificados.
<%
'-----------------------------------------------------
'Function: HTMLDecode(ByVal EncodedString)
'Target: Decodes an HTML encoded string back into the original html code.
'Parameters: EncodedString
'Return: Boolean
'Author: Gabriel Froes - www.codigofonte.com.br
'-----------------------------------------------------
Function HTMLDecode(ByVal EncodedString)
'Declarations
Dim ret
Dim i
Dim fnum
'Decoding
ret = EncodedString
ret = Replace( ret, """, chr(34) )
ret = Replace( ret, "<" , chr(60) )
ret = Replace( ret, ">" , chr(62) )
ret = Replace( ret, "&" , chr(38) )
ret = Replace( ret, " ", chr(32) )
For i = 1 to 255
fnum = String(3 - Len(i), "0") & i
ret = Replace( ret, "&#" & fnum & ";", chr( i ) )
Next
'Return
HTMLDecode = ret
End Function
%>
