(Classic ASP) Create more Complex JSON Document

Sample code to create the following JSON document:

    {  
        "Title": "The Cuckoo's Calling",  
        "Author": "Robert Galbraith",  
        "Genre": "classic crime novel",  
        "Detail": {  
            "Publisher": "Little Brown",  
            "Publication_Year": 2013,  
            "ISBN-13": 9781408704004,  
            "Language": "English",  
            "Pages": 494  
        },  
        "Price": [  
            {  
                "type": "Hardcover",  
                "price": 16.65  
            },  
            {  
                "type": "Kindle Edition",  
                "price": 7.00  
            }  
        ]  
    }

Note: This example requires Chilkat v11.1.0 or greater.

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>
<%
success = 0

set json = Server.CreateObject("Chilkat.JsonObject")

' The only reason for failure in the following lines of code would be an out-of-memory condition..

' An index value of -1 is used to append at the end.
index = -1

success = json.AddStringAt(-1,"Title","The Cuckoo's Calling")
success = json.AddStringAt(-1,"Author","Robert Galbraith")
success = json.AddStringAt(-1,"Genre","classic crime novel")

' Let's create the Detail JSON object:
set detail = Server.CreateObject("Chilkat.JsonObject")
success = json.AppendObject2("Detail",detail)

success = detail.AddStringAt(-1,"Publisher","Little Brown")
success = detail.AddIntAt(-1,"Publication_Year",2013)
success = detail.AddNumberAt(-1,"ISBN-13","9781408704004")
success = detail.AddStringAt(-1,"Language","English")
success = detail.AddIntAt(-1,"Pages",494)

' Add the array for Price
set aPrice = Server.CreateObject("Chilkat.JsonArray")
success = json.AppendArray2("Price",aPrice)

' Entry in aPrice will be a JSON object.

' Append a new/empty ojbect to the end of the aPrice array.
set priceObj = Server.CreateObject("Chilkat.JsonObject")

success = aPrice.AddObjectAt2(-1,priceObj)
success = priceObj.AddStringAt(-1,"type","Hardcover")
success = priceObj.AddNumberAt(-1,"price","16.65")

success = aPrice.AddObjectAt2(-1,priceObj)
success = priceObj.AddStringAt(-1,"type","Kindle Edition")
success = priceObj.AddNumberAt(-1,"price","7.00")

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

%>
</body>
</html>