Este exemplo tem uma pequena falha: Se o usuários estiver acessando de uma LAN HOUSE, ou vários usuários usando o mesmo server Proxy.... vai dar pau!!!! Pois estaram utilizando o mesmo numero de IP para acessar o seu site. Sugiro que quem utilizar este exemplo adicione um campo na tabela chamado "sessao" e grave neste campo o valor numérico de sessão que o servidor gera automaticamente para cada conexão. Para isso use a seguinte instrução: IdSes = Session.SessionID Assim você captura o numero de sessão e faz a consulta chaveada por ( IP x SESSAO ) na hora de inserir novo registro na função userOnLine(). Exemplo SQL para atualizar : "UPDATE blablabla... WHERE `HostIP`='"&HostIp&"' AND `sessao`= '"&idSes&"' LIMIT 1;"