Classic ASP

GeoOp Exchange Refresh Token for New Access Token

Demonstrates how to use the /oauth2/token endpoint to exchange it for a new access token once the current access token has expired.

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

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

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

' This example also assumes that OAuth2 access and refresh tokens were previously fetched.
' and saved in a JSON file.  

' First get our previously obtained refresh token.
' { .... "refresh_token":"e6dqdG....mzjpT04w==", .... }
set jsonToken = Server.CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/geoop.json")

set rest = Server.CreateObject("Chilkat.Rest")

' Connect to GeoOp...
bAutoReconnect = 1
success = rest.Connect("login.geoop.com",443,1,bAutoReconnect)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

' Set the X-Version header.
success = rest.AddHeader("X-Version","1.0")

' Provide the required form params to get the new access token
Response.Write "<pre>" & Server.HTMLEncode( "refresh_token = " & jsonToken.StringOf("refresh_token")) & "</pre>"
success = rest.AddQueryParam("refresh_token",jsonToken.StringOf("refresh_token"))
success = rest.AddQueryParam("grant_type","refresh_token")
success = rest.AddQueryParam("client_id","GEOOP-CLIENT-ID")
success = rest.AddQueryParam("client_secret","GEOOP-CLIENT-SECRET")

responseBody = rest.FullRequestFormUrlEncoded("POST","/oauth2/token")
If (rest.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

' If the response status code did not indicate success, then see what happened..
If (rest.ResponseStatusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Request Header: ") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastRequestHeader) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Response StatusCode = " & rest.ResponseStatusCode) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Response StatusLine: " & rest.ResponseStatusText) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( responseBody) & "</pre>"
    Response.End
End If

set json = Server.CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0
success = json.Load(responseBody)

' Show the full JSON response.  It should contain the new access token...
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

%>
</body>
</html>