Basic JSON

data={
    rows:[
        { id:1, data: ["A Time to Kill", "John Grisham", "100"]},
        { id:2, data: ["Blood and Smoke", "Stephen King", "1000"]},
        { id:3, data: ["The Rainmaker", "John Grisham", "-200"]}
    ]
};

Native JSON format

data= {"total_count":50000, "pos":0, "data":[
  { "col1": "A Time to Kill",
    "col2": "John Grisham",
    "col3": "100"
  },
  { "col1": "Blood and Smoke",
    "col2": "Stephen King",
    "col3": "1000"
  }
  { "col1": "The Rainmaker",
    "col2": "John Grisham",
    "col3": "-200"
  }
]};

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim js As New JavaScriptSerializer
        Dim prList As New List(Of Project)
        
        prList.Add(New Project() With {.WBS1 = "123", .WBS2 = "123", .WBS3 = "123"})
        prList.Add(New Project() With {.WBS1 = "123", .WBS2 = "123", .WBS3 = "123"})
        
        Dim sss As String
        sss = js.Serialize(prList)
        context.Response.ContentType = "application/json"
        context.Response.Write(sss)
    End Sub

[{"WBS1":"123","WBS2":"123","WBS3":"123"},{"WBS1":"123","WBS2":"123","WBS3":"123"}]