marcussb

Sei que o tópico é antigo, porém, tente fazer um replace no meio dessas transações, trocando os acentos de acordo com a situação, isso pode ser que resolva, o saco é, fazer uma função para fazer esses replaces...

Tenho duas opções, tente primeiro um Server.HTMLEncode(texto), caso não funcione, tente as funções abaixo.

Function HTMLEspeciais(sString)
If (sString <> "") Then
sString = Replace(sString, "á", "&aacute;")
sString = Replace(sString, "â", "&acirc;")
sString = Replace(sString, "à", "&agrave;")
sString = Replace(sString, "ã", "&atilde;")

sString = Replace(sString, "ç", "&ccedil;")

sString = Replace(sString, "é", "&eacute;")
sString = Replace(sString, "ê", "&ecirc;")

sString = Replace(sString, "í", "&iacute;")

sString = Replace(sString, "ó", "&oacute;")
sString = Replace(sString, "ô", "&ocirc;")
sString = Replace(sString, "õ", "&otilde;")

sString = Replace(sString, "ú", "&uacute;")
sString = Replace(sString, "ü", "&uuml;")

sString = Replace(sString, "Á", "&Aacute;")
sString = Replace(sString, "Â", "&Acirc;")
sString = Replace(sString, "À", "&Agrave;")
sString = Replace(sString, "Ã", "&Atilde;")

sString = Replace(sString, "Ç", "&Ccedil;")

sString = Replace(sString, "É", "&Eacute;")
sString = Replace(sString, "Ê", "&Ecirc;")

sString = Replace(sString, "Í", "&Iacute;")

sString = Replace(sString, "Ó", "&Oacute;")
sString = Replace(sString, "Ô", "&Ocirc;")
sString = Replace(sString, "Õ", "&Otilde;")

sString = Replace(sString, "Ú", "&Uacute;")
sString = Replace(sString, "Ü", "&Uuml;")

sString = Replace(sString, """", "&quot;") '"
sString = Replace(sString, "<", "&lt;") '<
sString = Replace(sString, ">", "&gt;") '>
End If

HTMLEspeciais = sString
End Function

Function HTMLDecode(sText)
Dim I
sText = Replace(sText, "&quot;", Chr(34))
sText = Replace(sText, "&lt;" , Chr(60))
sText = Replace(sText, "&gt;" , Chr(62))
sText = Replace(sText, "&amp;" , Chr(38))
sText = Replace(sText, "&nbsp;", Chr(32))
For I = 1 to 255
sText = Replace(sText, "&#" & I & ";", Chr(I))
Next
HTMLDecode = sText
End Function

Espero poder ter ajudado