<%@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" )
Call Destroy_All_Objects
%>