(Classic ASP) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

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>
<%
set arr = Server.CreateObject("Chilkat_9_5_0.JsonArray")

'  Add an empty object at the 1st JSON array position.
success = arr.AddObjectAt(0)
'  Get the object we just created.
' obj is a Chilkat_9_5_0.JsonObject
Set obj = arr.ObjectAt(0)
success = obj.UpdateString("Name","Otto")
success = obj.UpdateInt("Age",29)
success = obj.UpdateBool("Married",0)

'  Add an empty object at the 2nd JSON array position.
success = arr.AddObjectAt(1)
' obj is a Chilkat_9_5_0.JsonObject
Set obj = arr.ObjectAt(1)
success = obj.UpdateString("Name","Connor")
success = obj.UpdateInt("Age",43)
success = obj.UpdateBool("Married",1)

'  Add an empty object at the 3rd JSON array position.
success = arr.AddObjectAt(2)
' obj is a Chilkat_9_5_0.JsonObject
Set obj = arr.ObjectAt(2)
success = obj.UpdateString("Name","Ramona")
success = obj.UpdateInt("Age",34)
success = obj.UpdateBool("Married",1)

'  Examine what we have:
arr.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( arr.Emit()) & "</pre>"

'  The output is:

'  [
'    {
'      "Name": "Otto",
'      "Age": 29,
'      "Married": false
'    },
'    {
'      "Name": "Connor",
'      "Age": 43,
'      "Married": true
'    },
'    {
'      "Name": "Ramona",
'      "Age": 34,
'      "Married": true
'    }
'  ]

%>
</body>
</html>