<% '=================================================================== ' 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 '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- Sub LoginCheck () 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 Call OpenInParentWindow ( "Login.asp?"& objPMod.ComposeURL() ) Call CloseWindow() End If End If End Sub '----------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '--- Login Check --- Call LoginCheck () '---------------------------------------------- %> <% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>