Top

[ GuTo ] · Setembro 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 · Setembro 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 ] · Setembro 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 · Setembro 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 ] · Setembro 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 ] · Setembro 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 ] · Setembro 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 · Setembro 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 · Setembro 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 ] · Setembro 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 ] · Setembro 25, 2003

Entenderam?

Ajudem-me!

pgmador · Setembro 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 ] · Setembro 26, 2003

ae pgmador

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

pgmador · Setembro 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 ] · Setembro 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 · Setembro 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 · Setembro 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 · Setembro 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 ] · Setembro 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 ] · Outubro 1, 2003

O pessoal, plissss...

jissa · Outubro 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 · Outubro 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

Entrar

Top

Pergunta

Link para o comentário

Compartilhar em outros sites

21 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns