Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                _Logout                                                |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.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 
        
        OraSession.BeginTrans
        
        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"
        
        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" 
        
        OraSession.CommitTrans
        
        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 ( "Default.asp" )
'**********************************************************************
%>
<%
'------------ RUN AFTER CODE RUN --------------
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->