Codigo para usuarios online

[DanDan 0]

ae pessoaleu achei ou no imasters ou no wmonline esse codigo que mostra usuários online no site:

<% Dim brow,conn,hora_off,minuto_off,segundo_off,hora,user_off,rs,troca,rs2,Sql1,agora,Sql2,Sql,RS1,Sql3,rs3agora=Time()If Session("admin") = "" Then  brow=""Else  brow=Session("admin")End IflojaDB.Execute("INSERT INTO online (hora,ip,user) VALUES ('"&agora&"','"&ip&"','"&brow&"')")hora_off= mid(agora,1,2)minuto_off= mid(agora,4,2) - 5 segundo_off="00"if minuto_off - 5 < 0 then  minuto_off = "00"  hora_off= hora_off - 1  if hora_off < 0 then      hora_off= "00"  end ifend ifif len(hora_off) = 1 thenhora_off= "0" & hora_offend ifif len(minuto_off) = 1 thenminuto_off= "0" & minuto_offend ifuser_off= hora_off &":"& minuto_off  &":"& segundo_offlojaDB.Execute("DELETE FROM online WHERE hora < '"&user_off&"' ")Sql = "SELECT DISTINCT ip FROM online"Set RS = Server.CreateObject("ADODB.Recordset")RS.open Sql,lojaDB, 3, 3 If rs.EOF Then %> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">Nenhum usuario está online! </font> <% else %><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> Administradores online agora:(<%=rs.recordcount%>) - </font><%set troca=lojaDB.execute("SELECT DISTINCT ip FROM online WHERE user <> ''")  if not troca.eof then    while not troca.eof     lojaDB.execute("delete from online where ip='"&troca("ip")&"' and user = '' ")    troca.movenext    wend  end if  Sql1 = "SELECT DISTINCT ip FROM online WHERE user <> '' "Set RS1 = Server.CreateObject("ADODB.Recordset")RS1.open Sql1,lojaDB, 3, 3 %><%Sql2 = "SELECT DISTINCT ip FROM online WHERE user = '' "Set RS2 = Server.CreateObject("ADODB.Recordset")RS2.open Sql2,lojaDB, 3, 3 %><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Visitantes online no momento:(<%=rs2.recordcount%>) </font><% Sql3= "Select * from online"Set rs3=LojaDB.Execute(Sql3)If rs3.EOF then %><% else %><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Os membros online são:</font> <% While Not rs1.EOF %><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><%=rs3("user")%>,</b></font><%rs1.MoveNextWend End If End If%>

o codigo aparentemente esta correto, no meu micro esta rodando, uso IIS e banco de dados Acess, agora quando eu mando pro servidor da erro, veja o erro abaixo:

Microsoft VBScript runtime error '800a000d' Type mismatch: '[string: "4:"]' /7200799891186821/online.inc, line 15

tipo imcompativeleu nao entendi, alguem pode me ajudar com isso?Grato

[rOcKLoCo 0]

http://www.aspclube.net/artigos.asp?tecnol...954-0508709132}

[DanDan 0]

po valeu cara, mais eu queria resolver o problema do meu codigo que roda, de qualquer forma gratoFalou!!

[rOcKLoCo 0]

qual é a linha do erro?falows

[DanDan 0]

nao me pareceu ser isso, eu tava pensando nisso agorao estranho e que esse codigo roda perfeitamente no meu micro, quando mandei para o servidor ele apresentou o errovo seguir tentando aquiGrato

[mariabeatriz 0]

Olá,

 

Você pode usar o Fast Online Users, muito mais simples. Confiável, funciona direitinho. Só lembre de apagar do código aquela parte que dá link para outros sites e popups, ponha apenas o link para o http://www.fastonlineusers.com/

 

Abraço,

Maria Beatriz

[mariabeatriz 0]

Eu de novo, experimente colocar este código na sua página. Ponha o nome do seu site, faça o upload e pronto, terá os seus usuários online.<a href="http://www.fastonlineusers.com"><script src=http://fastonlineusers.com/online.php?d=http://www.yoursite.com.br></script> online</a>Abraços,Bia

[DanDan 0]

mais esse code ai mostra o nome das pessoas que estao online?tipo "estao online no momento: paulo, maria, dandan, salgado, etc"o codigo acima eu to tentando fazer issoaliás tentei arruamr ate agora e nao conseguitentei fazer alguma coisa usando a propriedade minute para substituir o mid mais nao deu certose alguem puder me ajudar ae, eu agradeçoGrato

[DanDan 0]

resolvi o problema, segui o que o Luiz me disseagora vou quebrar a cabeça para mostrar todo mundo onlinemais me digam o seguinteo sistema lista o nome dos users online, no final da função mostra como você apresenta os users online, mais ta alguma coisa errada, por que ele lista um user 2,3 vezes o mesmo... alguem sabe como resolver essavou quebrando a cabeça por aquiFalou!!