Ler xml

[thiagocs 0]

como ler um arquivo.xml como esse:

 

 

<?xml version="1.0"?><messenger>  <service name=".NET Messenger Service">    <contactlist>      <contact>xxxxx@hotmail.com</contact>      <contact>yyyyy@hotmail.com</contact>      <contact>zzzzz@hotmail.com</contact>     </contactlist>  </service> </messenger>

[thiagocs 0]

alguém pode ajudar a ler um arquivo XML com ADO ....

[grustyn 0]

Dim root 'raiz do documento (messenger)Dim objXMLDoc 'objeto que acessa o XMLSet objXMLDoc = Server.CreateObject("Microsoft.XMLDOM") objXMLDoc.async = FalseobjXMLDoc.load("pagina.xml")Set root = objXMLDoc.documentElementresponse.write root.ChildNodes(0).ChildNodes(0).ChildNodes(1).text 'retorna xxxxx@hotmail.comresponse.write root.ChildNodes(0).ChildNodes(0).ChildNodes(1).text 'retorna yyyyy@hotmail.comresponse.write root.ChildNodes(0).ChildNodes(0).ChildNodes(1).text 'retorna zzzzz@hotmail.com

 

eu fiz esse logica simples pra você entender como funciona

 

 

 

pra fazer um loop você faria assim

 

totalNodes = root.ChildNodes(0).ChildNodes(0).ChildNodes.Lengthset contactList = root.ChildNodes(0).ChildNodes(0)For i = 0 to totalNodes - 1  response.write contactList.ChildNodes(i).textNext

 

 

qualquer coisa dah um toke

[Patricia 0]

vai um link com maiores explicações:

 

http://www.macoratti.net/xml.htm

 

já adiantando, o exemplo é = do grustyn http://forum.imasters.com.br/public/style_emoticons/default/clap.gif