<%@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 '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parProj = QStrPar("proj_id") '---------------------------------------------- ' Create a chkbox and set its state Function chkbox( value ) chkbox = "" End Function %> Deployment Manager - My Roles
<%Call Member_Menu( "my_roles" )%> Exit
My Access Details
   
   
You have access to do:
<% 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 parProj <> "" Then %> <%End If%> <%rsTemp.MoveNext WEnd rsTemp.Close() Set rsTemp = nothing %>
Action <%=Quick_Help("ad_action")%> Description<%=Quick_Help("ad_description")%> Access<%=Quick_Help("ad_access")%> Data<%=Quick_Help("ad_data")%>
Active<%=Quick_Help("ad_active")%> Visible<%=Quick_Help("ad_visible")%> Active Visible
<%=rsTemp("obj_name")%> <%=rsTemp("obj_description")%> <%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%> <%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%><%=chkbox(objAccessControl.IsDataActive ("DM_PROJECTS", parProj, rsTemp("obj_name")))%> <%=chkbox(objAccessControl.IsDataVisible ("DM_PROJECTS", parProj, rsTemp("obj_name")))%>


<% 'objAccessControl.dumpAll() 'objAccessControl.bDebug = true 'Call objAccessControl.IsDataVisible ( "DM_PROJECTS","701","oProjectList" ) %>