Subversion Repositories DevTools

<script Language="VBScript" RUNAT=Server>
Sub Application_OnStart
        Application("TNS_NAME") = "RELEASEM"    
        Application("ACCESS_MANAGER_LOGIN") = "ACCESS_MANAGER/ACCESS_MANAGER"           ' PRODUCTION schema
        Application("DEPLOYMENT_MANAGER_LOGIN") = "DEPLOYMENT_MANAGER/DEPLOYMENT_MANAGER"               ' PRODUCTION schema
        Application("RELEASE_MANAGER_LOGIN") = "RELEASE_MANAGER/RELEASE_MANAGER"                ' PRODUCTION schema
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
End Sub

Sub Session_OnEnd
        Dim OraSession, OraDatabase
        Set OraSession = CreateObject("OracleInProcServer.XOraSession")
        Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("ACCESS_MANAGER_LOGIN"), Cint(0))
        
        
        '---- Update Login Audit ----
        OraSession.BeginTrans
        
        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 = "& Session( "AM_USER_ID" ) 
        
        OraDatabase.ExecuteSQL _
                "BEGIN   pk_AMUtils.Log_Access ( 2, NULL, NULL, NULL, NULL, "& Session( "AM_USER_ID" ) &" );   END;"
                
        OraSession.CommitTrans
        
        
        Set OraDatabase = Nothing
        Set OraSession = Nothing
End Sub
</script>