No funciona session_onend()

[piluso]

hola a todos, he revisado todo el sitio buscando algo similar pero no he encontrado lo que necesito por esto recurro a ustedes. Tengo el siguiente codigo dentro del GLOBAL.ASA y el session_onstart() lo ejecuta lo mas bien, pero no pasa lo mismo cuando se cierra la session, ya sea porque se vencio el session.timeout o porque se ejecuto el session.abandon() aqui expongo el codigo del GLOBAL.ASA y cualquier sugerencia sera bienvenida

GLOBAL.ASA:
<script language=VBScript RUNAT=server>
Sub Application_OnStart
application("ruta")=Server.MapPath("dbusuarios.mdb ")
session.timeout=1
end sub
Sub Session_OnStart
set db_sitio=server.CreateObject("ADODB.recordset")
db_sitio.cursortype= 1
db_sitio.locktype=3
db_sql = "SELECT * FROM tb_usuarios"
e="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & application("ruta")
db_sitio.open db_sql, e
db_sitio.addnew
db_sitio("fecha")=date()
db_sitio.update
db_sitio.close
set db_sitio=nothing
end sub

Sub Session_OnEnd
set db_sitio=server.CreateObject("ADODB.connection")
db_sitio.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & application("ruta")
sql="INSERT INTO tb_usuarios (fecha,ip) VALUES ('ccc','ddd')"
db_sitio.Execute sql,,adCmdText
db_sitio.Close()
set db_sitio=nothing
end sub

sub Application_OnEnd
set db_sitio=server.CreateObject("ADODB.connection")
db_sitio.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & application("ruta")
sql="INSERT INTO tb_usuarios (fecha,ip) VALUES ('cc','dd')"
db_sitio.Execute sql,,adCmdText
db_sitio.Close()
set db_sitio=nothing
end sub
</script>


Bien como veran utilizo dos maneras distintas para conectarme a la DB pero esto es puramente de prueba =mente lo prove como la que esta en el session_onstart() y tampoco funciona.

Gracias