Exibir somente os 05 últimos registros cadastrados no Banco de Dados.

[--_Michel_--]

Exibir somente os 05 últimos registros cadastrados no Banco de Dados.

Você poderá alterar os números de acordo com o que necessitar... Basta apenas trocar os valores das variáveis.

Este código foi desenvolvido com a ajuda dos moderadores e menbros do site. Lembre-se, Copiar apenas o código não trará conhecimentos para o programador, pesquise e sempre questionem as funções utilizadas aqui no forum.

[SIZE=1]<!------------------------------------------------------------------------------------
WWW.PNEONLINE.COM
PORTAL NOVA ERA ONLINE SYSTEM TECNOLOGY
DESENVOLVENDO PROJETOS WEB
CONTATO TEL: (12)3907-6334 ou (12)9113-9428
CONTATO E-MAIL: LEMESPNE@IG.COM.BR
CONTATO ICQ: 301297234
CÓDIGO DESENVOLVIDO COM ORIENTAÇÃO DOS MODERADORES DO SITE WWW.SCRIPTBRASIL.COM.BR/FORUM
MODERADOR ASP: DARK0
MODERADOR HTML: VICTOR ASP%
MEMBROS: BARETA, CYBERALEXXX, DMLMOSILVA
------------------------------------------------------------------------------------------>
<!--#include file="configteste.asp" -->
<%
dim conn, rs, sql
set conn = server.createobject ("ADODB.connection")
Set rs =Server.CreateObject("ADODB.Recordset")
conn.Open caminhoBD
SQL = "select * from tabela order by id"
Rs.Open sql, conn

If rs.EOF Then
Response.Write "Nenhum usuario cadastrado"
else

dim texto
dim id
texto = array()
id = array()
z=1
while not rs.EOF
ReDim preserve texto(UBound(texto)+1) 
ReDim preserve id(UBound(id)+1) 
texto(Ubound(texto)) = rs("texto")
id(Ubound(id))= rs("id")
z=z+1
rs.MoveNext
wend
rs.Close
end if

if z>4 then
response.write id(0)&" - "&texto(0)&"<br>"
response.write id(1)&" - "&texto(1)&"<br>"
response.write id(2)&" - "&texto(2)&"<br>"
response.write id(3)&" - "&texto(3)&"<br>"
response.write id(4)&" - "&texto(4)&"<br>"
else
response.write "Erro"
end if

%>[/SIZE]