Classic ASP
Google Search Console API - List

Lists the user's Search Console sites.
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.

' This example uses a previously obtained access token having permission for the 
' Google Search Console scope.

' In this example, Get a Google Search Console OAuth2 Access Token, the access
' token was saved to a JSON file.  This example fetches the access token from the file..
set jsonToken = Server.CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/googleSearchConsole.json")
If (jsonToken.HasMember("access_token") = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "No access token found.") & "</pre>"
    Response.End
End If

set http = Server.CreateObject("Chilkat.Http")
http.AuthToken = jsonToken.StringOf("access_token")

responseStr = http.QuickGetStr("https://www.googleapis.com/webmasters/v3/sites")
If (http.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

statusCode = http.LastStatus
Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code: " & statusCode) & "</pre>"

' Sample response:

' {
'  "siteEntry": [
'   {
'    "siteUrl": "https://www.example.com/",
'    "permissionLevel": "siteUnverifiedUser"
'   },
'   {
'    "siteUrl": "http://www.chilkatsoft.com/",
'    "permissionLevel": "siteOwner"
'   }
'  ]
' }

Response.Write "<pre>" & Server.HTMLEncode( responseStr) & "</pre>"

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

set json = Server.CreateObject("Chilkat.JsonObject")

success = json.Load(responseStr)

i = 0
count_i = json.SizeOfArray("siteEntry")
Do While i < count_i
    json.I = i
    siteUrl = json.StringOf("siteEntry[i].siteUrl")
    Response.Write "<pre>" & Server.HTMLEncode( "siteUrl: " & siteUrl) & "</pre>"
    permissionLevel = json.StringOf("siteEntry[i].permissionLevel")
    Response.Write "<pre>" & Server.HTMLEncode( "permissionLevel: " & permissionLevel) & "</pre>"
    i = i + 1
Loop

%>
</body>
</html>