Evitando login simultâneo

Boas,

Estou buscando uma solução para evitar o acesso simultâneo ao sistema, quando o usuário faz o acesso ao sistema registro, código da sessão (Session.ID), codigo do usuário, IP, e status (indicando que o usuário está logado) em uma tabela (tbl_logAcesso).

O problema acontece quando o usuário sai do sistema.

Depois de procurar muito na net e tentar de várias formas resolvi abrir esse tópico, baseado no tópico abaixo:

http://forum.imasters.com.br/index.php?/topic/229771-como-impedir-acesso-simultaneo/

Estou utilizando diversas formas de "logout", vou citar algumas.

• Clicar com o botão "Sair" da aplicação - Já tratado com asp
• Fechadno o navegado - Já tratado com ajax
• Timeout - Já tratado com asp e javascript
• Desligamento inexperado do computador ou caso o browser não seja fechado corretamente (AQUI MORA O PROBLEMA).

Tentei solucionar o problema com o global.asa (Session_OnEnd), o problema está como identificar a sessão que foi encerrada, ja tentei com cookie - mas como previa não funcionou - por último tentei o seguinte:

registro as sessões em uma variável de aplicação (Array)

if isNull(Application("activeusers")) = true then
Application("activeusers") = Session(Session.sessionID)
else
Application("activeusers") = Application("activeusers")&","&Session(Session.sessionID)
end if
no evento Session_OnEnd, tento verificar as sessões não-ativas e atualizar o status no banco, sem exito.

arrUser = Split(Application("activeusers"),",")
for i=0 to UBound(arrUser)
if (isNull(Session(arrUser(i)))=true) OR (Session(arrUser(i)) = "") then
Set Oconn = Server.CreateObject("ADODB.Connection")
Oconn.ConnectionString="Provider=SQLOLEDB.1;Data Source=192.168.0.100;Initial Catalog=banco;User Id=si;Password=*********;"
Oconn.open

 Oconn.Execute("INSERT INTO tbl_logAcesso (cod_sessao,cod_usuario,nb_ip,navegador) VALUES (arrUser(i),71,'IP','MagnoWeb')")

 if UBound(arrUser) > 1 then
 Application("activeusers") = Replace(Application("activeusers"),",arrUser(i)","")
 else
 Application("activeusers") = Null
 end if

	end if

Next Nem sei mais oq fazer, alguém pode contribuir com alguma sugestão??? raciocínio ja se foi :huh: .

vlw,

Magnoweb B)