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>