<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| INDEX |
'| |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<%
'------------ VARIABLE DEFINITION -------------
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
objAccessControl.objOraSession = OraSession ' Create database link for orasession
objAccessControl.objOraDatabase = OraDatabase ' Create database link for oradatabase
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'----------------------------------------------------------------------------------------------------------------------------------------------
Sub Logon ()
On Error Resume Next
objEH.Try()
Call objAccessControl.LogonUser ( Request("user_name"), Request("user_password") )
objEH.Catch()
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------
Sub AccessManagerMessage ( nMessage )
Dim sMessage
On Error Resume Next
objEH.Try()
Select Case CInt( nMessage )
Case 1
Err.Raise 8, _
"Application Access Denied !", "Please contact the Administrator to gain access to this application."
Case 2
Err.Raise 8, _
"Page Access Denied !", "Please contact the Administrator to gain access to this page."
Case 3
Err.Raise 8, _
"Application is Off-Line !", "This application is currently off-line for maintenance. Contact the Administrator for further details."
Case 4
Err.Raise 8, _
"You are Not Authorised !", "You are not authorised to perform this action. Contact the Administrator for further details."
End Select
objEH.Catch()
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
objPMod.PersistInQryString ( aPersistList )
' --- RUN onPostBack ---
If CBool(Request("action")) Then
Call Logon ()
If objEH.Finally Then
If Request("rfile") <> "" Then
Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") )
Else
Call OpenInWindow ( "Default.asp" )
End If
End If
End If
Call AccessManagerMessage( Request("message") )
'----------------------------------------------
%>
Production Manager