Forum Moderators: open
Response would be returned in this format:
<?xml version="1.0" encoding="UTF-8"?>
<Result>
<TransTime>Mon Nov 08 20:21:06 PST 2004</TransTime>
<OrderID>2004110820210605147</OrderID>
<Approved>APPROVED</Approved>
<ReturnCode>Y:TEST:TESTTRANS:M:X:YYY</ReturnCode>
<ErrMsg></ErrMsg>
<TaxTotal>5.00</TaxTotal>
<ShipTotal>15.00</ShipTotal>
<SubTotal>55.00</SubTotal>
<FullTotal>75.00</FullTotal>
<PaymentType>CC</PaymentType>
<CardNumber>411111...1111</CardNumber>
<CardExpMonth>05</CardExpMonth>
<CardExpYear>07</CardExpYear>
<TransRefNumber>1bd0082c392b7c5b</TransRefNumber>
<CardIDResult>M</CardIDResult>
<AVSResult>X</AVSResult>
<CardAuthNumber>TEST</CardAuthNumber>
<CardRefNumber>TESTTRANS</CardRefNumber>
<CardType>VISA</CardType>
<IPResult>YYY</IPResult>
<IPCountry>CA</IPCountry>
<IPRegion>Ontario</IPRegion>
<IPCity>Toronto</IPCity>
</Result>
This is the code I am using to test with for now:
set xml = Server.CreateObject("Microsoft.XMLHTTP")
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xml.open "POST", "##HOST ADDRESS##", false
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send (orderString)
xmlResponseStr = xml.responseText
Response.Write("<br /><br />")
Response.write(xmlResponseStr)
' Parse Returned XML
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = True
xmlDoc.Load(xml.responseXML)
Set itemList = xmlDoc.getElementsByTagName("*")
Dim xmlApproved
Response.Write("<br /><br />")
For Each item In itemList
Response.Write("IN HERE")
For each child in item.childNodes
Response.Write("IN DEEPER")
Response.Write(child.nodeName)
Response.Write("<br /><br />")
Next
Next
Set xmlDoc = Nothing
Set itemList = Nothing
Set xml = nothing
%>
As you may see this is the first time I have ever attempted something like this.