Classic ASP
UPS Address Validation (City, State, Zip)

Demonstrates making a call to the UPS address validation REST API.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

set http = Server.CreateObject("Chilkat.Http")

'  This is the testing endpoint for address validation:
url = "https://wwwcie.ups.com/rest/AV"

'  Send an HTTP request with the following JSON body:

'  {
'    "AccessRequest": {
'      "AccessLicenseNumber": "Your Access License Number",
'      "UserId": "Your Username",
'      "Password": "Your Password"
'    },
'    "AddressValidationRequest": {
'      "Request": {
'        "TransactionReference": {
'          "CustomerContext": "Your Customer Context"
'        },
'        "RequestAction": "AV"
'      },
'      "Address": {
'        "City": "ALPHARETTA",
'        "StateProvinceCode": "GA",
'        "PostalCode": "30005"
'      }
'    }
'  }

'  Build the above JSON.
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.UpdateString("AccessRequest.AccessLicenseNumber","UPS_ACCESS_KEY")
success = json.UpdateString("AccessRequest.UserId","UPS_USERNAME")
success = json.UpdateString("AccessRequest.Password","UPS_PASSWORD")
success = json.UpdateString("AddressValidationRequest.Request.TransactionReference.CustomerContext","Your Customer Context")
success = json.UpdateString("AddressValidationRequest.Request.RequestAction","AV")
success = json.UpdateString("AddressValidationRequest.Address.City","ALPHARETTA")
'  We're making an intentional mistake here by passing CA instead of GA.
success = json.UpdateString("AddressValidationRequest.Address.StateProvinceCode","CA")
success = json.UpdateString("AddressValidationRequest.Address.PostalCode","30005")

set sb = Server.CreateObject("Chilkat.StringBuilder")
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpJson("POST",url,json,"application/json",resp)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "status = " & resp.StatusCode) & "</pre>"

'  A 200 response status indicate success.
If (resp.StatusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
    Response.End
End If

success = json.Load(resp.BodyStr)
json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

'  A successful exact response looks like this:

'  {
'    "AddressValidationResponse": {
'      "Response": {
'        "TransactionReference": {
'          "CustomerContext": "Your Customer Context"
'        },
'        "ResponseStatusCode": "1",
'        "ResponseStatusDescription": "Success"
'      },
'      "AddressValidationResult": {
'        "Rank": "1",
'        "Quality": "1.0",
'        "Address": {
'          "City": "ALPHARETTA",
'          "StateProvinceCode": "GA"
'        },
'        "PostalCodeLowEnd": "30005",
'        "PostalCodeHighEnd": "30005"
'      }
'    }
'  }
'  

'  A successful response that was not an exact match provides an array of closest matches, like this:

'  {
'    "AddressValidationResponse": {
'      "Response": {
'        "TransactionReference": {
'          "CustomerContext": "Your Customer Context"
'          "Quality": "0.9875",
'          "Address": {
'        },
'        "ResponseStatusCode": "1",
'        "ResponseStatusDescription": "Success"
'      },
'      "AddressValidationResult": [
'        {
'          "Rank": "1",
'            "City": "ALPHARETTA",
'            "StateProvinceCode": "GA"
'          },
'          "PostalCodeLowEnd": "30005",
'          "PostalCodeHighEnd": "30005"
'        },
'        {
'          "Rank": "2",
'          "Quality": "0.9750",
'          "Address": {
'            "City": "ALPHARETTA",
'            "StateProvinceCode": "GA"
'          },
'          "PostalCodeLowEnd": "30004",
'          "PostalCodeHighEnd": "30004"
'        },
'        {
'          "Rank": "3",
'          "Quality": "0.9750",
'          "Address": {
'            "City": "ALPHARETTA",
'            "StateProvinceCode": "GA"
'          },
'          "PostalCodeLowEnd": "30009",
'          "PostalCodeHighEnd": "30009"
'        }
'      ]
'    }
'  }

'  Use the online tool at Generate JSON Parsing Code
'  to generate JSON parsing code.

numResults = json.SizeOfArray("AddressValidationResponse.AddressValidationResult")
If (numResults < 0) Then

    '  Here's parse code for the above JSON exact response:
    customerContext = json.StringOf("AddressValidationResponse.Response.TransactionReference.CustomerContext")
    statusCode = json.StringOf("AddressValidationResponse.Response.ResponseStatusCode")
    statusDescription = json.StringOf("AddressValidationResponse.Response.ResponseStatusDescription")
    resultRank = json.StringOf("AddressValidationResponse.AddressValidationResult.Rank")
    resultQuality = json.StringOf("AddressValidationResponse.AddressValidationResult.Quality")
    city = json.StringOf("AddressValidationResponse.AddressValidationResult.Address.City")
    provinceCode = json.StringOf("AddressValidationResponse.AddressValidationResult.Address.StateProvinceCode")
    postalCodeLowEnd = json.StringOf("AddressValidationResponse.AddressValidationResult.PostalCodeLowEnd")
    postalCodeHighEnd = json.StringOf("AddressValidationResponse.AddressValidationResult.PostalCodeHighEnd")

    Response.Write "<pre>" & Server.HTMLEncode( "Exact match!") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "postal code: " & postalCodeLowEnd) & "</pre>"

Else

    Response.Write "<pre>" & Server.HTMLEncode( "Non-Exact match.") & "</pre>"

    customerContext = json.StringOf("AddressValidationResponse.Response.TransactionReference.CustomerContext")
    statusCode = json.StringOf("AddressValidationResponse.Response.ResponseStatusCode")
    statusDescription = json.StringOf("AddressValidationResponse.Response.ResponseStatusDescription")
    i = 0
    Do While i < numResults
        json.I = i
        rank = json.StringOf("AddressValidationResponse.AddressValidationResult[i].Rank")
        Response.Write "<pre>" & Server.HTMLEncode( "rank: " & rank) & "</pre>"
        quality = json.StringOf("AddressValidationResponse.AddressValidationResult[i].Quality")
        addressCity = json.StringOf("AddressValidationResponse.AddressValidationResult[i].Address.City")
        Response.Write "<pre>" & Server.HTMLEncode( "addressCity: " & addressCity) & "</pre>"
        addressStateProvinceCode = json.StringOf("AddressValidationResponse.AddressValidationResult[i].Address.StateProvinceCode")
        postalCodeLowEnd = json.StringOf("AddressValidationResponse.AddressValidationResult[i].PostalCodeLowEnd")
        Response.Write "<pre>" & Server.HTMLEncode( "postal code: " & postalCodeLowEnd) & "</pre>"
        postalCodeHighEnd = json.StringOf("AddressValidationResponse.AddressValidationResult[i].PostalCodeHighEnd")
        i = i + 1
    Loop
End If


%>
</body>
</html>