Classic ASP Requires Chilkat v11.0.0+
Insert JSON Array into another JSON Object

Demonstrates how to insert a JSON array into a JSON object.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  Imagine we have two separate JSON objects.
set jsonA = Server.CreateObject("Chilkat.JsonObject")
success = jsonA.UpdateString("ciphertext","encryptedData")
success = jsonA.UpdateInt("status",200)
success = jsonA.UpdateString("error","errorMsg")

jsonA.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( jsonA.Emit()) & "</pre>"

'  jsonA contains:

'  {
'    "ciphertext": "encryptedData",
'    "status": 200,
'    "error": "errorMsg"
'  }

set jsonB = Server.CreateObject("Chilkat.JsonObject")
success = jsonB.UpdateString("users[0].role","Surgeon")
success = jsonB.UpdateNewArray("users[0].sub_roles")
success = jsonB.UpdateBool("users[0].viewable_for_sharing",1)
success = jsonB.UpdateInt("users[0].eula_create_date",123)
success = jsonB.UpdateString("users[1].role","Support")
success = jsonB.UpdateString("users[1].sub_roles[0]","Tech")
success = jsonB.UpdateString("users[1].sub_roles[1]","Service")
success = jsonB.UpdateBool("users[1].viewable_for_sharing",1)
success = jsonB.UpdateInt("users[1].eula_create_date",123)

jsonB.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( jsonB.Emit()) & "</pre>"

'  jsonB contains:

'  {
'    "users": [
'      {
'        "role": "Surgeon",
'        "sub_roles": [],
'        "viewable_for_sharing": true,
'        "eula_create_date": 1649108922482
'      },
'      {
'        "role": "Support",
'        "sub_roles": [
'          "Tech",
'          "Service"
'        ],
'        "viewable_for_sharing": true,
'        "eula_create_date": 1649108951523
'      }
'    ]
'  }

'  Let's say we want to insert jsonB into jsonA to get this:

'  {
'    "ciphertext": "encryptedData",
'    "status": 200,
'    "error": "errorMsg",
'    "users": [
'      {
'        "role": "Surgeon",
'        "sub_roles": [],
'        "viewable_for_sharing": true,
'        "eula_create_date": 1649108922482
'      },
'      {
'        "role": "Support",
'        "sub_roles": [
'          "Tech",
'          "Service"
'        ],
'        "viewable_for_sharing": true,
'        "eula_create_date": 1649108951523
'      }
'    ]
'  }

'  The destination is the empty "users" array, the source is the populated "users" array in jsonB.
set jsonUsersDest = Server.CreateObject("Chilkat.JsonArray")
success = jsonA.AppendArray2("users",jsonUsersDest)

set jsonUsersSrc = Server.CreateObject("Chilkat.JsonArray")
success = jsonB.ArrayOf2("users",jsonUsersSrc)

'  Copy the array items from source to dest
success = jsonUsersDest.AppendArrayItems(jsonUsersSrc)

Response.Write "<pre>" & Server.HTMLEncode( jsonA.Emit()) & "</pre>"

'  The end result is this:

'  {
'    "ciphertext": "encryptedData",
'    "status": 200,
'    "error": "errorMsg",
'    "users": [
'      {
'        "role": "Surgeon",
'        "sub_roles": [
'        ],
'        "viewable_for_sharing": true,
'        "eula_create_date": 123
'      },
'      {
'        "role": "Support",
'        "sub_roles": [
'          "Tech",
'          "Service"
'        ],
'        "viewable_for_sharing": true,
'        "eula_create_date": 123
'      }
'    ]
'  }

%>
</body>
</html>