Lendo um Documento 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 arquivo.xml: 

<?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 arquivo.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\xyz\web\arquivo.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
%>

Você deve alterar, na linha e:\home\xyz\web\teste\arquivo.xml, o xyz pelo seu usuário dentro da Locaweb.

Obs.: No final do script é necessário atribuir o valor "Nothing" para os objetos criados, conforme o exemplo acima.

Recursos sobre ASP na Internet

Há ainda muita informação na Internet sobre ASP. Além da Microsoft, visite também: 

http://www.xml.com/