Classic ASP
Iterate over JSON Array containing JSON Objects

Demonstrates how to load a JSON array and iterate over the JSON objects.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' Loads the following JSON array and iterates over the objects:
' 
' [
' {"tagId":95,"tagDescription":"hola 1","isPublic":true},
' {"tagId":98,"tagDescription":"hola 1","isPublic":true},
' {"tagId":101,"tagDescription":"hola 1","isPublic":true},
' {"tagId":104,"tagDescription":"hola 1","isPublic":true},
' {"tagId":107,"tagDescription":"hola 1","isPublic":true},
' {"tagId":110,"tagDescription":"hola 1","isPublic":true},
' {"tagId":113,"tagDescription":"hola 1","isPublic":true},
' {"tagId":114,"tagDescription":"hola 2","isPublic":true},
' {"tagId":111,"tagDescription":"hola 2","isPublic":true},
' {"tagId":108,"tagDescription":"hola 2","isPublic":true},
' {"tagId":105,"tagDescription":"hola 2","isPublic":true},
' {"tagId":102,"tagDescription":"hola 2","isPublic":true},
' {"tagId":99,"tagDescription":"hola 2","isPublic":true},
' {"tagId":96,"tagDescription":"hola 2","isPublic":true},
' {"tagId":97,"tagDescription":"hola 3","isPublic":true},
' {"tagId":100,"tagDescription":"hola 3","isPublic":true},
' {"tagId":103,"tagDescription":"hola 3","isPublic":true},
' {"tagId":106,"tagDescription":"hola 3","isPublic":true},
' {"tagId":109,"tagDescription":"hola 3","isPublic":true},
' {"tagId":112,"tagDescription":"hola 3","isPublic":true},
' {"tagId":115,"tagDescription":"hola 3","isPublic":true},
' {"tagId":93,"tagDescription":"new tag","isPublic":true},
' {"tagId":94,"tagDescription":"new tag","isPublic":true},
' {"tagId":89,"tagDescription":"tag 1","isPublic":true},
' {"tagId":90,"tagDescription":"tag 2","isPublic":true},
' {"tagId":91,"tagDescription":"tag private 1","isPublic":false},
' {"tagId":92,"tagDescription":"tag private 2","isPublic":false}
' ]

' Load a file containing the above JSON..
set sbJsonArray = Server.CreateObject("Chilkat.StringBuilder")
success = sbJsonArray.LoadFile("qa_data/json/arraySample.json","utf-8")

set arr = Server.CreateObject("Chilkat.JsonArray")
success = arr.LoadSb(sbJsonArray)

i = 0
count = arr.Size

Do While i < count
    ' obj is a Chilkat.JsonObject
    Set obj = arr.ObjectAt(i)
    tagId = obj.IntOf("tagId")
    tagDescription = obj.StringOf("tagDescription")
    isPublic = obj.BoolOf("isPublic")

    Response.Write "<pre>" & Server.HTMLEncode( "tagId: " & tagId) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "tagDescription: " & tagDescription) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "isPublic: " & isPublic) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "--") & "</pre>"

    i = i + 1
Loop

%>
</body>
</html>