Top

[ GuTo ] · September 19, 2003

Como faço pra exibir os 5 últimos nomes dos membros cadastrados?

nessa ordem

ultimo

penultimo

ante-penultimo

etc..

etc !!!

E pra mostrar apenas o último membro cadastrado, como?

deu pra entender as perguntas?!

Valeu..

pgmador · September 19, 2003

Para pegar os 5 últimos:

rs.open"Select top 5 * from tabela order by id desc",Conexao

Para pegar o último:

rs.open"Select top 1 * from tabela order by id desc",Conexao

[]'s

Nelson Soares

http://www.ondagospel.com.br

[ GuTo ] · September 21, 2003

Ok!

Fiz este código então!

<%
dim db, sql, rs
set db = Server.CreateObject("ADODB.Connection")
db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("MEUBD.mdb")
sql = "select top 5 * from membros order by id desc " 
set rs = db.Execute(sql)
%>
<tr class="bg2"><td><a href="perfil.asp?id=<%=rs("id")%>"><%=rs("apelido")%></a></td></tr>
<%rs.movenext
loop%>

Abraços

PeiXuXaWebSite · September 21, 2003

tipo eu já testei esse top5 e n funciono...eu axo q você poderia fazer assim:

<%
sua conex
seu recordset
sql = "select * from tabela order by id desc" (ow você pode criar uma data)
recordset.open sql,conex
for count =0 to 4 step 1
response.write ('"recordset.fields("id")  recordset.fields("nome")"') ' e etc
recordset.movenext
next
%>

ow poderia escrever em html:

<%
sua conex
recordset
sql = "select * from tabela order by id desc"
recordset.open sql, conex
%>
<html>
<head>
</head>
<body>
Últimos membros cadastrados:
<%=recordset.fields("id")%> <%=recordset.fields("nome")%>

é issoa e ve ce funciono

flwxx cara!

[ GuTo ] · September 21, 2003

Já consegui acertar.

pgmador, valeu pela força, mas o q me foi útil mesmo foi o DESC q tinha esquecido. Valeu!

PeiXuXa deu uma mãozona ae via ICQ. Valeu pela paciência!

Agora, libero o código aqui pra todos que quiserem.

Se quiserem criar/ver comentários sobre o mesmo, é só postar.

Peço aqueles q pegarem o código, deixem uma msg qlqr aki no tópico. Valeu!

<%
dim db,rs,sql  
set db = Server.CreateObject("ADODB.Connection")  
db.Open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath("SEUBD.mdb") 
sql = "select * from SUATABELA order by CAMPODATABELA desc"  
set rs = db.Execute(sql)
%>  
<html>  
<head>  
<title>Sites do [GuTo]</title>  
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">  
</head>  
  
<body>   
<%   
for count = 0 to 4 step 1 %>   
<p><font color="#aa0000"> ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%></font></p>
<%rs.movenext
next%>

<p align="center"><a href="http://www.sitesdoguto.kit.net" target="_blank">Veja os endereços dos sites do [webmaster]®</font></a></p>

</body>  
</html>

Façam bom proveito!

Abraços

[ FeLiP_e ] · September 21, 2003

daee guto ..

po valeu por publicar o codigo ..

vo da umas chupinhada nele .. hehhe valeu ?!!

mas eu vo altera algumas coisas ..

:) podexA ..

flww guto ;

ate

IcQ 156550812

[ GuTo ] · September 23, 2003

Ae galera!

Surgiu uma idéia na minha cabeça pra melhorar na visualização e exibição deste código, mas não sei como faze-lo!

Vejamos então: queria q em cada um q fosse listado, fosse com uma cor diferente dentre 2, ex:

aki na cor preta

ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>

aki na cor vermelha

ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>

Então, a única coisa q seria alterado seria a cor, então, seria esta parte do código aki q estou realçando abaixo:

ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>

o resultado ficaria assim, listando os 5.

ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>
 ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>
 ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>
 ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>
 ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>

Espero q alguém me ajude. :D

jissa · September 23, 2003

Ve se é isto que quer...

