Classic ASP PiConnect - Cloud: Credit Sale Convert to JSON

Credit Sale Convert to JSON

Documentation: https://api-cloud.piconnect.io/#670fa1b8-aa65-9dfe-f4b3-1e3e86a7b218

CURL Command

curl --request POST \
  --url https://pipay.io/piconnect/process \
  --header 'Content-Type: application/x-www-form-urlencoded' \
  --data 'response=%20%1CT01%1C1.37%1C000000%1COK%1C00%1FAPPROVAL%20TAS213%1FTAS213%1F801719500067%1F%1F23%1C01%1C2203%1F0%1F0%1F0%1F0%1F0%1F%1F%1C2142%1F4%1F0121%1F%1F%1F%1F01%1FPAYMENT%20INNOVATORS%2FTEST%20T%1F%1F%1F0%1C13%1F50%1F20180117111513%1C%1F%1C%1C%1CTOKEN%3DXj02K6IZfo5M2142%1FCARDBIN%3D441840%1FSN%3D53211269%1FTC%3DC5BB26C00F78D78B%1FTVR%3D8080008000%1FAID%3DA0000000031010%1FTSI%3D6C00%1FATC%3D0019%1FAPPLAB%3DVisa%20Credit%1FIAD%3D06010A03600000%1FARC%3D00%1FCID%3D40%1FCVM%3D6&account=1512407959&sn=31415926&mode=2'

Classic ASP Example

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set rest = Server.CreateObject("Chilkat_9_5_0.Rest")

'  URL: https://pipay.io/piconnect/process
bTls = 1
port = 443
bAutoReconnect = 1
success = rest.Connect("pipay.io",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "ConnectFailReason: " & rest.ConnectFailReason) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"

End If

success = rest.AddQueryParam("response"," T011.37000000OK00APPROVAL TAS213TAS213801719500067230122030000021424012101PAYMENT INNOVATORS/TEST T0135020180117111513TOKEN=Xj02K6IZfo5M2142CARDBIN=441840SN=53211269TC=C5BB26C00F78D78BTVR=8080008000AID=A0000000031010TSI=6C00ATC=0019APPLAB=Visa CreditIAD=06010A03600000ARC=00CID=40CVM=6")
success = rest.AddQueryParam("account","1512407959")
success = rest.AddQueryParam("sn","31415926")
success = rest.AddQueryParam("mode","2")

strResponseBody = rest.FullRequestFormUrlEncoded("POST","/piconnect/process")
If (rest.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"

End If

set jsonResponse = Server.CreateObject("Chilkat_9_5_0.JsonObject")
success = jsonResponse.Load(strResponseBody)

TransactionResult = jsonResponse.StringOf("TransactionResult")
PTK = jsonResponse.StringOf("PTK")
ResponseCode = jsonResponse.StringOf("ResponseCode")
ApprovedAmount = jsonResponse.IntOf("ApprovedAmount")
TransactionID = jsonResponse.StringOf("TransactionID")
AuthCode = jsonResponse.StringOf("AuthCode")
Token = jsonResponse.StringOf("Token")
CardType = jsonResponse.StringOf("CardType")
AccountNum = jsonResponse.StringOf("AccountNum")
ExpDate = jsonResponse.StringOf("ExpDate")
TicketID = jsonResponse.StringOf("TicketID")
ResponseMsg = jsonResponse.StringOf("ResponseMsg")
HostCode = jsonResponse.StringOf("HostCode")
Timestamp = jsonResponse.StringOf("Timestamp")
AvsResponse = jsonResponse.IsNullOf("AvsResponse")
CardHolder = jsonResponse.StringOf("CardHolder")
BusinessId = jsonResponse.StringOf("BusinessId")
UniqueId = jsonResponse.StringOf("UniqueId")
TransType = jsonResponse.StringOf("TransType")
EntryMode = jsonResponse.StringOf("EntryMode")
RefNum = jsonResponse.StringOf("RefNum")
SerialNo = jsonResponse.StringOf("SerialNo")
AmountDue = jsonResponse.StringOf("AmountDue")
TipAmount = jsonResponse.IntOf("TipAmount")
CvResponse = jsonResponse.IsNullOf("CvResponse")
HostResponse = jsonResponse.StringOf("HostResponse")
ExtraBalance = jsonResponse.IsNullOf("ExtraBalance")
CardBin = jsonResponse.StringOf("CardBin")
Tc = jsonResponse.StringOf("Tc")
Tvr = jsonResponse.StringOf("Tvr")
Aid = jsonResponse.StringOf("Aid")
Tsi = jsonResponse.StringOf("Tsi")
Atc = jsonResponse.StringOf("Atc")
AppLab = jsonResponse.StringOf("AppLab")
AppPN = jsonResponse.IsNullOf("AppPN")
Iad = jsonResponse.StringOf("Iad")
Arc = jsonResponse.StringOf("Arc")
Cid = jsonResponse.StringOf("Cid")
Cvm = jsonResponse.IsNullOf("Cvm")
i = 0
count_i = jsonResponse.SizeOfArray("Method")
Do While i < count_i
    jsonResponse.I = i
    strVal = jsonResponse.StringOf("Method[i]")
    i = i + 1
Loop

%>
</body>
</html>

Sample JSON Response Body

{
  "TransactionResult": "true",
  "PTK": "F9JURF2HLo",
  "ResponseCode": "000000",
  "ApprovedAmount": 22.03,
  "TransactionID": "13",
  "AuthCode": "TAS213",
  "Token": "Xj02K6IZfo5M2142",
  "CardType": "VISA",
  "AccountNum": "2142",
  "ExpDate": "0121",
  "TicketID": "50",
  "ResponseMsg": "OK",
  "HostCode": "00",
  "Timestamp": "20180117111513",
  "AvsResponse": null,
  "CardHolder": "PAYMENT INNOVATORS/TEST T",
  "BusinessId": "1512407959",
  "UniqueId": "5a8af729c5b1b",
  "TransType": "SALE",
  "EntryMode": "CHIP",
  "RefNum": "801719500067",
  "SerialNo": "53211269",
  "AmountDue": "0",
  "TipAmount": 0,
  "CvResponse": null,
  "HostResponse": "APPROVAL TAS213",
  "ExtraBalance": null,
  "CardBin": "441840",
  "Tc": "A0019",
  "Tvr": "8080008000",
  "Aid": "A0000000031010",
  "Tsi": "6C00",
  "Atc": "0019",
  "AppLab": "Visa Credit",
  "AppPN": null,
  "Iad": "06010A03600000",
  "Arc": "00",
  "Cid": "40",
  "Cvm": null,
  "Method": [
    "T01"
  ]
}