[Resolvido] Erro de acentuação usando o MSXML2.ServerXMLHTTP

[LivroVirtual 0]

Estou fazendo uma página em ASP que capture o nome do livro e o autor através do site da biblioteca nacional. Assim conseguiremos catalogar os nossos livros. Para tanto, forneço o ISBN e recebendo os dados para incluir no banco de dados. A programação "básica" é esta abaixo.

 

O problema é que as informações estão vindo com acentuação errada por causa do charset ou do codepage do site. E eu preciso receber estas informações com a acentuação correta para incluir no banco e permitir pesquisa pelos usuários.

 

Tem alguma forma de converter ou de receber as informações corretamente?

 

Grato!

 

<%
Set Captura = Server.CreateObject("MSXML2.ServerXMLHTTP")
Link = "http://www.bn.br/site/pages/servicosProfissionais/agenciaISBN/isbnBusca/FbnBuscaISBNCatalogo.asp?pField=ISBN&pCDIDT=85&pISBN=73255706&RadioGroup1=isbn_13&hidbISBN=true"
Captura.Open "GET", Link, False
Captura.Send
Texto = Captura.ResponseText
Set Captura = Nothing
Response.Write Texto
%>

[Patrique 0]

velho de uma olhada nisso

 

http://codigofonte.uol.com.br/codigo/asp/diversos/solucao-do-problema-de-acentos-do-xmlhttp-da-microsoft

 

[]'s

[xanburzum 169]

olha esta funcaun tb...

 

 'Função fix Acentuação PT-BR
Protected Function fncFixAcento(ByVal sDec As String) As String
Dim objRE = New RegularExp​ressions.Regex
sDec = Replace(sDec, "+", " ")
objRE.Pattern = "%([0-9a-fA-F]{2})"
objRE.Global = True
fncFixAcento = objRE.Replace(sDec, GetRef("fncFixAcentoHex"))
End Function        '   
    'Função fix Acentuação PT-BR
Protected Function fncFixAcentoHex(ByVal sMatch, ByVal lhex_digits, ByVal lpos, ByVal ssource)
fncFixAcentoHex = Chr("&H" & lhex_digits)
End Function

[Patrique 0]

Xam não consegui usar a sua função, poderia me explicar como usa-la?

[Ted k' 126]

Isso está me parecendo vb.net patrique!

[LivroVirtual 0]

velho de uma olhada nisso

 

http://codigofonte.uol.com.br/codigo/asp/diversos/solucao-do-problema-de-acentos-do-xmlhttp-da-microsoft

 

[]'s

 

Patrique, valeu!!!

 

Sua solução funcionou perfeitamente!

 

Abraços!!!

[Patrique 0]

Beleza, que bom que funfou, aquela função é muito boa.

 

[]'s