Subversion Repositories DevTools

<%
'===================================================================
'                                               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 --------
'----------------------------------------------
%>