Saber el nombre de quien esta conectado

[Halcon_2003]

En mi página hay un area restringida, quienes acceden a ella aparecen en un recuadro su nombre de usuario, ahora bien no doy hecho reactualizar la base de datos cuando se retira de la página, en el global.asa puse lo siguiente y no funciona, a ver si alguien puede ayudarme (la base tiene un campo boleano)
Sub Session_OnEnd
Application("Activos") = Application("Activos") - 1
DBFile="D:\Inetpub.... (ruta de acceso)......\socios.mdb"
Set basedatos = Server.CreateObject("ADODB.Connection") basedatos.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
Set myR2Set = Server.CreateObject("ADODB.Recordset")
wstr2 = "SELECT * "
wstr2 = wstr2 & "FROM usuarios "
wstr2 = wstr2 & "WHERE (usuarios.usuario)=" &session("socio_ok")
wstr2 = wstr2 & "ORDER BY usuarios.usuario;"
myR2Set.Open wstr2, basedatos, 3, 3
if not myR2Set.eof then
myR2Set("online")=false
myR2Set.update
end if
myR2Set.close
SET myR2Set = NOTHING
basedatos.close
SET BaseDatos = NOTHING
End Sub