Olá galera... como faço para colocar um determinado nº de usuários on-line??? Pq esse script foi feito para colocar tdos os usários online... Mas eu só quero uma determinada quantidade.. como faço?
Set vC = Server.CreateObject("ADODB.Connection")
vC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("BD.mdb") &";Persist Security Info=False"
vConta2="SELECT COUNT(ehmembro) AS monline FROM users WHERE ehmembro=1"
Set vConta=vC.Execute(vConta2)
vMembros2="SELECT * FROM users WHERE ehmembro=1"
Set vMembros=vC.Execute(vMembros2)
%><% IF vMembros.EOF THEN
Response.Write "<tr><td width='100%'><font face=Verdana size=1>Nenhum membro online.</font></td></tr>"
ELSE
while not vMembros.EOF %><tr><td width="100%"><font face=Verdana size=1> <img border="0" src="icons/arrow1.gif">
<a href="mailto:<%=vMembros("email")%>"><%=vMembros("username")%></a></font></td></tr>
<%
vMembros.MoveNext
Wend
END IF
%>
Movenext
Started By JHUNYORBRAVO, 05/12/2004, 15:57
2 replies to this topic
#1
JHUNYORBRAVO
-
- Usuários
-
- 108 posts
Normal
- Sexo:Não informado
- Localidade:Belo Horizonte
Posted 05/12/2004, 15:57
#2
marioufpa
-
- Usuários
-
- 26 posts
"Moderador Imasters (ASP)"
- Sexo:Não informado
Posted 05/12/2004, 17:07
como assim uma determinada quantidade??
#3
felipecm
-
- Usuários
-
- 541 posts
Expert
- Sexo:Não informado
- Localidade:ABC / SP
Posted 05/12/2004, 17:59
Olá galera... como faço para colocar um determinado nº de usuários on-line??? Pq esse script foi feito para colocar tdos os usários online... Mas eu só quero uma determinada quantidade.. como faço?
Set vC = Server.CreateObject("ADODB.Connection")
vC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("BD.mdb") &";Persist Security Info=False"
vConta2="SELECT COUNT(ehmembro) AS monline FROM users WHERE ehmembro=1"
Set vConta=vC.Execute(vConta2)
vMembros2="SELECT * FROM users WHERE ehmembro=1"
Set vMembros=vC.Execute(vMembros2)
%><% IF vMembros.EOF THEN
Response.Write "<tr><td width='100%'><font face=Verdana size=1>Nenhum membro online.</font></td></tr>"
ELSE
while not vMembros.EOF %><tr><td width="100%"><font face=Verdana size=1> <img border="0" src="icons/arrow1.gif">
<a href="mailto:<%=vMembros("email")%>"><%=vMembros("username")%></a></font></td></tr>
<%
vMembros.MoveNext
Wend
END IF
%>
vMembros2="SELECT Top X * FROM users WHERE ehmembro=1"
Dai vc indica a qtd de registros no lugar do X.. eh isso?
MCAD, MCP
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
