Subversion Repositories DevTools

Rev

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

Rev 5053 Rev 5054
Line 2... Line 2...
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'       sdk_content_json.asp
 4 
'       sdk_content_json.asp
5 
'       Ajax support for table of SDK Content
 5 
'       Ajax support for table of SDK Content
6 
'       Designed to be driven by the jquery tablescroller
 6 
'       Designed to be driven by the jquery tablescroller
- 
 
 7 
'       Uses DataTables 1.10 format data
7 
'=====================================================
 8 
'=====================================================
8 
%>
 9 
%>
9 
<%
 10 
<%
10 
Option explicit
 11 
Option explicit
11 
' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)
 12 
' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)
Line 56... Line 57...
56 
 
 57 
 
57 
' Basic Header
 58 
' Basic Header
58 
'   iTotalRecords = total records without any filtering/limits
 59 
'   iTotalRecords = total records without any filtering/limits
59 
'   iTotalDisplayRecords = filtered result count
 60 
'   iTotalDisplayRecords = filtered result count
60 
 
 61 
 
61 
oJSON.data("sEcho") = CInt(Request.QueryString("sEcho"))
 62 
oJSON.data("draw") = CInt(Request.QueryString("draw"))
62 
oJSON.data("iTotalRecords") = MaxCount
 63 
oJSON.data("recordsTotal") = MaxCount
63 
oJSON.data("iTotalDisplayRecords") = MaxCount
 64 
oJSON.data("recordsFiltered") = MaxCount
64 
 
 - 
 
65 
' Assist in debug
 - 
 
66 
oJSON.data("iReqDisplayStart") = CInt(Request.QueryString("iDisplayStart"))
 - 
 
67 
oJSON.data("iReqDisplayLength") = CInt(Request.QueryString("iDisplayLength"))
 - 
 
68 
 
 65 
 
69 
Dim vName
 66 
Dim vName
70 
for each vName in Request.QueryString
 67 
for each vName in Request.QueryString
71 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
 68 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
72 
next
 69 
next
73 
 
 70 
 
74 
' Extract selected range
 71 
' Extract selected range
75 
result = 0
 72 
result = 0
76 
dim firstRow,lastRow
 73 
dim firstRow,lastRow
77 
firstRow = CInt(Request.QueryString("iDisplayStart"))
 74 
firstRow = CInt(Request.QueryString("start"))
78 
lastRow = firstRow + CInt(Request.QueryString("iDisplayLength"))
 75 
lastRow = firstRow + CInt(Request.QueryString("length"))
79 
 
 76 
 
80 
' Define the data items to extract from the database
 77 
' Define the data items to extract from the database
81 
' An array of items to extract
 78 
' An array of items to extract
82 
'
 79 
'
83 
Dim dataCols: dataCols = Array ( _
80 
Dim dataCols: dataCols = Array ( _
Line 96... Line 93...
96 
 
 93 
 
97 
' Dim determine sorting options
 94 
' Dim determine sorting options
98 
'On Error goto 0
 95 
'On Error goto 0
99 
'Response.Write "<pre>"
 96 
'Response.Write "<pre>"
100 
Dim sortString
 97 
Dim sortString
101 
If Request.QueryString("iSortCol_0") <> "" Then
 98 
If Request.QueryString("order[0][column]") <> "" Then
102 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("iSortCol_0")))
 99 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("order[0][column]")))
103 
    sortString = sortString & " " & Request.QueryString("sSortDir_0")
 100 
    sortString = sortString & " " & Request.QueryString("order[0][dir]")
104 
    sortString = sortString & "," & sortCols(CInt(1)) & " asc"
 101 
    sortString = sortString & "," & sortCols(CInt(1)) & " asc"
105 
Else
 102 
Else
106 
    sortString = " ORDER BY " & sortCols(CInt(1)) & " asc"
 103 
    sortString = " ORDER BY " & sortCols(CInt(1)) & " asc"
107 
End If
 104 
End If
108 
 
 105 
 
109 
' Filter (search )
 106 
' Filter (search )
110 
Dim searchString : searchString = ""
 107 
Dim searchString : searchString = ""
111 
If Request.QueryString("sSearch") <> "" Then
 108 
If Request.QueryString("search[value]") <> "" Then
112 
    searchString = " AND upper(pkg_name) || '_' || UPPER(pv.pkg_version) LIKE upper('%" & Request.QueryString("sSearch") & "%')"
109 
    searchString = " AND upper(pkg_name) || '_' || UPPER(pv.pkg_version) LIKE upper('%" & Request.QueryString("search[value]") & "%')"
113 
End If
 110 
End If
114 
 
 111 
 
115 
If sdk_statefilter Then
 112 
If sdk_statefilter Then
116 
    searchString = searchString & " AND sc.sdkpkg_state in ('E')"
 113 
    searchString = searchString & " AND sc.sdkpkg_state in ('E')"
117 
End If
 114 
End If
Line 166... Line 163...
166 
rsQry.Close
 163 
rsQry.Close
167 
Set rsQry = Nothing
 164 
Set rsQry = Nothing
168 
 
 165 
 
169 
'
 166 
'
170 
' SQL error detection and reporting
 167 
' SQL error detection and reporting
- 
 
 168 
'   The content of 'error' will be dsplayed to the user.
171 
If objEH.LastOraFailed Then
 169 
If objEH.LastOraFailed Then
172 
    oJSON.data("error") = 1
 - 
 
173 
 
 - 
 
174 
    oJSON.data("emsgSummary") = objEH.MessageSummary
 170 
    oJSON.data("error") = objEH.MessageSummary
175 
    oJSON.data("emsgDetails") = objEH.MessageDetails
 171 
    oJSON.data("emsgDetails") = objEH.MessageDetails
176 
    oJSON.data("SqlQry") = SqlQry
 172 
    oJSON.data("SqlQry") = SqlQry
177 
End If
 173 
End If
178 
 
 174 
 
179 
'Return the object
 175 
'Return the object