<% '=================================================================== ' Access Control Login '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- objAccessControl.objOraSession = OraSession ' Create database link for orasession objAccessControl.objOraDatabase = OraDatabase ' Create database link for oradatabase '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- ' Use the global variables to control the operation ' ForceLogon - Set via global.asa via the Application variable ForceLogon ' PageLogon - Can be set on per-page base. Default is TRUE. Only used if ForceLogon is false ' Sub LoginCheck () If bGetApplication("ForceLogon", TRUE) Then ForcePageLogon = TRUE If ForcePageLogon Then If NOT objAccessControl.UserLogedIn Then objPMod.PersistInQryString ( aPersistList ) ' Get all persistant parameters If NOT isPopupWindow Then If objPMod.GetParamValue("rfile") = "" Then Call objPMod.StoreParameter ( "rfile", scriptName ) Call OpenInWindow ( "Login.asp?"& objPMod.ComposeURL() ) Else Response.Redirect ("_iframe_logged_out.asp") 'Call OpenInParentWindow ( "Login.asp?"& objPMod.ComposeURL() ) 'Call CloseWindow() End If End If End If End Sub '----------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '--- Login Check --- Call LoginCheck () '---------------------------------------------- %> <% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>