Subversion Repositories DevTools

Rev

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

Rev 5050 Rev 5055
Line 52... Line 52...
52 
 
 52 
 
53 
' Basic Header
 53 
' Basic Header
54 
'   iTotalRecords = total records without any filtering/limits
 54 
'   iTotalRecords = total records without any filtering/limits
55 
'   iTotalDisplayRecords = filtered result count
 55 
'   iTotalDisplayRecords = filtered result count
56 
 
 56 
 
57 
oJSON.data("sEcho") = CInt(Request.QueryString("sEcho"))
 57 
oJSON.data("draw") = CInt(Request.QueryString("draw"))
58 
oJSON.data("iTotalRecords") = MaxCount
 58 
oJSON.data("recordsTotal") = MaxCount
59 
oJSON.data("iTotalDisplayRecords") = MaxCount
 59 
oJSON.data("recordsFiltered") = MaxCount
60 
 
 - 
 
61 
' Assist in debug
 - 
 
62 
oJSON.data("iReqDisplayStart") = CInt(Request.QueryString("iDisplayStart"))
 - 
 
63 
oJSON.data("iReqDisplayLength") = CInt(Request.QueryString("iDisplayLength"))
 - 
 
64 
 
 60 
 
65 
Dim vName
 61 
Dim vName
66 
for each vName in Request.QueryString
 62 
for each vName in Request.QueryString
67 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
 63 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
68 
next
 64 
next
69 
 
 65 
 
70 
' Extract selected range
 66 
' Extract selected range
71 
result = 0
 67 
result = 0
72 
dim firstRow,lastRow
 68 
dim firstRow,lastRow
73 
firstRow = CInt(Request.QueryString("iDisplayStart"))
 69 
firstRow = CInt(Request.QueryString("start"))
74 
lastRow = firstRow + CInt(Request.QueryString("iDisplayLength"))
 70 
lastRow = firstRow + CInt(Request.QueryString("length"))
75 
 
 71 
 
76 
' Define the data items to extract from the database
 72 
' Define the data items to extract from the database
77 
' An array of items to extract
 73 
' An array of items to extract
78 
'
 74 
'
79 
Dim dataCols: dataCols = Array ( _
75 
Dim dataCols: dataCols = Array ( _
80 
                "SDKTAG_ID" ,_
 76 
                "SDKTAG_ID" ,_
81 
                "SDKTAG_NAME" ,_
 77 
                "SDKTAG_NAME" ,_
82 
                "DESCRIPTION" ,_
 78 
                "DESCRIPTION" ,_
- 
 
 79 
                "TO_CHAR(CREATED_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as CREATED_STAMP_TXT" ,_
- 
 
 80 
                "USER_NAME as CREATOR_NAME" ,_
83 
                "SDK_STATE" )
 81 
                "SDK_STATE" )
84 
 
 82 
 
85 
'   Define array of colums to sort by
 83 
'   Define array of colums to sort by
86 
'       Must match user sort column request
 84 
'       Must match user sort column request
87 
Dim sortCols: sortCols = Array ( _
 85 
Dim sortCols: sortCols = Array ( _
88 
                "SDKTAG_ID" ,_
 86 
                "SDKTAG_ID" ,_
89 
                "UPPER(SDKTAG_NAME)" ,_
 87 
                "UPPER(SDKTAG_NAME)" ,_
90 
                "UPPER(DESCRIPTION)" ,_
 88 
                "UPPER(DESCRIPTION)" ,_
- 
 
 89 
                "CREATED_STAMP" ,_
- 
 
 90 
                "UPPER(CREATOR_NAME)" ,_
91 
                "UPPER(SDK_STATE)" )
 91 
                "UPPER(SDK_STATE)" )
92 
 
 92 
 
93 
' Dim determine sorting options
 93 
' Dim determine sorting options
94 
'On Error goto 0
 - 
 
95 
'Response.Write "<pre>"
 - 
 
96 
Dim sortString
 94 
Dim sortString
97 
If Request.QueryString("iSortCol_0") <> "" Then
 95 
If Request.QueryString("order[0][column]") <> "" Then
98 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("iSortCol_0")))
 96 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("order[0][column]")))
99 
    sortString = sortString & " " & Request.QueryString("sSortDir_0")
 97 
    sortString = sortString & " " & Request.QueryString("order[0][dir]")
100 
Else
 98 
Else
101 
    sortString = " ORDER BY " & sortCols(CInt(1)) & " asc"
 99 
    sortString = " ORDER BY " & sortCols(CInt(1)) & " asc"
102 
End If
 100 
End If
103 
 
 101 
 
104 
' Filter (search )
 102 
' Filter (search )
105 
Dim searchString
 103 
Dim searchString
106 
If Request.QueryString("sSearch") <> "" Then
 104 
If Request.QueryString("search[value]") <> "" Then
107 
    searchString = " AND upper(pkg_name) LIKE upper('%" & Request.QueryString("sSearch") & "%')"
105 
    searchString = " AND upper(pkg_name) LIKE upper('%" & Request.QueryString("search[value]") & "%')"
108 
End If
 106 
End If
109 
 
 107 
 
110 
' Create a list of cols that we need. Avoids ambiguity in selections
 108 
' Create a list of cols that we need. Avoids ambiguity in selections
111 
Dim x,colList,colListJoin
 109 
Dim x,colList,colListJoin
112 
For x = Lbound(dataCols) to Ubound(dataCols)
 110 
For x = Lbound(dataCols) to Ubound(dataCols)
Line 115... Line 113...
115 
Next
 113 
Next
116 
 
 114 
 
117 
Dim whereString
 115 
Dim whereString
118 
Dim BasicSql
 116 
Dim BasicSql
119 
BasicSql = "select " & colList &_
 117 
BasicSql = "select " & colList &_
120 
            " FROM SDK_TAGS " &_
 118 
            " FROM SDK_TAGS st, USERS u " &_
121 
            " where sdk_id = "&sdk_id &_
 119 
            " where sdk_id = "&sdk_id &_
- 
 
 120 
            " AND st.CREATOR_ID = u.USER_ID(+)" &_
122 
            whereString &_
 121 
            whereString &_
123 
            searchString &_
 122 
            searchString &_
124 
            sortString
 123 
            sortString
125 
 
 124 
 
126 
SqlQry = "select * from ( "&_
 125 
SqlQry = "select * from ( "&_
Line 157... Line 156...
157 
rsQry.Close
 156 
rsQry.Close
158 
Set rsQry = Nothing
 157 
Set rsQry = Nothing
159 
 
 158 
 
160 
'
 159 
'
161 
' SQL error detection and reporting
 160 
' SQL error detection and reporting
- 
 
 161 
'   The content of 'error' will be dsplayed to the user.
162 
If objEH.LastOraFailed Then
 162 
If objEH.LastOraFailed Then
163 
    oJSON.data("error") = 1
 - 
 
164 
 
 - 
 
165 
    oJSON.data("emsgSummary") = objEH.MessageSummary
 163 
    oJSON.data("error") = objEH.MessageSummary
166 
    oJSON.data("emsgDetails") = objEH.MessageDetails
 164 
    oJSON.data("emsgDetails") = objEH.MessageDetails
167 
    oJSON.data("SqlQry") = SqlQry
 165 
    oJSON.data("SqlQry") = SqlQry
168 
End If
 166 
End If
169 
 
 167 
 
170 
'Return the object
 168 
'Return the object