if( Cor = "#000000") then

Cor = "#FF0000"

else

Cor = "#000000"

End If

> ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>

resopi · September 23, 2003

Ola Cara o peixuxa já é especialista em fazer top5 não é??????

uhu eu admiro a persistencia do peixuxa!!!! ele teve muita dificuldade pra fazer um top 5 mas emquanto ele não conseguiu ele não parou!!!!!!!

quanto a sua duvida pelo o que eu entendi o jissa já te ajudou

falou

:D

[ GuTo ] · September 24, 2003

jissa

<%
dim db,rs,sql
set db = Server.CreateObject("ADODB.Connection")
db.Open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath("meudb.mdb")
%>
<html>
<head>
<title>site</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr class="bg2"><td align="center" class="titulo">Últimos Cadastrados</td></tr><%
sql = "select * from membros order by id desc"
set rs = db.Execute(sql)

for count = 0 to 4 step 1 %>
<tr bgcolor="#FF0000><td><a href="perfil.asp?id=<%=rs("id")%>"><%=rs("apelido")%></a></td></tr>
<%rs.movenext
next%>
</table>
</body>
</html>

Observe o código.

Ele irá mostrar os 5 últimos membros cadastrados certo. Irá mostrar as 5 <tr> com a mesma cor vermelha neste caso.

Mas eu queria q na primeira mostrasse vermelha, na próxima preta, na próxima vermelha e etc.. alternando duas cores a cada resultado do rs.movenext.

Mas não sei como fazer isso e sei q é possível.

Espero ajuda!

Obs.: tentei akilo q você disse e sempre mostrava preto, q era da ocndição.

[ GuTo ] · September 25, 2003

Entenderam?

Ajudem-me!

pgmador · September 25, 2003

Voce pode fazer o seguinte.

<%

i = 0

while (! rs.EOF)

