Bienvenido al fascinante y extenso mundo del XML
Veamos...
Hacer una llamada a algun server mediante XMLHTTP
Código:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
'Obtengo el XML
xml.Open "GET", "http://www.undominio.com", False
xml.Send
'Supongase que este XML me regresara un Hola Mundo
strHolaMundo = Cstr(xml.ResponseText)
Response.Write strHolaMundo
'No era eso lo que queria, me interesa parsear un XML
Código:
<?xml version="1.0" ?>
- <EZPAY VERSION="01.00">
- <HEADER>
<REQUESTID>628200542306PM163128860</REQUESTID>
<REQUESTTYPE>REQAUTHORIZE</REQUESTTYPE>
</HEADER>
- <DATA>
<CONFIRMATIONNUMBER>4479085096718936</CONFIRMATIONNUMBER>
<REASONCODE>100</REASONCODE>
<REASONDESCRIPTION>Approved</REASONDESCRIPTION>
</DATA>
</EZPAY>
Código:
Set ObjXML = Server.CreateObject("Microsoft.XMLDOM")
ObjXML.Async = false
ObjXML.Load Server.MapPath("../ruta/archivo.xml")
if ObjXML.parseError.ErrorCode <> 0 then
'Aqui hay un error, vamos a mostrarlo
Set er = ObjXML.parseError
Response.Write er.Reason
else
Response.ContentType = "text/xml"
Response.write ObjXML.xml
end if