Subversion Repositories DevTools

Rev

Rev 5957 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5957 Rev 7250
Line 51... Line 51...
51 
 
 51 
 
52 
' Basic Header
 52 
' Basic Header
53 
'   iTotalRecords = total records without any filtering/limits
 53 
'   iTotalRecords = total records without any filtering/limits
54 
'   iTotalDisplayRecords = filtered result count
 54 
'   iTotalDisplayRecords = filtered result count
55 
 
 55 
 
56 
oJSON.data("sEcho") = CInt(Request.QueryString("sEcho"))
 56 
oJSON.data("draw") = CInt(Request.QueryString("draw"))
57 
oJSON.data("iTotalRecords") = MaxCount
 57 
oJSON.data("recordsTotal") = MaxCount
58 
oJSON.data("iTotalDisplayRecords") = MaxCount
 58 
oJSON.data("recordsFiltered") = MaxCount
59 
 
 59 
 
60 
' Assist in debug
 60 
' Assist in debug
61 
oJSON.data("iReqDisplayStart") = CInt(Request.QueryString("iDisplayStart"))
 61 
oJSON.data("iReqStart") = CInt(Request.QueryString("start"))
62 
oJSON.data("iReqDisplayLength") = CInt(Request.QueryString("iDisplayLength"))
 62 
oJSON.data("iReqLength") = CInt(Request.QueryString("length"))
63 
 
 63 
 
64 
Dim vName
 64 
Dim vName
65 
for each vName in Request.QueryString
 65 
for each vName in Request.QueryString
66 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
 66 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
67 
next
 67 
next
68 
 
 68 
 
69 
' Extract selected range
 69 
' Extract selected range
70 
result = 0
 70 
result = 0
71 
dim firstRow,lastRow
 71 
dim firstRow,lastRow
72 
firstRow = CInt(Request.QueryString("iDisplayStart"))
 72 
firstRow = CInt(Request.QueryString("start"))
73 
lastRow = firstRow + CInt(Request.QueryString("iDisplayLength"))
 73 
lastRow = firstRow + CInt(Request.QueryString("length"))
74 
 
 74 
 
75 
' Define the data items to extract from the database
 75 
' Define the data items to extract from the database
76 
' An array of items to extract
 76 
' An array of items to extract
77 
'
 77 
'
78 
Dim dataCols: dataCols = Array ( _
 78 
Dim dataCols: dataCols = Array ( _
Line 95... Line 95...
95 
 
 95 
 
96 
' Dim determine sorting options
 96 
' Dim determine sorting options
97 
'On Error goto 0
 97 
'On Error goto 0
98 
'Response.Write "<pre>"
 98 
'Response.Write "<pre>"
99 
Dim sortString
 99 
Dim sortString
100 
If Request.QueryString("iSortCol_0") <> "" Then
 100 
If Request.QueryString("order[0][column]") <> "" Then
101 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("iSortCol_0")))
 101 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("order[0][column]")))
102 
    sortString = sortString & " " & Request.QueryString("sSortDir_0")
 102 
    sortString = sortString & " " & Request.QueryString("order[0][dir]")
103 
Else
 103 
Else
104 
    sortString = " ORDER BY " & sortCols(CInt(1)) & "asc"
 104 
    sortString = " ORDER BY " & sortCols(CInt(1)) & "asc"
105 
End If
 105 
End If
106 
 
 106 
 
107 
' Filter (search )
 107 
' Filter (search )
108 
Dim searchString
 108 
Dim searchString
109 
If Request.QueryString("sSearch") <> "" Then
 109 
If Request.QueryString("sSearch") <> "" Then
110 
    searchString = " AND upper(sdk_name) LIKE upper('%" & Request.QueryString("sSearch") & "%')"
110 
    searchString = " AND upper(sdk_name) LIKE upper('%" & Request.QueryString("search[value]") & "%')"
111 
End If
 111 
End If
112 
 
 112 
 
113 
' Create a list of cols that we need. Avoids ambiguity in selections
 113 
' Create a list of cols that we need. Avoids ambiguity in selections
114 
Dim x,colList,colListJoin
 114 
Dim x,colList,colListJoin
115 
For x = Lbound(dataCols) to Ubound(dataCols)
 115 
For x = Lbound(dataCols) to Ubound(dataCols)