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 %>