Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Xml posting (newbie)
Message
From
04/12/2003 13:28:24
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
XML, XSD
Title:
Xml posting (newbie)
Miscellaneous
Thread ID:
00856000
Message ID:
00856000
Views:
85
HI
im writing a script vfp8.0 that will grab the customer info post to a site by xml and grab the results of post xml as well but want to be able to update customers info with new information here is what i wrote so far any help with trying to but it into cursor or string for each field would helpful really having a hardtime with this.
objXmlDOM = createobject("MSXML2.DOMDOCUMENT")
objHttp=CREATEOBJECT("MSXml2.serverXMLHTTP")

objHttp.OPEN ('POST', 'http://208.179.98.38/ElectracashDirect/TransactionCapture.aspx',.F.)

objHttp.setRequestHeader("Content-type", "application/x-www-form-urlencoded")
XMLDoc='xmldoc=<TransactionBatch xmlns="capture" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="capture https://secure.electracash.net/specification/TransactionCapture.xsd">'
XMLDoc=XMLDoc + '<ACHTransaction sequence_id="3456">'
XMLDoc=XMLDoc + "<Sale>"
XMLDoc=XMLDoc + "<Customer>"
XMLDoc=XMLDoc + "<CustomerID />
XMLDoc=XMLDoc + "<FirstName>john</FirstName>"
XMLDoc=XMLDoc + "<LastName>doe</LastName>"
XMLDoc=XMLDoc + "<StreetAddress1> 123 way</StreetAddress1>"
XMLDoc=XMLDoc + "<StreetAddress2 />"
XMLDoc=XMLDoc + "<City>cedar</city>"
XMLDoc=XMLDoc + "<State>CA</State>"
XMLDoc=XMLDoc + "<ZipCode>92008</ZipCode>"
XMLDoc=XMLDoc + "<Country>USA</Country>"
XMLDoc=XMLDoc + "<EmailAddress>RELIA@LVCM.COM</EmailAddress>"
XMLDoc=XMLDoc + "</Customer>"
XMLDoc=XMLDoc + "<IPAddress></IPAddress>"
XMLDoc=XMLDoc + "<RoutingNumber>021000322</RoutingNumber>"
XMLDoc=XMLDoc + "<AccountNumber>002207334567</AccountNumber>"
XMLDoc=XMLDoc + "<MerchantID>1245678</MerchantID>"
XMLDoc=XMLDoc + "<Amount>19.95</Amount>"
XMLDoc=XMLDoc + "<ProductID>403333</ProductID>"
XMLDoc=XMLDoc + "<SaleID></SaleID>"
XMLDoc=XMLDoc + "<RegE>true</RegE>"
XMLDoc=XMLDoc + "<Status />"
XMLDoc=XMLDoc + "</Sale>"
XMLDoc=XMLDoc + "</ACHTransaction>"
XMLDoc=XMLDoc + "</TransactionBatch>"
?objHttp.SEND (ALLTRIM(XMLDoc))
lcresults=objHttp.responseText
CLEAR
LOCAL lNode as MSXML2.IXMLDOMNode

objXmlDOM.loadXML("c:/md.xml")
lnode= objXmldom.selectSingleNode("achtransaction/sale/status")
 ?lNode.nodeTypedValue
thanks for any help on this
ray
Next
Reply
Map
View

Click here to load this message in the networking platform