Subversion Repositories DevTools

Rev

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

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