Usuários online sem Global.asa

[AbreSite 0]

Boa Tarde... alguém pode me fornecer um código que mostre quantos usuários estão online dentro de um site ???

[cybermix 0]

<% Set Conexao = CreateObject("ADODB.CONNECTION")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("online")Conexao.Open ConStr agora=Time()ip=Request.ServerVariables("REMOTE_ADDR")If Session("login") = "" Thenuser=""Elseuser=Session("login")End IfSql="INSERT INTO online VALUES ('"&agora&"','"&ip&"','"&user&"')"Conexao.Execute(Sql)Sql="DELETE * FROM online WHERE hora < Time()-60 "Conexao.Execute(Sql)Sql = "SELECT DISTINCT ip FROM online"Set RS = Server.CreateObject("ADODB.Recordset")RS.open Sql,Conexao, 3, 3 If rs.EOF Then %>Nenhum usuario está online!<% else %>Existem <%=rs.recordcount%> online<BR><% Sql1 = "SELECT DISTINCT ip FROM online WHERE user <> '' "Set RS1 = Server.CreateObject("ADODB.Recordset")RS1.open Sql1,Conexao, 3, 3 %>Sendo <%=rs1.recordcount%> membros e <%Sql2 = "SELECT DISTINCT ip FROM online WHERE user = '' "Set RS2 = Server.CreateObject("ADODB.Recordset")RS2.open Sql2,Conexao, 3, 3 %><%=rs2.recordcount%> visitantes.<BR><% Sql="Select * from online"Set rs3=Conexao.Execute(Sql)If rs1.EOF then %><% else %>Os membros online são: <% While Not rs1.EOF %><%=rs3("user")%>, <% rs1.MoveNextWend End If End If %>