Classic ASP Requires Chilkat v11.0.0+
Classic ASP
PayPal - Find Authorizations
See more PayPal Examples
Finds previously created authorizations.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
' Load our previously obtained access token. (see PayPal OAuth2 Access Token)
set jsonToken = Server.CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/paypal.json")
' Build the Authorization request header field value.
set sbAuth = Server.CreateObject("Chilkat.StringBuilder")
' token_type should be "Bearer"
success = sbAuth.Append(jsonToken.StringOf("token_type"))
success = sbAuth.Append(" ")
success = sbAuth.Append(jsonToken.StringOf("access_token"))
' Make the initial connection.
' A single REST object, once connected, can be used for many PayPal REST API calls.
' The auto-reconnect indicates that if the already-established HTTPS connection is closed,
' then it will be automatically re-established as needed.
set rest = Server.CreateObject("Chilkat.Rest")
bAutoReconnect = 1
success = rest.Connect("api.sandbox.paypal.com",443,1,bAutoReconnect)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
Response.End
End If
' ----------------------------------------------------------------------------------------------
' The code above this comment could be placed inside a function/subroutine within the application
' because the connection does not need to be made for every request. Once the connection is made
' the app may send many requests..
' ----------------------------------------------------------------------------------------------
' Clear the REST object of any headers or query params from previous requests.
success = rest.ClearAllHeaders()
success = rest.ClearAllQueryParams()
success = rest.AddHeader("Authorization",sbAuth.GetAsString())
' To find authoriaztions, we list payments and look for those
' containing "authorization" transactions
success = rest.AddQueryParam("count","100")
success = rest.AddQueryParam("start_index","0")
success = rest.AddQueryParam("sort_by","update_time")
success = rest.AddQueryParam("sort_order","asc")
' Send the GET request and get the JSON response.
set sbJsonResponse = Server.CreateObject("Chilkat.StringBuilder")
success = rest.FullRequestNoBodySb("GET","/v1/payments/payment",sbJsonResponse)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
Response.End
End If
set json = Server.CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0
success = json.LoadSb(sbJsonResponse)
' (optional) Save the entire JSON response to a file to examine if desired..
set sbTemp = Server.CreateObject("Chilkat.StringBuilder")
success = json.EmitSb(sbTemp)
success = sbTemp.WriteFile("qa_output/paypal_payments.json","utf-8",0)
Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code = " & rest.ResponseStatusCode) & "</pre>"
' Did we get a 200 success response?
If (rest.ResponseStatusCode <> 200) Then
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
Response.End
End If
' We are looking for "authorization" transactions .
' As shown below, we are looking in the "transactions" for "related_resources"
' containing "authorization" JSON objects.
' {
' "payments": [
' {
' "id": "PAY-3SL8976592063093RLA3DMAY",
' "create_time": "2016-11-24T00:36:19Z",
' "update_time": "2016-11-24T00:36:24Z",
' "state": "approved",
' "intent": "authorize",
' "payer": {
' "payment_method": "credit_card",
' "funding_instruments": [
' {
' "credit_card_token": {
' "credit_card_id": "CARD-52W84623JH8043102LA3CLGA",
' "payer_id": "user12345",
' "last4": "9974",
' "type": "visa",
' "expire_month": "9",
' "expire_year": "2021"
' }
' }
' ]
' },
' "transactions": [
' {
' "amount": {
' "total": "6.70",
' "currency": "USD",
' "details": {
' "subtotal": "6.70"
' }
' },
' "description": "This is the payment transaction description.",
' "related_resources": [
' {
' "authorization": {
' "id": "6HG91590AX913463C",
' "create_time": "2016-11-24T00:36:19Z",
' "update_time": "2016-11-24T00:36:24Z",
' "amount": {
' ...
' }
' },
' "state": "authorized",
' "parent_payment": "PAY-3SL8976592063093RLA3DMAY",
' "valid_until": "2016-12-23T00:36:19Z",
' ...
'
' Iterate over the payments and show each authorization
set jsonAuth = Server.CreateObject("Chilkat.JsonObject")
numPayments = json.SizeOfArray("payments")
i = 0
Do While i < numPayments
json.I = i
j = 0
numTransactions = json.SizeOfArray("payments[i].transactions")
Do While j < numTransactions
json.J = j
numRelatedResources = json.SizeOfArray("payments[i].transactions[j].related_resources")
k = 0
Do While k < numRelatedResources
json.K = k
If (json.HasMember("payments[i].transactions[j].related_resources[k].authorization") = 1) Then
success = json.ObjectOf2("payments[i].transactions[j].related_resources[k].authorization",jsonAuth)
Response.Write "<pre>" & Server.HTMLEncode( "authorization id: " & jsonAuth.StringOf("id")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "state: " & jsonAuth.StringOf("state")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "total: " & jsonAuth.StringOf("amount.total")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"
End If
k = k + 1
Loop
j = j + 1
Loop
i = i + 1
Loop
Response.Write "<pre>" & Server.HTMLEncode( "success") & "</pre>"
%>
</body>
</html>