Acentuação no XML com ASP

[Hericnet 0]

Caros amigos,Possuo um arquivo ASP em um determinado URL (SITE), vou chamá-lo como arquivo A, esse arquivo ASP quando é executado retorna o seguinte resultado em formato XML:<?xml version="1.0" encoding="ISO-8859-1" ?> - <CIDADES> <CIDADE ID="272" NOME="São José do Rio Preto/SP" /> <CIDADE ID="371" NOME="São José dos Pinhais/PR" /> <CIDADE ID="10" NOME="São Paulo/SP" /> <CIDADE ID="350" NOME="Serra Negra/SP" /> <CIDADE ID="360" NOME="Sto Amaro Imperatriz/SC" /> <CIDADE ID="294" NOME="Teresina/PI" /> <CIDADE ID="295" NOME="Teresopolis/RJ" /> <CIDADE ID="331" NOME="Vitória/ES" /> <CIDADE ID="313" NOME="Volta Redonda/RJ" /> </CIDADES>Agora eu quero em um outro site (URL) resgatar os dados do arquivo A, ou seja, em um outro site vou chamar o arquivo A e resgatar seu resultado e montar um combobox.Estou utilizando o seguinte código no arquivo que vai resgatar as informações: Set ObjXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") strMetodo = "GET" strURL = "http://www.reservehoteis.com.br/par/mta_cidades.asp" ObjXmlHttp.open strMetodo, strURL, False 'Enviando a requisição ObjXmlHttp.send 'Pegando o Resultado ResultadoXML = TrocarAcentos(ObjXmlHttp.responseText) Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM") 'Setando as propriedades objXmlDom.async = False objXmlDom.resolveExternals = False objXmlDom.loadXML(ResultadoXML) Set NodeList = objXmlDom.getElementsByTagName("CIDADE") numNodes = NodeList.Length Set LastState = objXmlDom.documentElement.firstChild sAux = "<select name="&nomeTag&" class=""botao"">" For i = 1 To NumNodes Set RefAttr = LastState.getAttributeNode("ID") sId = RefAttr.value Set RefAttr = LastState.getAttributeNode("NOME") sNome = RefAttr.value sAux = sAux & "<option value="&sId&">"&sNome&"</option>" Set LastState = LastState.nextSibling Next sAux = sAux & "</select>" Response.write sAuxA página está apresentando o seguinte erro:Erro de tempo de execução do Microsoft VBScript error '800a01a8' Objeto necessário: 'objXmlDom.documentElement' /Default.asp, line 97 Mas se eu usar uma função para retitar os acentos no arquivo A (asp que gera o XML), o arquivo B funciona perfeitamente. Desde já agradeço a ajuda de todos,Grato,Heric

[m/ster 0]

Você pode mostrar essa função TrocarAcentos() ??

[jonsena 0]

Por incrível que pareça, e graças a ajuda PROVIDENCIAL de um cara daqui mesmo, resolvi o problema apenas salvando no bloco de notas o ASP em "Salvar Como" utf-8 ao inves do ANSI que é padrão... #@?$%~-que-pariu... era só isso!!!

 

Por incrível que pareça, e graças a ajuda PROVIDENCIAL de um cara daqui mesmo, resolvi o problema apenas salvando no bloco de notas o ASP em "Salvar Como" utf-8 ao inves do ANSI que é padrão... #@?$%~-que-pariu... era só isso!!!