22 replies to this topic

[Operador]

Gostaria de mostrar os 5 ultimos cadastrados no site, já peguei uma ajuda nos tutoriais daqui mais mesmo assim não estou conseguindo, aparece apenas o ultimo e não os 5. Por exemplo:

aparece assim:

teste

e não assim:

teste
teste
teste
teste
teste

e daria tbm pra colocar um link para mostrar mais detalhes dos usuários igual a do amigoswm?

esté é o código:

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
i = 1
bd = "Select TOP 3 * From users ORDER by id DESC"
Set rs = conn.execute(bd)
rs.movefirst
while i<=pagina
rs.movenext
i=i+1
wend
response.write rs("login")
%>

Obrigado.

Edição feita por: Operador, 22/07/2004, 13:56.

[Flip_]

nao achei no codigo o local
aonde tu indico que era pra
bota 5 cadastros...?!?!?!?!

[Operador]

Essa é a minha dificuldade não sei aonde colocar o código e como

[Info_Tec]

Nossa, embolou, vamos as correções:

<%ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnectString

bd = "Select TOP 5 * From users ORDER by id DESC"

'----------------^ Aqui eu digo para pegar os 5 registros ordenados pelo ID de ordem Descendente.

Set rs = conn.execute(bd)

'rs.movefirst   'Não é nescessária essa linha

while Not RS.EOF  'Aqui digo para ele repetir enquanto não for o final do RecordSet

 response.write rs("login")

' Isso tem que estar dentro do laço de repetição

 rs.movenext

wend

%>

Edição feita por: Info_Tec, 13/07/2004, 15:21.

[amgnatureza]

Tente isso:

<% 
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
bd = "Select TOP 5 * From users ORDER by id DESC"
Set rs = conn.execute(bd)

Do While not rs.eof %>

<a href="[COLOR=red]VISUALIZA[/COLOR].asp?id=<%=Rs("ID")%><%=RsQuery("[COLOR=red]NOME[/COLOR]")%></a>

<% RsQuery.movenext
Loop 
%>

Lógico que VISUALIZA e NOME são apenas exemplo hehehe
Nunca se esqueça de fechar a conexão, o que ficou fantando ai ...

T+

Edição feita por: amgnatureza, 13/07/2004, 15:26.

[amgnatureza]

AHHHH

Não foi flog naum !!!! Olha os horários

[Operador]

Nossa, embolou, vamos as correções:

<%ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
bd = "Select TOP 5 * From users ORDER by id DESC"
'----------------^ Aqui eu digo para pegar os 5 registros ordenados pelo ID de ordem Descendente.
Set rs = conn.execute(bd)
'rs.movefirst   'Não é nescessária essa linha
while Not RS.EOF  'Aqui digo para ele repetir enquanto não for o final do RecordSet
 response.write rs("login")
' Isso tem que estar dentro do laço de repetição
 rs.movenext
wend
%>

Deu certo Info mais está saindo o nomes assim teste teste teste como coloco para ficar assim?

teste
teste
teste
teste
teste

e para colocar um link para mostrar mais detalhes em outra página, daria pra me dizer, por favor?

Agradeço muito,

[vrsbueno]

Tah na mão:

<% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
bd = "Select TOP 5 * From users ORDER by id DESC"
'----------------^ Aqui eu digo para pegar os 5 registros ordenados pelo ID de ordem Descendente.
Set rs = conn.execute(bd)
'rs.movefirst  'Não é nescessária essa linha
while Not RS.EOF  'Aqui digo para ele repetir enquanto não for o final do RecordSet
response.write rs("login") & "<br>"
' Isso tem que estar dentro do laço de repetição
rs.movenext
wend
%>

[Operador]

Ficou blz, deu certo galera, agora queria só mais uma coisa, por exemplo no nome de cada usuário que vai se cadastrando teria um link para uma página detalhes.asp onde daria pra ver mais informações dos usuários.

Ex:

teste 'link para a página detalhes

e na página mostrasse claro as informações desse usuário que foi clicado.

Igual a do site amigoswm.

Valeu

[Fernando_Ramos]

coloca assim

em cada usuário que vc listar vc coloca um link

detalhes.asp?usuario=<%=rs("usuario")%>

[Operador]

coloca assim

em cada usuário que vc listar vc coloca um link

detalhes.asp?usuario=<%=rs("usuario")%>

Fernando mais isso teria que ter em cada um dos 5 nomes que apareçam cadastrados.

Aparece já automaticamente, veja aqui no amigoswm no canto direito fica ultimos 5 usurios cadastrados e os respectivos links para mais informações.

Valeu

[vrsbueno]

tenta isso:

<% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
bd = "Select TOP 5 * From users ORDER by id DESC"
'----------------^ Aqui eu digo para pegar os 5 registros ordenados pelo ID de ordem Descendente.
Set rs = conn.execute(bd)
'rs.movefirst  'Não é nescessária essa linha
while Not RS.EOF  'Aqui digo para ele repetir enquanto não for o final do RecordSet
response.write "<a href=""detalhes.asp?usuario="& rs("usuario") & """>"& rs("login") & "</a><br>"
' Isso tem que estar dentro do laço de repetição
rs.movenext
wend
%>

apenas mude o está em negrito deacordo com seu sistema

[Operador]

Só mais um perguntinha deu certo ir para a página detalhes.asp. Agora na página detalhes.asp irá buscar os campos no bd do usuário selecionado na página anterior dos 5 ultimos, mais como devo criar está pasta? Assim:

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

set rs = conn.execute("select top 1 * from users order by id desc")

response.write(" "&rs("firstname"))
response.write(" "&rs("cidade"))
response.write(" "&rs("estado"))

%>

Pq tentei e até aparece mais aparece sempre o do 1°, clique no segundo usuário e aparece a mesma coisa que apareceu no 1°, daria pra me ajudar somente com isso.

Obrigado.

[_MX_]

faz assim na página de detalhes

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

set rs = conn.execute("select top 1 * from users where id=" & request("usuario") & " order by id desc")

response.write(" "&rs("firstname"))
response.write(" "&rs("cidade"))
response.write(" "&rs("estado"))

%>

Edição feita por: _MX_, 13/07/2004, 17:51.

[Operador]

faz assim na página de detalhes

<%
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

set rs = conn.execute("select top 1 * from users where id=" & request("usuario") & " order by id desc")

response.write(" "&rs("firstname"))
response.write(" "&rs("cidade"))
response.write(" "&rs("estado"))

%>

Apareceu isso:

Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe (operador faltando) na expressão de consulta 'id='.
/detalhes.asp, line 6

O que está faltando?