no puedo lograr que se actualice una db desde global.asa

[heman25]

HOla.
Quiero lograr, por medio del global.asa, que cuando expire una sesion, borre el registro de esa sesion de una tabla, usuarios_online, que esta en una db. No pude lograrlo todavia. Alguna ayuda??

aca va el global.asa

Código PHP:

  <SCRIPT LANGUAGE=VBScript RUNAT=server> 
 
sub application_onStart() 
 
end sub 
 
sub application_onEnd() 
 
Set conexion3 = Server.CreateObject("ADODB.Connection")
conexion3.Open  "Driver={SQL Server};Server=MT14647;Database=cheques_web_v2;Uid=user_cweb;Pwd=lisa" 
 
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs_off = Server.CreateObject("ADODB.Recordset")
        
        sql_offline="Select * from users_online" 
        rs_off.Open sql_offline, conexion3,1,3
 
if not rs_off.eof then
 
n= rs_off.recordcount        
 
for i=1 to n
    rs_off.delete
rs_off.movenext
next
 
rs_off.update
end if
        rs_off.close
        set rs_off=nothing
        conexion3.close
        set conexion3=nothing
 
end sub 
 
sub session_onStart() 
user_ses = session("user")
end sub 
 
sub session_onEnd() 
user = Session("usuario")
Set conexion3 = Server.CreateObject("ADODB.Connection")
conexion3.Open  "Driver={SQL Server};Server=MT14647;Database=cheques_web_v2;Uid=user_cweb;Pwd=lisa" 
 
Set rs_off = Server.CreateObject("ADODB.Recordset")
 
        
        sql_offline="Delete from users_online where id_user='"&user&"'" 
        rs_off.Open sql_offline, conexion3,1,3
 
        rs_off.close
        set rs_off=nothing
        conexion3.close
        set conexion3=nothing
end sub 
</SCRIPT>