(Classic ASP) Firebase GET - Reading Data

Demonstrates how to read parts of 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 read parts of 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

' If authentication is required...
' 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

' Let's get the animals with the shallow parameter so we can see how many pigs exist.
jsonResponse = rest.FullRequestNoBody("GET","/pig-rescue/animal.json?shallow=true")
If (rest.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

' The JSON returned should look like this:  
' {"-KI3bD-FU_Dake7sYOiP":true,"-KI3bD-FU_Dake7sYOiT":true,"-KI3bD-FU_Dake7sYOiS":true,"-KI3bD-FU_Dake7sYOiU":true,"-KI3bD-FU_Dake7sYOiV":true,"-KI3bD-FU_Dake7sYOiR":true,"-KI3bD-FU_Dake7sYOiQ":true}
Response.Write "<pre>" & Server.HTMLEncode( jsonResponse) & "</pre>"

' Parse the response so we can iterate over each pig in the database..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set piggyPath = Server.CreateObject("Chilkat.StringBuilder")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set shallow = Server.CreateObject("Chilkat.JsonObject")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set piggyData = Server.CreateObject("Chilkat.JsonObject")
success = shallow.Load(jsonResponse)
count = shallow.Size
i = 0
Do While i < count

    ' Get each individual pig's data.
    piggyPath.Clear 
    success = piggyPath.Append("/pig-rescue/animal/")
    success = piggyPath.Append(shallow.NameAt(i))
    success = piggyPath.Append("/.json")

    piggyJson = rest.FullRequestNoBody("GET",piggyPath.GetAsString())
    If (rest.LastMethodSuccess <> 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
        Response.End
    End If

    ' Show this piggy's data...
    ' An example of one pig's data is shown here:
    ' {"birth":"February, 1998","from":"Middle Ave.","gender":"F","in-date":"January, 2000",
    '   "name":"Molly II","picture":{"caption":"Molly in the Pasture","description":"Black pig","file":"molly_th.jpg"},
    '   "species":"pot belly pig","type":"Cathy's Herd"}
    Response.Write "<pre>" & Server.HTMLEncode( "---- " & i & " ----") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( piggyJson) & "</pre>"

    ' Let's get the pig's name, and the caption of the picture.
    success = piggyData.Load(piggyJson)
    Response.Write "<pre>" & Server.HTMLEncode( "name: " & piggyData.StringOf("name")) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "caption: " & piggyData.StringOf("picture.caption")) & "</pre>"

    i = i + 1
Loop

' 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 piggyPath (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>