{

if (++i&1) { cor = "#FFEBEA"; } else { cor = ""; }

%>

E aí você cria na tabela:

[]'s

Nelson Soares

http://www.ondagospel.com.br

[ GuTo ] · September 26, 2003

ae pgmador

main.asp, line 186
while (! rs.EOF)
-------^

pgmador · September 26, 2003

Cara.. é só adaptar a linguagem... o (!) corresponde ao not.

mas vamos lá.

<%

i = 0

Do while not rs.EOF

i=i+1

if mod i = 0 then cor = "#FFEBEA" else cor = ""

%>

<%Loop%>

Não testei, mas esta é a idéia.

[]'s

Nelson Soares

http://www.ondagospel.com.br

[ GuTo ] · September 26, 2003

Ok pgmador, desculpe a minha ignorância, mas como já disse em outros tópicos, sou novato em ASP e não sei mta coisa ainda.

por exemplo, não sei esse do while ou o do until direto pra q que servem... e esse MOD q você botou ae também não :P

vou dar uma bizoiada aki e ver se funciona o q você me disse. qlqr coisa eu posto dinovo aki, valeu.

desde já agradeço a compreensão.

abraços

PeiXuXaWebSite · September 27, 2003

ow vey tenta fazer assim:

<%
set sua conex
suaconex.open
set seu recordset
sql = "select * from tabela order by id desc"
rs.open sql, conn
%>
<% for count=0 to 2 step 1 %>
<%=rs.fields("id")%> <%=rs.fields("nome")%>
<%rs.movenext %>
<%=rs.fields("id')%>&nbsp.<%=rs.fields("nome")%>
<% rs.movenext
next %>

testa ae e ve ce deu certo......

diraol · September 27, 2003

tipo, tenta pegar a ideia desse cod. aqui..... :D

<table><% do while not rs.eof
if a=0 then
a=1
%>
<tr bgcolor=#FFFFFF>
<%else
a=0%>
<tr>
<%end if%>

<td><%=rs("id")%></td>
<td><%=rs("produto")%></td>
<td><%=formatcurrency(rs("valor"))%></td>
<td><%=rs("setor")%></td>
<td><%=rs("fornecedor")%></td></tr>
<%rs.movenext
loop%></table>

pgmador · September 28, 2003

Cara. foi mal..

Estive olhando e vi que usei o mod errado.

E para usar assim

if i mod 2 = 0

O mod serve para você verificar o resto da divisão. Neste caso, você vai dividir i por 2, e pegar o resto desta divisão. Se o resto for zero, o i é par, e ele colocará uma cor. Se o resto for diferente de zero, o i é ímpar. E ele colocará outra cor.

[]'s

Nelson Soares

http://www.ondagospel.com.br

[ GuTo ] · September 30, 2003

Ae peixuxa, o q você disse deu certo. Mas eu quero exibir 5 resultados, dae como nesse exibe só de 2 em 2, os q ficam mais perto é aquele q exibe nu total 4 ou 6 resultados.

Ae pgmador, já entendi pra q u MOD funciona digamos, hehe. Mas olha isso aki:

<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr class="bg2"><td align="center" class="titulo">Últimos Cadastrados</td></tr><%
sqltop5 = "select * from membros order by id desc"
set rs = db.Execute(sqltop5)
for count = 0 to 4 step 1%><%
dim i, cor
i = 0
do while not rs.eof
i=i+1
if i mod 2 = 0 then cor = "FFFFCC" else cor = "FFFF99"
%>
<tr class="<%=cor%>"><td><a href="http://www5.domaindlx.com/sitesdoguto/perfil.asp?id=<%=rs("id")%>"><%=rs("apelido")%></a></td></tr>
<%loop%>
<%rs.movenext
next%>
</table>

erro: "Página não pode ser exibida", só!

Qual seria a solução?

Desculpe-me por qlqr coisa.

Desde já agradeço!

Abraço

[ GuTo ] · October 1, 2003

O pessoal, plissss...

jissa · October 1, 2003

Ae qeb Master se isto não funcionar.. bem troca os campos ai.. ta bem simples...

Conexao = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DB\SeuDB.mdb")

set noticias = Server.CreateObject("ADODB.Recordset")

noticias.ActiveConnection = Conexao

noticias.Source = "SELECT id, Bla, Bla, Bla FROM tabela ORDER BY Data DESC"

noticias.CursorType = 0

noticias.CursorLocation = 2

noticias.LockType = 3

noticias.Open()

noticias_numRows = 0

%>

<html>

<head>

<title>Infinite Informática - Programinha para o WebMaster</title>

</head>

Resumo dos Ultimos Usuarios Cadastrados:

<%

limite = 0

If not noticias.EOF then tebela.MoveFirst

' Limite do Numero maximo dos Usuarios

Quantos = 5 ' Crie isto para se quiser mudar pode colocar numa select coisa assim

While Not tabela.EOF and limite < quantos

if( Cor = "#000000") then

Cor = "#FF0000"

else

Cor = "#000000"

End If

%>

> ID:<%=rs("id").value%> - apelido:<%=rs("apelido").value%>

<%

tabela.MoveNext

' Repete o loop

wend

%>

</body>

</html>

<%

' Fecha a conexão

tabela.Close

Set tabela = Nothing

%>

pgmador · October 1, 2003

Não entendi porque voce já não coloca o select top 5, ao invés de colocar o laço for.

<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr class="bg2"><td align="center" class="titulo">Últimos Cadastrados</td></tr>
<%
sqltop5 = "select top 5 * from membros order by id desc"  
set rs = db.Execute(sqltop5)
dim i, cor
i = 0
do while not rs.eof
i=i+1
if i mod 2 = 0 then cor = "FFFFCC" else cor = "FFFF99"
%>
<tr bgcolor="#<%=cor%>"><td><a href="http://www5.domaindlx.com/sitesdoguto/perfil.asp?id=<%=rs("id")%>"><%=rs("apelido")%></a></td></tr>
<%
rs.movenext
loop
%>

</table>

Veja se isto vai.

[]'s

Nelson Soares

http://www.ondagospel.com.br

Sign In

Top

Question

Link to comment

Share on other sites

21 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Forum Statistics