|
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) GeoOp - Create ClientCreates a new client.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example also assumes an OAuth2 access token was previously fetched. ' and saved in a JSON file. ' First get our previously obtained access token. ' {"access_token":"e6dqdG....mzjpT04w==","token_type":"Bearer","expires_in":2592000,"owner_id":999236} ' 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/geoop.json") ' This example assumes we previously obtained an access token ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.OAuth2") set oauth2 = Server.CreateObject("Chilkat.OAuth2") oauth2.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 to GeoOp.. ' Note: The same REST object, once connected, can be used for many requests. ' The bAutoReconnect argument allows it to automatically reconnect as required for any subsequent request. bAutoReconnect = 1 success = rest.Connect("api.geoop.com",443,1,bAutoReconnect) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' Provide the authentication credentials (i.e. the access token) success = rest.SetAuthOAuth2(oauth2) ' Set the X-Version header. success = rest.AddHeader("X-Version","1.0") ' To create a new client, we can build and send the following JSON: ' { ' "clients": [ ' { ' "firstName": "Joe", ' "lastName": "Miller", ' "companyName": "Miller Bakery", ' "businessType": "Licensed Bakery", ' "account": { ' "id": 39409 ' }, ' "address": { ' "line1": "1832 Pennsylvania Avenue NW", ' "city": "Washington", ' "postcode": "20006", ' } ' } ' } ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonClient = Server.CreateObject("Chilkat.JsonObject") success = jsonClient.UpdateInt("clients[0].account.id",39409) success = jsonClient.UpdateString("clients[0].firstName","Joe") success = jsonClient.UpdateString("clients[0].lastName","Miller") success = jsonClient.UpdateString("clients[0].companyName","Miller Bakery") success = jsonClient.UpdateString("clients[0].businessType","Licensed Bakery") success = jsonClient.UpdateString("clients[0].address.line1","1832 Pennsylvania Avenue NW") success = jsonClient.UpdateString("clients[0].address.city","Washington") success = jsonClient.UpdateString("clients[0].address.postcode","20006") ' Examine the JSON we're about to send... jsonClient.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( jsonClient.Emit()) & "</pre>" success = rest.AddHeader("Content-Type","application/json") jsonClient.EmitCompact = 1 responseBody = rest.FullRequestString("POST","/clients",jsonClient.Emit()) If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") json.EmitCompact = 0 ' 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>" success = json.Load(responseBody) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" Response.End End If success = json.Load(responseBody) ' Show the full JSON response.. Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' The success JSON looks like this: ' { ' "result": "success", ' "clients": [ ' { ' "id": 9571218, ' "firstName": "Joe", ' "lastName": "Miller", ' "companyName": "Miller Bakery", ' "businessType": "Licensed Bakery", ' "leadSource": "", ' "emailAddress": null, ' "phoneNumber": null, ' "mobileNumber": null, ' "faxNumber": null, ' "notes": "", ' "deleted": false, ' "hasRecentJobs": false, ' "created": "2016-10-31T13:02:07+00:00", ' "modified": "2016-10-31T13:02:07+00:00", ' "billingClient": null, ' "account": { ' "id": 39409 ' }, ' "address": { ' "line1": "1832 Pennsylvania Avenue NW", ' "line2": "", ' "city": "Washington", ' "postcode": "20006", ' "latitude": 0, ' "longitude": 0 ' }, ' "mailingAddress": { ' "line1": "", ' "line2": "", ' "city": "" ' } ' } ' ], ' "metadata": { ' "receivedItemsCount": 1, ' "validItems": [ ' 0 ' ], ' "invalidItems": [ ' ] ' } ' } ' ' %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.