Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                   _Logout                    |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
objAccessControl.objOraSession = OraSession   ' Create database link for orasession
objAccessControl.objOraDatabase = OraDatabase   ' Create database link for oradatabase
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub Logout ()

   ' --- Update Login Audit ---
   OraDatabase.Parameters.Add "USER_ID",    objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "APP_ID",    APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER

   objEH.TryORA ( OraSession )
   On Error Resume Next

   OraDatabase.ExecuteSQL _
   " UPDATE USER_APPLICATIONS SET"&_
   " LAST_VISIT_STAMP = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
   " WHERE USER_ID = :USER_ID"&_
   "   AND APP_ID = :APP_ID"

   If Err.Number = 0 Then
      OraDatabase.ExecuteSQL _
      " UPDATE USERS SET"&_
      " IS_ONLINE = NULL,"&_
      " LAST_VISIT = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
      " WHERE USER_ID = :USER_ID"
   End If

   objEH.CatchORA ( OraSession )

   OraDatabase.Parameters.Remove "USER_ID"
   OraDatabase.Parameters.Remove "APP_ID"

   '--- Finally Logoff ---
   objAccessControl.LogoffUser ()

End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'**************************** M  A  I  N ******************************
If objAccessControl.UserLogedIn Then
   Call Logout()
End If

Call OpenInWindow ( "index.asp" )
'**********************************************************************
%>
<%
'------------ RUN AFTER CODE RUN --------------
'----------------------------------------------
%>