Borrar Usuarios Online Registrados

[Agrey]

Este es mi problema.
Kiero saber los usuarios online que están en mi web y de esos kienes son usuarios registrados. Bueno la cuestion es que esto lo consigo pero el problema viene cuando algun usuario registrado abandonado la pagina sin cerrar su sesion.

Este es el codigo k tengo y k no me funciona. Si alguien me puede ayudar.

En el archivo global.asa

Código:

Sub Session_OnEnd
if Session("Usuario") <> "" then
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("foro.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn
sql = "DELETE FROM sesiones WHERE Usuario ='"& Session("Usuario") &"'"
conn.Execute(sql)
conn.Close
set conn= nothing
end if 

	application.lock
	application("usuariosactivos") = application("usuariosactivos")-1
	application.unlock
End Sub

Pues al cuestion es que no me borra el registro de la base de datos. Ayudaaaaa please que no veo la solucion.