<% '=================================================================== ' Access Control Project '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- objAccessControl.objOraSession = OraSession ' Create database link for orasession objAccessControl.objOraDatabase = OraDatabase ' Create database link for oradatabase '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- Sub ProjectCheck () Dim proj_id If NOT objAccessControl.UserLogedIn Then Exit Sub ' Exit if not logged in If NOT objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") OR NOT objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, "EditProjects") Then If NOT isPopupWindow Then Call OpenInWindow ( "Login.asp?message=4&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") ) Else Call OpenInParentWindow ( "Login.asp?message=4&"& objPMod.ComposeURL() ) Call CloseWindow() End If End If End Sub '----------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '--- Project Check --- Call ProjectCheck () '---------------------------------------------- %> <% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>