Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Classic ASP) Page Through All ContactsDemonstrates how to page through the entire list of Google Contacts.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' -------------------------------------------------------------------------------------------------------- ' Note: The code for setting up the Chilkat REST object and making the initial connection can be done once. ' Once connected, the REST object may be re-used for many REST API calls. ' (It's a good idea to put the connection setup code in a separate function/subroutine.) ' -------------------------------------------------------------------------------------------------------- ' It is assumed we previously obtained an OAuth2 access token. ' This example loads the JSON access token file ' saved by this example: Get Google Contacts OAuth2 Access Token ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/googleContacts.json") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to load googleContacts.json") & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.AuthGoogle") set gAuth = Server.CreateObject("Chilkat.AuthGoogle") gAuth.AccessToken = jsonToken.StringOf("access_token") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' Connect using TLS. bAutoReconnect = 1 success = rest.Connect("www.google.com",443,1,bAutoReconnect) ' Provide the authentication credentials (i.e. the access token) success = rest.SetAuthGoogle(gAuth) ' ---------------------------------------------- ' OK, the REST connection setup is completed.. ' ---------------------------------------------- startIndex = 1 maxResults = 25 ' The totalResults will get updated with the correct value in the 1st loop iteration.. totalResults = 100 ' To retrieve the contacts in pages of 25 each, we need to send the following for each page. ' GET /m8/feeds/contacts/default/full?max-results=25&start-index=<startIndex> ' GData-Version: 3.0 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbMaxResults = Server.CreateObject("Chilkat.StringBuilder") success = sbMaxResults.AppendInt(maxResults) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbStartIndex = Server.CreateObject("Chilkat.StringBuilder") loopIteration = 0 Do While startIndex <= totalResults sbStartIndex.Clear success = sbStartIndex.AppendInt(startIndex) success = rest.ClearAllHeaders() success = rest.ClearAllQueryParams() success = rest.AddHeader("GData-Version","3.0") success = rest.AddQueryParam("start-index",sbStartIndex.GetAsString()) success = rest.AddQueryParam("max-results",sbMaxResults.GetAsString()) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbResponseBody = Server.CreateObject("Chilkat.StringBuilder") success = rest.FullRequestNoBodySb("GET","/m8/feeds/contacts/default/full",sbResponseBody) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' A successful response will have a status code equal to 200. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response status text = " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response header: " & rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response body: " & sbResponseBody.GetAsString()) & "</pre>" Response.End End If ' If the 200 response was received, then the contacts XML is contained ' in the response body. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") success = xml.LoadSb(sbResponseBody,0) ' Now let's parse the XML... ' Get the the total number of results, the start index, and the items per page. ' We'll likely NOT get the full list, but will instead get the 1st page. totalResults = xml.GetChildIntValue("openSearch:totalResults") startIndex2 = xml.GetChildIntValue("openSearch:startIndex") itemsPerPage = xml.GetChildIntValue("openSearch:itemsPerPage") Response.Write "<pre>" & Server.HTMLEncode( "totalResults = " & totalResults) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "startIndex = " & startIndex2) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "itemsPerPage = " & itemsPerPage) & "</pre>" ' Iterate over each contact. numEntries = xml.NumChildrenHavingTag("entry") i = 0 Do While i < numEntries xml.I = i Response.Write "<pre>" & Server.HTMLEncode( loopIteration * maxResults + i + 1 & " ----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "title: " & xml.GetChildContent("entry[i]|title")) & "</pre>" idUrl = xml.GetChildContent("entry[i]|id") Response.Write "<pre>" & Server.HTMLEncode( "id: " & idUrl) & "</pre>" fullName = xml.ChilkatPath("entry[i]|gd:name|gd:fullName|*") If (xml.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "fullName: " & fullName) & "</pre>" End If emailAddress = xml.ChilkatPath("entry[i]|gd:email|(address)") If (xml.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "email address: " & emailAddress) & "</pre>" End If ' Find the photo link and check to see if this contact has a photo. ' xLink is a Chilkat.Xml Set xLink = xml.GetChildWithAttr("link","rel","http://schemas.google.com/contacts/2008/rel#photo") If (xml.LastMethodSuccess = 1) Then ' Get the photo etag. bHasPhoto = xLink.HasAttribute("gd:etag") If (bHasPhoto = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "This contact has a photo.") & "</pre>" End If End If i = i + 1 Loop startIndex = startIndex + maxResults loopIteration = loopIteration + 1 Loop %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.