Test the address http://www.goonlinefactory.com/2.asp
Dim strsend
Strsend="test"
Response. Write "& lt; Br>
Use another glbpay
https://pgw.glbpay.com/api/refund
"
The set objHttp=CreateObject (" MSXML2. ServerXMLHTTP ")
ObjHttp. Open the "POST", "https://pgw.glbpay.com/api/refund", false
ObjHttp. SetRequestHeader content-type ", "" application/x - WWW - form - urlencoded"
ObjHttp. Send strsend
Response. Write (objHttp. Status)
If (objHttp status & lt;> 200) then
Result="Status=" & amp; ObjHttp. Status
The else
Result=objHttp. The responseText
End the if
The Set objHttp=Nothing
Response. Write "& lt; Br> Return
"
Response. Write (Result)
Response. Write "& lt; Br>
Use acardpay api
https://www.acardpay.biz/index.php/Gateway/securepay
"
The set objHttp=CreateObject (" MSXML2. ServerXMLHTTP ")
ObjHttp. Open the "POST", "https://www.acardpay.biz/index.php/Gateway/securepay", false
ObjHttp. SetRequestHeader content-type ", "" application/x - WWW - form - urlencoded"
ObjHttp. Send strsend
Response. Write (objHttp. Status)
If (objHttp status & lt;> 200) then
Result="Status=" & amp; ObjHttp. Status
The else
Result=objHttp. The responseText
End the if
The Set objHttp=Nothing
Response. Write "& lt; Br> Return
"
Response. Write (Result)
Response. Write "& lt; Br>
"
CodePudding user response:
Server how even, ports have no pass?