Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mestre fyoda

usuarios online

Por , em ASP Clássico

Recommended Posts

mestre fyoda    1

mestre fyoda
Postado

esta dando erro no site http://i.1asphost.com/comunidade/users_online.asp

Eu ja mechi no Avançados no InterNet Explorer , abilitei aparecer o erros e nada .

 

ASP [/tr][tr]

 

<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>

 

 

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardovg    1

ricardovg
Postado

Um jeito legal pra descobirir erros em strings sql ....

 

strSQL = "Minha string SQL"

 

REsponse.write strSQL

Response.end

 

Depois copia a string que apareceu no navegador e cola diretamento no banco e executa ..... se tiver erro na string você vai ver na hora.

 

 

fuiiiiiiiiiiiiiiiiiiiii http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito