<% if (isNull(request.cookies("ckyUserID"))) or (request.cookies("ckyUserID")="") then response.redirect "index.asp" end if %> <% UID = getUserID(request.cookies("ckyUserID")) UType = getUserType(request.cookies("ckyUserID")) QID = request.querystring("QID") if request.querystring("btnNew") = "Create New Query" then response.write "" elseif request.querystring("btnEdit") = "Edit Query" then if QID > 0 then response.write "" else response.write "" end if elseif request.querystring("btnDelete") = "Delete Query" then s = "SELECT refUserID From tblQuery WHERE QueryID = " & QID set rst3 = cn.execute(s) if not rst3.eof then if rst3("refUserID") = clng(UID) then s = "DELETE From tblQueryFields WHERE refQueryID=" & QID set rst1 = cn.execute(s) s = "Delete From tblQuery Where QueryID = " & QID set rst2 = cn.execute(s) else response.write "" end if end if rst3.close end if x = swapIt(x) response.write "

" response.write "" response.write "" select case request.QueryString("rbOpt") case 1 'case 1 or default strOpt = "[User] Query [Date]
Query [User] [Date]
[Date] Query [User]" s = "SELECT tblQuery.*, strUserName From tblQuery, tblUser WHERE refUserID = UserID Order by strUserName, strDescription" case 2 strOpt = "[User] Query [Date]
Query [User] [Date]
[Date] Query [User]" s = "SELECT tblQuery.*, strUserName From tblQuery, tblUser WHERE refUserID = UserID Order by strDescription, strUserName" case 3 strOpt = "[User] Query [Date]
Query [User] [Date]
[Date] Query [User]" s = "SELECT tblQuery.*, strUserName From tblQuery, tblUser WHERE refUserID = UserID Order by strDateLastRun DESC, strDescription, strUserName" case default 'case 1 or default strOpt = "[User] Query [Date]
Query [User] [Date]
[Date] Query [User]" s = "SELECT tblQuery.*, strUserName From tblQuery, tblUser WHERE refUserID = UserID Order by strUserName, strDescription" end select response.Write "" 'response.write "" x = swapIt(x) response.write "" response.write "

Query	List: " & strOpt & "
Select a Query	" set rst = cn.execute(s) while not rst.eof arrQID = arrQID & rst("QueryID") & "," & rst("blnPrivate") & "," & rst("refUserID") & "," mystr = "" if len(rst("strDateLastRun")) > 0 then mystr = "[" & rst("strDateLastRun") & "]" end if if rst("blnPrivate") = 1 then if request.QueryString("rbOpt") = 2 then response.write "" & rst("strDescription") & " - " & rst("strUserName") & " " & mystr elseif request.QueryString("rbOpt") = 3 then response.write "" & mystr & " - " & rst("strDescription") & " - " & rst("strUserName") else response.write "" & rst("strUserName") & " - " & rst("strDescription") & " " & mystr end if else if request.QueryString("rbOpt") = 2 then response.write "" & rst("strDescription") & " - " & rst("strUserName") & " " & mystr elseif request.QueryString("rbOpt") = 3 then response.write "" & mystr & " - " & rst("strDescription") & " - " & rst("strUserName") else response.write "" & rst("strUserName") & " - " & rst("strDescription") & " " & mystr end if end if rst.movenext wend rst.close response.write "
" response.write "  " response.write "  " response.write "  " response.write "" response.write "

" if arrQID <> "" then arrQID = left(arrQID, len(arrQID) - 1) response.write "" else response.write "" end if %>