a ver si alguien me puede echar una mano

[cacike500]

tengo el siguiente fichero XML:

<?xml version="1.0" encoding="UTF-8" ?>
- <gesmes:Envelope xmlns:gesmes="http://www.gesmes.org/xml/2002-08-01" xmlns="http://www.ecb.int/vocabulary/2002-08-01/eurofxref">
<gesmes:subject>Reference rates</gesmes:subject>
- <gesmes:Sender>
<gesmes:name>European Central Bank</gesmes:name>
</gesmes:Sender>
- <Cube>
- <Cube time="2002-12-06">
<Cube currency="USD" rate="1.0006" />
<Cube currency="JPY" rate="125.02" />
<Cube currency="DKK" rate="7.4261" />
<Cube currency="GBP" rate="0.63770" />
<Cube currency="SEK" rate="9.0525" />
<Cube currency="CHF" rate="1.4717" />
<Cube currency="ISK" rate="85.31" />
<Cube currency="NOK" rate="7.2640" />
<Cube currency="BGN" rate="1.9536" />
<Cube currency="CYP" rate="0.57313" />
<Cube currency="CZK" rate="31.015" />
<Cube currency="EEK" rate="15.6466" />
<Cube currency="HUF" rate="236.58" />
<Cube currency="LTL" rate="3.4520" />
<Cube currency="LVL" rate="0.6009" />
<Cube currency="MTL" rate="0.4147" />
<Cube currency="PLN" rate="3.9920" />
<Cube currency="ROL" rate="33710" />
<Cube currency="SIT" rate="229.8850" />
<Cube currency="SKK" rate="41.684" />
<Cube currency="TRL" rate="1553000" />
<Cube currency="AUD" rate="1.7847" />
<Cube currency="CAD" rate="1.5591" />
<Cube currency="HKD" rate="7.8032" />
<Cube currency="NZD" rate="1.9976" />
<Cube currency="SGD" rate="1.7752" />
<Cube currency="KRW" rate="1221.23" />
<Cube currency="ZAR" rate="9.1293" />
</Cube>
</Cube>
</gesmes:Envelope>

Lo que pretendo hacer es acceder a las etiquetas currency y rate desde asp. He hecho infinidad de pruebas y todavia no lo he conseguido. Alguien puede darme alguna pista o decirme donde puedo encontrar algún ejemplo que me pueda ayudar???. Gracias a todos de antemano.

[bakanzipp]

a ver si te sirve



function Retornar()
dim Xmldoc
'Crea objeto Xml
set Xmldoc = server.CreateObject("Microsoft.XMLDOM")
'Lee el documento XML del cliente
if not xmldoc.load(server.MapPath("tu_directorio/tu_archivo_xml.xml ")) then
call TimeOut
else
set Retornar = xmldoc
end if
end function


dim obj_xmltotal, dato_salida

set obj_xmltotal = Retornar()

dato_salida = obj_xmltotal.selectsinglenode("Cube currency").text

ahora si quieres retornar todo usa nodos con for each

[cacike500]

en realidad ya había hecho algo similar y si...esta parte me funciona perfectamente...mi problema viene cuando intento utilizar nodos...y sigo sin encontrar ningún material que me ayude...si algún algún alma caritativa me pudiese ayudar...

Por cierto, MUCHAS GRACIAS bakanzipp...