<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| MEMBERS | '| MY ROLES - Access Details | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp Dim rsQry Dim sqlQuery Dim parProj Dim bAdvMode : bAdvMode = FALSE '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parProj = QStrPar("proj_id") '---------------------------------------------- ' Create a chkbox and set its state Function chkbox( value ) chkbox = "" End Function %>

<%Call Member_Menu( "my_roles" )%>		My Access Details         You have access to do: Active Project: -- Select Project -- <% OraDatabase.Parameters.Add "PROJ_ID", parProj, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0)) OraDatabase.Parameters.Remove "PROJ_ID" While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%> " <%=rsQry("selected")%>><%=rsQry("proj_name")%> <%rsQry.MoveNext WEnd rsQry.Close Set rsQry = Nothing %> <% If bAdvMode Then %> <%End If%> <% If bAdvMode Then %> <%End If%> <% If bAdvMode Then %> <%End If%> <% sqlQuery = "select obj_name, obj_description " &_ "from control_objects co " &_ "where co.app_id = :APP_ID " &_ "order by UPPER(co.obj_name)" OraDatabase.Parameters.Add "APP_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset(sqlQuery, cint(0)) OraDatabase.Parameters.Remove "APP_ID" While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) %> <% If bAdvMode Then %> <%If parProj <> "" Then %> <%Else%> <%End If%> <%End If%> <%If parProj <> "" Then %> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd rsTemp.Close() Set rsTemp = nothing %> Action <%=Quick_Help("ad_action")%> Description<%=Quick_Help("ad_description")%> Raw<%=Quick_Help("ad_raw")%> Processed<%=Quick_Help("ad_processed")%> Access<%=Quick_Help("ad_access")%> Data<%=Quick_Help("ad_data")%> Normal<%=Quick_Help("ad_normal")%> InProject<%=Quick_Help("ad_inproject")%> Visible<%=Quick_Help("ad_visible")%> Active<%=Quick_Help("ad_active")%> Visible Active Visible Active Visible<%=Quick_Help("ad_visible")%> Active<%=Quick_Help("ad_active")%> <%=rsTemp("obj_name")%> <%=rsTemp("obj_description")%> <%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%> <%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%> <%=chkbox(objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%> <%=chkbox(objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%> <%=chkbox(canShowControl(rsTemp("obj_name")))%> <%=chkbox(canActionControl(rsTemp("obj_name")))%> <%=chkbox(canShowControlInProject(rsTemp("obj_name")))%> <%=chkbox(canActionControlInProject(rsTemp("obj_name")))%> <% If bAdvMode Then objAccessControl.dumpAll() 'objAccessControl.bDebug = true End If %>