Eu ja mechi no Avançados no InterNet Explorer , abilitei aparecer o erros e nada .
<body onunload="window.location='deleta_usuarioonline.asp'">
<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dados")
Conexao.Open ConStr
agora=Time()
ip=Request.ServerVariables("REMOTE_ADDR")
If Session("login") = "" Then
user=""
Else
user=Session("login")
End If
Sql="INSERT INTO online VALUES ('"&agora&"','"&ip&"','"&user&"')"
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.MoveNext
Wend
End If
End If %>
</body>
