Read Json

<%@ Language=VBScript %>

<!--#include file="aspJSON.asp" -->
<%
dim jsonstring,oJSON

jsonstring ="{""data"":[{""ClientID"":271,""DisplayOrder"":0,""Extension"":"""",""Label"":"""",""LastUpdate"":""4/27/2017 5:32:53 PM"",""Number"":""0005551212"",""Number_Formatted"":""(000) 555-1212"",""Preferred"":false,""RecAdd"":""/Date(1492142981000-0700)/"",""RecAddUser"":0,""RecID"":330,""SharedPhoneNumber"":false,""SpeedDial"":"""",""Type"":""Home"",""TypeID"":""HM""},{""ClientID"":271,""DisplayOrder"":0,""Extension"":"""",""Label"":""Mobile"",""LastUpdate"":""5/24/2017 6:58:57 PM"",""Number"":""0004441111"",""Number_Formatted"":""(000) 555-1212"",""Preferred"":false,""RecAdd"":""/Date(1492142981000-0700)/"",""RecAddUser"":0,""RecID"":331,""SharedPhoneNumber"":false,""SpeedDial"":"""",""Type"":""Cellular"",""TypeID"":""CL""}],""TotalRecords"":2}"

Set oJSON = New aspJSON
oJSON.loadJSON(jsonstring)

For Each result In oJSON.data("data")

    Set this = oJSON.data("data").item(data)

    var_deliveryNo = this.item("ClientID")
    var_content = this.item("DisplayOrder")

    response.write "ClientID: " & var_deliveryNo & "<br />"
    response.write "DisplayOrder: " & var_content & "<br />"

Next
%>