I have a task to display a unique json.
I've tried always fail.
Message Error :
"The server committed a protocol violation. Section=ResponseHeader Detail=CR must be followed by LF"
Please help me so that my script can run.
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="jsonKsystem.aspx.vb" Inherits="Admin_NSCFinance.jsonKsystem" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:GridView ID="grdView" runat="server" AutoGenerateColumns="true" Width="100%" CellPadding="4" ForeColor="#333333" GridLines="None" EmptyDataText="Data Not Found">
<AlternatingRowStyle BackColor="White" />
<EditRowStyle BackColor="#7C6F57" />
<FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
<HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" />
<RowStyle BackColor="#E3EAEB" />
<SelectedRowStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />
<SortedAscendingCellStyle BackColor="#F8FAFA" />
<SortedAscendingHeaderStyle BackColor="#246B61" />
<SortedDescendingCellStyle BackColor="#D4DFE1" />
<SortedDescendingHeaderStyle BackColor="#15524A" />
</asp:GridView>
<hr />
<asp:Button ID="btnSimpan" runat="server" Text="Simpan" />
</div>
</form>
</body>
</html>
Imports System.Web.Services
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Web
Imports System.Web.Script.Serialization
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Net
Imports Newtonsoft.Json.Linq
Public Class jsonKsystem
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
BindData()
End If
End Sub
Private Sub BindData()
Dim dt As New DataTable()
dt.Columns.AddRange(New DataColumn(10) {New DataColumn("error", GetType(String)), New DataColumn("error_message", GetType(String)),
New DataColumn("MASTER__NoKTP", GetType(String)), New DataColumn("MASTER__Nama", GetType(String)),
New DataColumn("MASTER__AlamatMaster", GetType(String)), New DataColumn("DETAIL__TanggalBeli", GetType(Date)),
New DataColumn("DETAIL__TanggalJTP", GetType(Date)), New DataColumn("DETAIL__TipeMotor", GetType(String)),
New DataColumn("DETAIL__Ke", GetType(Double)), New DataColumn("DETAIL__StatusFaktur ", GetType(String)), New DataColumn("DETAIL__Plat", GetType(String))})
Dim url As String = New System.Net.WebClient().DownloadString("http://222.124.22.166/nsapi?type=INFOPK&noktp=3202110611900004")
Dim jsonArray As JArray = JArray.Parse("[" + url.Trim() + "]")
For i As Integer = 0 To jsonArray.Count - 1
Dim isiData As Infos = (New JavaScriptSerializer()).Deserialize(Of Infos)(jsonArray(i).ToString())
For j As Integer = 0 To isiData.detail.Count - 1
Dim dr As DataRow = dt.NewRow()
dr("error") = isiData.error
dr("error_message") = isiData.error_message
dr("master_ktp") = isiData.master_ktp
dr("master_nama") = isiData.master_nama
dr("master_alamat") = isiData.master_alamat
dr("tgl_beli") = isiData.detail(j).tgl_beli
dr("tgl_jtp") = isiData.detail(j).tgl_jtp
dr("tipe_motor") = isiData.detail(j).tipe_motor
dr("sts_faktur") = isiData.detail(j).sts_faktur
dr("plat_no") = isiData.detail(j).plat_no
dt.Rows.Add(dr)
Next
Next
If dt.Rows.Count > 0 Then
'Bind DataTable to your GridView
grdView.DataSource = dt
grdView.DataBind()
End If
End Sub
Public Class Infos
Public Property error_message() As String
Get
Return m_error_message
End Get
Set(value As String)
m_error_message = value
End Set
End Property
Private m_error_message As String
Public Property [error]() As String
Get
Return m_error
End Get
Set(value As String)
m_error = value
End Set
End Property
Private m_error As String
Public Property master_ktp() As String
Get
Return m_master_ktp
End Get
Set(value As String)
m_master_ktp = value
End Set
End Property
Private m_master_ktp As String
Public Property master_nama() As String
Get
Return m_master_nama
End Get
Set(value As String)
m_master_nama = value
End Set
End Property
Private m_master_nama As String
Public Property master_alamat() As String
Get
Return m_master_alamat
End Get
Set(value As String)
m_master_alamat = value
End Set
End Property
Private m_master_alamat As String
Private m_detail As List(Of Detail)
Public Property detail() As List(Of Detail)
Get
Return m_detail
End Get
Set(value As List(Of Detail))
m_detail = value
End Set
End Property
End Class
Public Class Detail
Public Property tgl_beli() As String
Get
Return m_tgl_beli
End Get
Set(value As String)
m_tgl_beli = value
End Set
End Property
Private m_tgl_beli As String
Public Property tgl_jtp() As String
Get
Return m_tgl_jtp
End Get
Set(value As String)
m_tgl_jtp = value
End Set
End Property
Private m_tgl_jtp As String
Public Property tipe_motor() As String
Get
Return m_tipe_motor
End Get
Set(value As String)
m_tipe_motor = value
End Set
End Property
Private m_tipe_motor As String
Public Property ke() As String
Get
Return m_ke
End Get
Set(value As String)
m_ke = value
End Set
End Property
Private m_ke As String
Public Property sts_faktur() As String
Get
Return m_sts_faktur
End Get
Set(value As String)
m_sts_faktur = value
End Set
End Property
Private m_sts_faktur As String
Public Property plat_no() As String
Get
Return m_plat_no
End Get
Set(value As String)
m_plat_no = value
End Set
End Property
Private m_plat_no As String
End Class
End Class
