Classic ASP
Swap JSON Objects

Demonstrates how to swap two JSON objects within a JSON document.
Chilkat Classic ASP Downloads

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

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

' Load the following JSON:

' {
'   "petter": {
'     "DOB": "26/02/1986",
'     "gender": "male",
'     "country": "US"
'   },
'   "Sara": {
'     "DOB": "13/05/1982",
'     "gender": "female",
'     "country": "FR"
'   },
'   "Jon": {
'     "DOB": "19/03/1984",
'     "gender": "male",
'     "country": "UK"
'   }
' }

success = json.LoadFile("qa_data/json/people.json")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( json.LastErrorText) & "</pre>"
    Response.End
End If

' Swap the positions of Jon and Sara.
index1 = json.IndexOf("Jon")
index2 = json.IndexOf("Sara")
success = json.Swap(index1,index2)

' We have this now:
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' {
'   "petter": {
'     "DOB": "26/02/1986",
'     "gender": "male",
'     "country": "US"
'   },
'   "Jon": {
'     "DOB": "19/03/1984",
'     "gender": "male",
'     "country": "UK"
'   },
'   "Sara": {
'     "DOB": "13/05/1982",
'     "gender": "female",
'     "country": "FR"
'   }
' }

' To swap an inner member:

set jsonSara = Server.CreateObject("Chilkat.JsonObject")
success = json.ObjectOf2("Sara",jsonSara)

index1 = jsonSara.IndexOf("DOB")
index2 = jsonSara.IndexOf("country")
success = jsonSara.Swap(index1,index2)

' We now have this:
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' {
'   "petter": {
'     "DOB": "26/02/1986",
'     "gender": "male",
'     "country": "US"
'   },
'   "Jon": {
'     "DOB": "19/03/1984",
'     "gender": "male",
'     "country": "UK"
'   },
'   "Sara": {
'     "country": "FR",
'     "gender": "female",
'     "DOB": "13/05/1982"
'   }
' }

%>
</body>
</html>