Dim authToken, txToken
Dim query
Dim objHttp
Dim sQuerystring
Dim sParts(), iParts(), aParts
Dim sResults(0, 0), sKey, sValue
Dim i, result
Dim firstName, lastName, itemName, mcGross, mcCurrency
authToken = "%Token From SandBox%"
txToken = Request.QueryString("tx")
query = "cmd=_notify-synch&tx=" & txToken & "&at=" & authToken
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objHttp.open "POST", "https://www.sandbox.paypal.com/cgi-bin/webscr", False
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send query
sQuerystring = objHttp.responseText
我收到错误"失败错误:4020"。请指导我错过的内容。