<% @ LANGUAGE="VBSCRIPT" %> <% OPTION EXPLICIT %> <% if session("LoggedIn") = False then Response.Redirect("../../../default.asp") end if response.buffer = True dim dbConn dim rsInfo dim rsInfo2 dim cmdSQL dim cmdSQL2 dim UserID UserID = request.QueryString("UserID") 'get everything from report table that is not in UserReport table for this user 'cmdSQL = "select * from ReportDefinition R where NOT EXISTS (select nReportID,nUserID from UserReports D where R.nReportID=D.nReportID) and nUserID=" & UserID cmdSQL = "select * from ReportDefinition R where NOT EXISTS (select * from UserReports U where U.nReportID=R.nReportID and U.nUserID=" & UserID & ")" cmdSQL = cmdSQL & " order by nReportID" 'Get everything from UserReport Table for the User 'cmdSQL2 = "select * from UserReports R,ReportDefinition D where R.nReportID=D.nReportID order by R.nReportID" cmdSQL2 = "select * from ReportDefinition R where EXISTS (select * from UserReports U where U.nReportID=R.nReportID and U.nUserID=" & UserID & ")" cmdSQL2 = cmdSQL2 & " order by nReportID" 'cmdSQL2 = "select * from UserReports R, ReportDefinition D order by R.nReportID" 'response.write cmdSQL 'response.write "
" 'response.write cmdSQL2 'response.write "
" ' *** Database Set dbConn = Server.CreateObject("ADODB.Connection") Set rsInfo = Server.CreateObject("ADODB.Recordset") Set rsInfo2 = Server.CreateObject("ADODB.Recordset") dbConn.Open strConn 'response.write cmdSQL 'response.end rsInfo.open cmdSQL,dbConn,3,1,1 rsInfo2.open cmdSQL2,dbConn,3,1,1 %> JavaScript Toolbox - Selectbox Functions
Selected User Name:
Associated Password:
    


Available Codes Assigned Codes








Available Employees Assigned Employees







Available Doc Types Assigned Doc Types






 


Permissions Expiration Date:     05/12/2006
    


Current Expiration Date for Selected Permissions Above

<% rsInfo.Close Set rsInfo = Nothing rsInfo2.Close Set rsInfo2 = Nothing dbConn.Close Set dbConn = Nothing %>