| 46 |
mhunt |
1 |
<script Language="VBScript" RUNAT=Server>
|
|
|
2 |
Sub Application_OnStart
|
|
|
3 |
Application("TNS_NAME") = "RELEASEM"
|
|
|
4 |
Application("ACCESS_MANAGER_LOGIN") = "ACCESS_MANAGER/ACCESS_MANAGER" ' PRODUCTION schema
|
|
|
5 |
Application("DEPLOYMENT_MANAGER_LOGIN") = "DEPLOYMENT_MANAGER/DEPLOYMENT_MANAGER" ' PRODUCTION schema
|
|
|
6 |
Application("RELEASE_MANAGER_LOGIN") = "RELEASE_MANAGER/RELEASE_MANAGER" ' PRODUCTION schema
|
|
|
7 |
End Sub
|
|
|
8 |
|
|
|
9 |
Sub Application_OnEnd
|
|
|
10 |
End Sub
|
|
|
11 |
|
|
|
12 |
Sub Session_OnStart
|
|
|
13 |
End Sub
|
|
|
14 |
|
|
|
15 |
Sub Session_OnEnd
|
|
|
16 |
Dim OraSession, OraDatabase
|
|
|
17 |
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
|
|
18 |
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("ACCESS_MANAGER_LOGIN"), Cint(0))
|
|
|
19 |
|
|
|
20 |
|
|
|
21 |
'---- Update Login Audit ----
|
|
|
22 |
OraSession.BeginTrans
|
|
|
23 |
|
|
|
24 |
OraDatabase.ExecuteSQL _
|
|
|
25 |
" UPDATE USERS SET"&_
|
|
|
26 |
" IS_ONLINE = NULL,"&_
|
|
|
27 |
" LAST_VISIT = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
|
|
|
28 |
" WHERE USER_ID = "& Session( "AM_USER_ID" )
|
|
|
29 |
|
|
|
30 |
OraDatabase.ExecuteSQL _
|
| 48 |
mhunt |
31 |
"BEGIN pk_AMUtils.Log_Access ( 2, NULL, NULL, NULL, NULL, "& Session( "AM_USER_ID" ) &" ); END;"
|
| 46 |
mhunt |
32 |
|
|
|
33 |
OraSession.CommitTrans
|
|
|
34 |
|
|
|
35 |
|
|
|
36 |
Set OraDatabase = Nothing
|
|
|
37 |
Set OraSession = Nothing
|
|
|
38 |
End Sub
|
|
|
39 |
</script>
|