Download the dll from this link
JSON.Net
http://json.codeplex.com/
HTML
<asp:GridView ID="GridView1" HeaderStyle-BackColor="#3AC0F2" HeaderStyle-ForeColor="White"
runat="server" AutoGenerateColumns="true">
</asp:GridView>
Namespace
Imports System.Data
Imports System.Net
Imports Newtonsoft.Json.Linq
VB.Net
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
Dim qcount As Integer = 0
Dim sb As New StringBuilder()
Dim c As New WebClient()
Dim data As String = New System.Net.WebClient().DownloadString("http://epgops.ndtv.com/epgfeed/?authkey=apps-epgmobio-58b4b3b23b0fe97f8111f614ac8c1be4&type=channelepg&channelid=ndtv%2024x7")
Dim obj As JObject = JObject.Parse(data)
Dim Totaldatacount As Integer = obj.Item("record").Count
Dim dt As New DataTable()
dt.Columns.AddRange(New DataColumn(5) {New DataColumn("ID", GetType(Integer)), New DataColumn("DATE", GetType(String)), New DataColumn("TIME", GetType(String)), New DataColumn("PROGRAMME", GetType(String)), New DataColumn("SYNOPSIS", GetType(String)), New DataColumn("DURATION", GetType(String))})
If obj.Item("record").Count >= 1 Then
While qcount < Totaldatacount
Dim id As String = obj.Item("record").Item(qcount).Item("id").ToString()
Dim [date] As String = obj.Item("record").Item(qcount).Item("Date").ToString()
Dim time As String = obj.Item("record").Item(qcount).Item("Time").ToString()
Dim program As String = obj.Item("record").Item(qcount).Item("programme").ToString()
Dim synosis As String = obj.Item("record").Item(qcount).Item("synopsis").ToString()
Dim duration As String = obj.Item("record").Item(qcount).Item("duration").ToString()
dt.Rows.Add(id, [date], time, program, synosis, duration)
qcount = qcount + 1
End While
End If
If dt.Rows.Count > 0 Then
'Bind DataTable to your GridView
GridView1.DataSource = dt
GridView1.DataBind()
End If
End Sub
