<% '=================================================================== ' Access Control for Configuration Pages '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------- Sub PageAccessCheck () '--- Built In Administrator Override --- If objAccessControl.UserId = 0 Then Exit Sub End If '--------------------------------------- If NOT objAccessControl.IsVisible ( "pageApplicationConfiguration" ) Then If NOT isPopupWindow Then Call OpenInWindow ( "Login.asp?message=2&rfile="& SCRIPT_NAME & objPMod.ComposeURLWithout("rfile") ) Else Call OpenInParentWindow ( "Login.asp?message=2&"& objPMod.ComposeURL() ) Call CloseWindow() End If End If End Sub '----------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '--- Check for page access --- Call PageAccessCheck() '---------------------------------------------- %> <% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>