Jump to content


Photo

Como Coloco Estatisticas Do Membros Cadastrados


  • Faça o login para participar
1 reply to this topic

#1 usuariodaweb

usuariodaweb

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 10/06/2004, 20:30

Tenho um script de membros no site, mas não sei como criar um codigo q apareça os ultimos membros cadastrados e a qtde. Alguem poderia me ajudar?

att,
Kátia Moreno
"O importante não é saber, é tentar aprender."
Busca Online
Só Scripts

#2 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 11/06/2004, 01:39

Oi!

Tente assim :

<%

set conn = server.createobject ("ADODB.connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db2.mdb")



Set rs =Server.CreateObject("ADODB.Recordset")
        SQL = "select top 5 * from members order by memid desc"
        Set rs = Conn.Execute(SQL)

If rs.EOF Then
            Response.Write "Nenhum usuario cadastrado"
            else
do while num < 5

response.write rs("usern")
num=num+1
 
  rs.MoveNext
Loop
End If

%>



e a quantidade seria mais ou menos assim:

<%
set conn1 = server.createobject ("ADODB.connection")
conn1.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("membros/db2.mdb")
Set rs1 =Server.CreateObject("ADODB.Recordset")
SQL1 = "select count(*) as Total From members"
Set rs1 = Conn1.Execute(SQL1)
If rs1.EOF Then
  Response.Write "0"
End If
%>
<%=rs1("Total")%>


Funcionou né?


T+

Generation..
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq