Lendo um documento XML através do Asp

Arquivo internet.xml (exemplo) Arquivo: internet.xml(exemplo) <?xml version="1.0" encoding="ISO-8859-1" ?> <Internet> <Opcoes> WEB - E-MAIL - VOZ <Locaweb> <Opcao>Hospedagem de Sites</Opcao> </Locaweb> <LocaMail> <Opcao>Solucao para E-mails</Opcao> </LocaMail> <LocaVoz> <Opcao>Portal de Voz</Opcao> </LocaVoz> </Opcoes> </Internet> Lendo o documento internet.xml No exemplo abaixo, iremos extrair só os elementos filhos que nos interessam. Para melhor entendimento, seria útil se você tivesse à mão o documento XML internet.xml: <% 'Instancia o objeto XMLDOM. Set objXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")   'Indicamos que o download em segundo plano não é permitido objXMLDoc.async = False   'Carrega o domcumento XML objXMLDoc.load("e:\home\LoginFTP\Web\internet.xml")   'Carrega o domcumento XML 'Para quem possui serviço de REVENDA, utilize este caminho 'objXMLDoc.load("E:\vhosts\DOMINIO_COMPLETO\httpdocs\internet.xml")   'O método parseError contém informações sobre o último erro ocorrido if objXMLDoc.parseError <> 0 then   response.write "Código do erro: " & objXMLDoc.parseError.errorCode & "<br>" response.write "Posição no arquivo: " & objXMLDoc.parseError.filepos & "<br>" response.write "Linha: " & objXMLDoc.parseError.line & "<br>" response.write "Posição na linha: " & objXMLDoc.parseError.linepos & "<br>" response.write "Descrição: " & objXMLDoc.parseError.reason & "<br>" response.write "Texto que causa o erro: " & objXMLDoc.parseError.srcText & "<br>" response.write "Url do arquivo com problemas: " & objXMLDoc.parseError.url   else   'A propriedade documentElement refere-se à raiz do documento Set raiz = objXMLDoc.documentElement   'Looping para percorrer todos os elementos filhos For i = 0 to raiz.childNodes.length -1   'A propriedade NodeName contém o nome do elemento 'A propriedade childNodes contém a lista de 'elementos filhos Response.write raiz.NodeName & "<br>" & raiz.childNodes.item(i).childNodes.item(0).text & "<br>" & raiz.childNodes.item(i).childNodes.item(1).text   Next   end if   'Destruindo os objetos Set objXMLDoc = Nothing Set raiz = Nothing %> ATENÇÃO Você deve alterar na linha e:\home\LoginFTP\Web\teste\internet.xml, o LoginFTP pelo seu usuário dentro da Locaweb. Atenção: O código mencionado acima é somente uma sugestão. Caso haja dúvidas quanto sua utilização, sugerimos que verifique juntamente a um desenvolvedor de sua confiança. Veja também Lendo um documento XML em outro servidor através do Asp Criando um documento XML através do Asp Links Central do Cliente Painel de Controle Central de atendimento