Loop through objects to get the property name

[bcmartinez]

Loop through objects to get the property name

[rcdmk]

Hello!
The JSONobject class has a property that gives you access to the collection of JSON properties:

<%
Dim json, projects, project, template

Set json = New JSONobject
json.Parse(jsonString)

projects = json("projectTypes").pairs ' this is the list of name-value pairs that store the parsed JSON data properties

' you can iterate the pairs with regular for or for each loops
For Each project In projects
    Response.Write project.name & ": " ' this is the key for the each child and will write "Project Template: " in that example

    Set template = project.value ' this is the child JSONobject
    Response.Write template("name") & " - " & template("ID") & "<br>" ' this will write "My Template Name - 123<br>"
Next
%>

[bcmartinez]

@rcdmk - Thank you!