Na internet encontramos centenas de funções para remover entities numéricas mas nenhuma que remova os entities especiais do HTML.
Muitas vezes ao utilizarmos XML o texto retornado vem com caracteres como ã, À, Ã, Ç, etc… e não há nenhuma função em ASP que converta esses caracteres.
Function HTMLRemoveEntities(ByVal encodedstring) HTMLRemoveEntities= encodedstring dim strEntities, Entitie, n, charEntitie, entitieSymbol strEntities = """" && ÁÁ áá ´´ ÀÀ àà ÃÃ ãã ÇÇ çç ÉÉ éé ÊÊ êê ÍÍ íí ÑÑ ññ ÓÓ óó ÔÔ ôô ÕÕ õõ ÚÚ úú ÜÜ üü" Entitie = split(strEntities, " ") for n = 0 to ubound(Entitie) entitieSymbol = left(Entitie(n), len(Entitie(n)) - 1) charEntitie = right(Entitie(n), 1) HTMLRemoveEntities = replace(HTMLRemoveEntities, entitieSymbol, charEntitie, 1, -1, 0) Next End function ' para chamar utilize: ' Response.Write HTMLRemoveEntities("Chitãozinho e Xororó")