Função que faz o inverso da server.htmlEncode

[felipefrancesco]

Função que faz o inverso da server.htmlEncode, ou seja, substitui os caracteres codificados pelos seus respectivos caracteres.

Private Function HTMLDecode(byVal encodedstring)
    Dim tmp, i
    tmp = encodedstring
    tmp = Replace( tmp, "%20", " " )
    tmp = Replace( tmp, "%22",""""  )
    tmp = Replace( tmp, """, chr(34) )
    tmp = Replace( tmp, "<"  , chr(60) )
    tmp = Replace( tmp, ">"  , chr(62) )
    tmp = Replace( tmp, "&" , chr(38) )
    tmp = Replace( tmp, " ", chr(32) )
    For i = 1 to 255
         tmp = Replace( tmp, "&#" & i & ";", chr( i ) )
    Next
    HTMLDecode = tmp
End Function