MissouriTiger
Programmer
I am praying that someone can help me solve this problem. I have been banging my head against the wall for days.
I am a relatively inexperienced software developer. I'm attempting to set up a PayPal direct payment system on a client's website (using 3-token authentication, not certificate authentication). I have read all the PayPal documentation, and have looked at a number of examples on the Web, and have written an ASP script based on all that information.
The script wraps various data items in an XML document, and attempts to send it as an HTTP request to the PayPal server and capture the results. My script generates the following error message:
'''''''''ERROR MSG '''''''''''''''''''''''''''
"msxml3.dll error '800c0008'
The download of the specified resource has failed.
/PayPalFunctions_GREG.asp, line 213 "
'''''''''END ERROR MSG '''''''''''''''''''''''
This ain't much information to go on. It's no better than saying "Your program didn't work."
Man, if I could just get an error message back from the PayPal server I would be thrilled, but apparently my request never reaches PayPal, becuase if it did, I would get an error message from them.
Below is the main gist of my code. If you would like to see the whole script, including the xml, you can download it here ( feel free to run it and try to fix it
):
''''''''''''''''''''''''''''''''''''''''''''''''''''
CODE (Partial)
''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim objHttpRequest, objResponseXMLDoc, objNodeList
set objHttpRequest = Server.createObject("Microsoft.XMLHTTP")
objHttpRequest.open "POST", strPayPalAPIUrl, False
objHttpRequest.setRequestHeader "Content-Type", "text/xml"
objHttpRequest.setRequestHeader "SOAPMethodName", "urn:ebay:api
ayPalAPI"
objHttpRequest.send strSoapRequest
objResponseXMLDoc.async = false
set objResponseXMLDoc = createObject("MSXML.DOMDocument")
objResponseXMLDoc.loadXML objHttpRequest.responseText
Set objNodeList = objResponseXMLDoc.SelectNodes("//DoDirectPaymentResponse")
For i = 0 To (objNodeList.Length - 1)
strAck = objNodeList(x).selectSingleNode("Ack").text
strTransactionID = objNodeList(x).selectSingleNode("TransactionID").text
strTimestamp = objNodeList(x).selectSingleNode("Timestamp").text
strAmount = objNodeList(x).selectSingleNode("Amount").text
strAVSCode = objNodeList(x).selectSingleNode("AVSCode").text
strCVV2Code = objNodeList(x).selectSingleNode("CVV2Code").text
i = i + 1
Next
'etc...............
''''''''''''''''''''''''''''''''''''''''''''''''''''
END OF CODE
''''''''''''''''''''''''''''''''''''''''''''''''''''
I would greatly appreciate any attempt to explain why this code doesn't work.
Greg Norris
Software Developer
________________________________________________
Constructed from 100% recycled electrons.
I am a relatively inexperienced software developer. I'm attempting to set up a PayPal direct payment system on a client's website (using 3-token authentication, not certificate authentication). I have read all the PayPal documentation, and have looked at a number of examples on the Web, and have written an ASP script based on all that information.
The script wraps various data items in an XML document, and attempts to send it as an HTTP request to the PayPal server and capture the results. My script generates the following error message:
'''''''''ERROR MSG '''''''''''''''''''''''''''
"msxml3.dll error '800c0008'
The download of the specified resource has failed.
/PayPalFunctions_GREG.asp, line 213 "
'''''''''END ERROR MSG '''''''''''''''''''''''
This ain't much information to go on. It's no better than saying "Your program didn't work."
Man, if I could just get an error message back from the PayPal server I would be thrilled, but apparently my request never reaches PayPal, becuase if it did, I would get an error message from them.
Below is the main gist of my code. If you would like to see the whole script, including the xml, you can download it here ( feel free to run it and try to fix it
''''''''''''''''''''''''''''''''''''''''''''''''''''
CODE (Partial)
''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim objHttpRequest, objResponseXMLDoc, objNodeList
set objHttpRequest = Server.createObject("Microsoft.XMLHTTP")
objHttpRequest.open "POST", strPayPalAPIUrl, False
objHttpRequest.setRequestHeader "Content-Type", "text/xml"
objHttpRequest.setRequestHeader "SOAPMethodName", "urn:ebay:api
objHttpRequest.send strSoapRequest
objResponseXMLDoc.async = false
set objResponseXMLDoc = createObject("MSXML.DOMDocument")
objResponseXMLDoc.loadXML objHttpRequest.responseText
Set objNodeList = objResponseXMLDoc.SelectNodes("//DoDirectPaymentResponse")
For i = 0 To (objNodeList.Length - 1)
strAck = objNodeList(x).selectSingleNode("Ack").text
strTransactionID = objNodeList(x).selectSingleNode("TransactionID").text
strTimestamp = objNodeList(x).selectSingleNode("Timestamp").text
strAmount = objNodeList(x).selectSingleNode("Amount").text
strAVSCode = objNodeList(x).selectSingleNode("AVSCode").text
strCVV2Code = objNodeList(x).selectSingleNode("CVV2Code").text
i = i + 1
Next
'etc...............
''''''''''''''''''''''''''''''''''''''''''''''''''''
END OF CODE
''''''''''''''''''''''''''''''''''''''''''''''''''''
I would greatly appreciate any attempt to explain why this code doesn't work.
Greg Norris
Software Developer
________________________________________________
Constructed from 100% recycled electrons.