Subversion Repositories DevTools

Rev

Rev 5102 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5102 Rev 5283
Line 53... Line 53...
53 
 
 53 
 
54 
' Basic Header
 54 
' Basic Header
55 
'   iTotalRecords = total records without any filtering/limits
 55 
'   iTotalRecords = total records without any filtering/limits
56 
'   iTotalDisplayRecords = filtered result count
 56 
'   iTotalDisplayRecords = filtered result count
57 
 
 57 
 
58 
oJSON.data("sEcho") = CInt(Request.QueryString("sEcho"))
 58 
oJSON.data("sEcho") = CLng(Request.QueryString("sEcho"))
59 
oJSON.data("iTotalRecords") = MaxCount
 59 
oJSON.data("iTotalRecords") = MaxCount
60 
oJSON.data("iTotalDisplayRecords") = MaxCount
 60 
oJSON.data("iTotalDisplayRecords") = MaxCount
61 
 
 61 
 
62 
' Assist in debug
 62 
' Assist in debug
63 
oJSON.data("iReqDisplayStart") = CInt(Request.QueryString("iDisplayStart"))
 63 
oJSON.data("iReqDisplayStart") = CLng(Request.QueryString("iDisplayStart"))
64 
oJSON.data("iReqDisplayLength") = CInt(Request.QueryString("iDisplayLength"))
 64 
oJSON.data("iReqDisplayLength") = CLng(Request.QueryString("iDisplayLength"))
65 
 
 65 
 
66 
Dim vName
 66 
Dim vName
67 
for each vName in Request.QueryString
 67 
for each vName in Request.QueryString
68 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
 68 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
69 
next
 69 
next
70 
 
 70 
 
71 
' Extract selected range
 71 
' Extract selected range
72 
result = 0
 72 
result = 0
73 
dim firstRow,lastRow
 73 
dim firstRow,lastRow
74 
firstRow = CInt(Request.QueryString("iDisplayStart"))
 74 
firstRow = CLng(Request.QueryString("iDisplayStart"))
75 
lastRow = firstRow + CInt(Request.QueryString("iDisplayLength"))
 75 
lastRow = firstRow + CLng(Request.QueryString("iDisplayLength"))
76 
 
 76 
 
77 
' Define the data items to extract from the database
 77 
' Define the data items to extract from the database
78 
' An array of items to extract
 78 
' An array of items to extract
79 
'
 79 
'
80 
Dim dataCols: dataCols = Array ( _
 80 
Dim dataCols: dataCols = Array ( _
Line 109... Line 109...
109 
' Dim determine sorting options
 109 
' Dim determine sorting options
110 
'On Error goto 0
 110 
'On Error goto 0
111 
'Response.Write "<pre>"
 111 
'Response.Write "<pre>"
112 
Dim sortString
 112 
Dim sortString
113 
If Request.QueryString("iSortCol_0") <> "" Then
 113 
If Request.QueryString("iSortCol_0") <> "" Then
114 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("iSortCol_0")))
 114 
    sortString = " ORDER BY " & sortCols(CLng(Request.QueryString("iSortCol_0")))
115 
    sortString = sortString & " " & Request.QueryString("sSortDir_0")
 115 
    sortString = sortString & " " & Request.QueryString("sSortDir_0")
116 
End If
 116 
End If
117 
 
 117 
 
118 
' Filter (search )
 118 
' Filter (search )
119 
Dim searchString
 119 
Dim searchString