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>