(Classic ASP) Firebase PUT - Writing Data

Demonstrates how to PUT new data to a Firebase JSON database. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' Demonstrates how to PUT new data to a Firebase JSON database.

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

' This example assumes a JWT authentication token, if required, has been previously obtained.
' See Get Firebase Access Token from JSON Service Account Private Key for sample code.

' Load the previously obtained Firebase access token into a string.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess")
set fac = Server.CreateObject("Chilkat.FileAccess")
accessToken = fac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8")
If (fac.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( fac.LastErrorText) & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest")
set rest = Server.CreateObject("Chilkat.Rest")

' Make the initial connection (without sending a request yet).
' Once connected, any number of requests may be sent.  It is not necessary to explicitly
' call Connect before each request.  
success = rest.Connect("chilkat.firebaseio.com",443,1,1)
If (success <> 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.AuthGoogle")
set authGoogle = Server.CreateObject("Chilkat.AuthGoogle")
authGoogle.AccessToken = accessToken
success = rest.SetAuthGoogle(authGoogle)

' Chilkat's sample data (pig-rescue data) is publicly readable at: https://chilkat.firebaseio.com/.json
' This data is publicly readable, but not writable.  You'll need to 
' run against your own database..

' Generate a new push ID.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Prng")
set prng = Server.CreateObject("Chilkat.Prng")
pushId = prng.FirebasePushId()

' We're going to add a new pig with just the name.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set pigRecord = Server.CreateObject("Chilkat.JsonObject")
success = pigRecord.AppendString("name","William")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set path = Server.CreateObject("Chilkat.StringBuilder")
success = path.Append("/pig-rescue/animal/")
success = path.Append(pushId)
success = path.Append(".json")

' The string content of the last arg passed is  {"name":"William"} 
jsonResponse = rest.FullRequestString("PUT",path.GetAsString(),pigRecord.Emit())
If (rest.LastMethodSuccess <> 1) Then
    ' Something happened in the communications (either no request was sent, or no response was received.
    ' (The Chilkat REST API also has lower-level methods where an app can send the request in one call,
    ' and then receive the response in another call.)
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

' Check the response status code.   A 200 response status indicates success.
If (rest.ResponseStatusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseStatusText) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( jsonResponse) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
    Response.End
End If

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

' Note: In many of the Chilkat examples, you may notice strange ways
' of doing something that should be simpler and shorter.  For example,
' building the path (above) could've been written differently,
' with some simple string concatenation.
' 
' The reason is that the Chilkat examples are written in a 
' proprietary "example code" scripting language,
' and then automatically generated to each of the different programming
' languages you see on example-code.com.  The code generation is
' limited in what it can do.  For example, string concatentation
' is not yet a feature of the "example code" scripting language (as of May 2016), 
' and therefore you won't see the use of a programming language's string
' concatentation operators in any example.  
' 

%>
</body>
</html>