| Line 15... |
Line 15... |
| 15 |
<!--#include file="common/common_subs.asp"-->
|
15 |
<!--#include file="common/common_subs.asp"-->
|
| 16 |
<%
|
16 |
<%
|
| 17 |
'------------ VARIABLE DEFINITION -------------
|
17 |
'------------ VARIABLE DEFINITION -------------
|
| 18 |
'------------ CONSTANTS DECLARATION -----------
|
18 |
'------------ CONSTANTS DECLARATION -----------
|
| 19 |
'------------ VARIABLE INIT -------------------
|
19 |
'------------ VARIABLE INIT -------------------
|
| - |
|
20 |
objAccessControl.objOraSession = OraSession ' Create database link for orasession
|
| - |
|
21 |
objAccessControl.objOraDatabase = OraDatabase ' Create database link for oradatabase
|
| 20 |
'------------ CONDITIONS ----------------------
|
22 |
'------------ CONDITIONS ----------------------
|
| 21 |
'----------------------------------------------
|
23 |
'----------------------------------------------
|
| 22 |
%>
|
24 |
%>
|
| 23 |
<%
|
25 |
<%
|
| 24 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
26 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
| 25 |
Sub Logon ()
|
27 |
Sub Logon ()
|
| 26 |
On Error Resume Next
|
28 |
On Error Resume Next
|
| 27 |
|
29 |
|
| 28 |
objEH.Try()
|
30 |
objEH.Try()
|
| 29 |
|
31 |
|
| 30 |
Call objAccessControl.LogonUser ( Request("user_name"), Request("user_password"), OraDatabase )
|
32 |
Call objAccessControl.LogonUser ( Request("user_name"), Request("user_password") )
|
| 31 |
|
33 |
|
| 32 |
objEH.Catch()
|
34 |
objEH.Catch()
|
| 33 |
|
35 |
|
| 34 |
End Sub
|
36 |
End Sub
|
| 35 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|
37 |
'----------------------------------------------------------------------------------------------------------------------------------------------
|