Subversion Repositories DevTools

Rev

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

Rev 5048 Rev 5097
Line 74... Line 74...
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 ( _
79 
        "sdk_id", _
 79 
        "skn.sdk_id", _
80 
        "sdk_name", _
 80 
        "skn.sdk_name", _
81 
        "sdk_comment" )
 81 
        "skn.sdk_comment",_
- 
 
 82 
        "v.view_name" _
- 
 
 83 
         )
82 
 
 84 
 
83 
'   Define array of colums to sort by
 85 
'   Define array of colums to sort by
84 
'       Must match user sort column request
 86 
'       Must match user sort column request
85 
Dim sortCols: sortCols = Array ( _
 87 
Dim sortCols: sortCols = Array ( _
86 
        "sdk_id",_
 88 
        "skn.sdk_id",_
87 
        "UPPER(sdk_name)",_
 89 
        "UPPER(skn.sdk_name)",_
88 
        "UPPER(sdk_comment)" )
 90 
        "UPPER(skn.sdk_comment)",_
- 
 
 91 
        "UPPER(v.view_name)" )
89 
 
 92 
 
90 
' Dim determine sorting options
 93 
' Dim determine sorting options
91 
'On Error goto 0
 94 
'On Error goto 0
92 
'Response.Write "<pre>"
 95 
'Response.Write "<pre>"
93 
Dim sortString
 96 
Dim sortString
Line 110... Line 113...
110 
    colList = colList & colListJoin & dataCols(x)
 113 
    colList = colList & colListJoin & dataCols(x)
111 
    colListJoin = ","
 114 
    colListJoin = ","
112 
Next
 115 
Next
113 
 
 116 
 
114 
Dim whereString
 117 
Dim whereString
- 
 
 118 
whereString = " WHERE skn.view_id = v.view_id "
- 
 
 119 
 
115 
Dim BasicSql
 120 
Dim BasicSql
116 
BasicSql = "select " & colList &_
 121 
BasicSql = "select " & colList &_
117 
            " from SDK_NAMES skn " &_
 122 
            " from SDK_NAMES skn, VIEWS v " &_
118 
            whereString &_
 123 
            whereString &_
119 
            searchString &_
 124 
            searchString &_
120 
            sortString
 125 
            sortString
121 
 
 126 
 
122 
SqlQry = "select * from ( "&_
 127 
SqlQry = "select * from ( "&_
Line 148... Line 153...
148 
       Dim fields
 153 
       Dim fields
149 
       Set fields = rsQry.Fields
 154 
       Set fields = rsQry.Fields
150 
       Dim sdk_id       : sdk_id = fields(0)
 155 
       Dim sdk_id       : sdk_id = fields(0)
151 
       Dim sdk_name     : sdk_name = fields(1)
 156 
       Dim sdk_name     : sdk_name = fields(1)
152 
       Dim sdk_comment  : sdk_comment = fields(2)
 157 
       Dim sdk_comment  : sdk_comment = fields(2)
- 
 
 158 
       Dim view_name    : view_name = fields(3)
153 
 
 159 
 
154 
       Set fields = nothing
 160 
       Set fields = nothing
155 
 
 161 
 
156 
        newitem(0) = sdk_id
 162 
        newitem(0) = sdk_id
157 
        newitem(1) = sdk_name
 163 
        newitem(1) = sdk_name
158 
        newitem(2) = sdk_comment
 164 
        newitem(2) = sdk_comment
- 
 
 165 
        newitem(3) = view_name
159 
        newitem(3) = "<button class=rmbutton onclick='editSdkEntry("& sdk_id &");'>Edit</button>"
 166 
        newitem(4) = "<button class=rmbutton onclick='editSdkEntry("& sdk_id &");'>Edit</button>"
160 
 
 167 
 
161 
       rsQry.MoveNext
 168 
       rsQry.MoveNext
162 
   Wend
 169 
   Wend
163 
End IF
 170 
End IF
164 
 
 171