Paginar Con Asp

[DAMV]

Que tal soy nuevo sobre el tema de ASP. e intentado paginar con los ejemplos que aqui los muestran pero no puedo alguien me podria ayudar. hasta ahorita solo llevo la conexion de la base hacia la pagina pero requiero que esta solo me muestre los ultiimos 24 registros y no todos los que esten en la base de datos, ya sea paginando o con algun comando en especial esto es lo que tengo:

<%
Dim oConn,strSQL, objRS

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

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\falcon\falcon.mdb"))

strSQL = "SELECT Id, Fecha, Hora, Referencia FROM falcon ORDER BY Fecha DESC, Hora DESC"
Set objRS = oConn.Execute(strSQL)

%>
<div align="center">
<center>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 width="335">
<TR><TD width="106" align="left"> <b> ID</b></TD><TD width="173" align="left"> <b> Fecha</b> </TD><TD width="180" align="left"> <b> Hora</b> </TD><TD width="92" align="left"> <b> Referencia</b> </TD></TR>

<%

while (not objRS.Eof)
Response.Write("<tr><td>&nbsp ;" & objRS("Id") & "</td><td> " & objRS("Fecha") & "</td><td> " & objRS("Hora") & "<td> " & objRS("Referencia") & " </td></tr>")
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%>


Esto jala perfectamente solo me falta lo que mencione arriba. si alguiein me yuda se lo agradeceria infinitamente ya que soy nuevo en esto.

MIL GRACIAS

[CHuLoSoY]

Código:

<%

Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros

'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=1

if Request.Querystring("pagina")="" then
	PaginaActual=15
else
	PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
	"Data Source="&Server.MapPath("..\falcon\falcon.mdb")&";"
SQL="SELECT TOP 24 Id, Fecha, Hora, Referencia FROM falcon ORDER BY Fecha DESC, Hora DESC"
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2
PaginasTotales=rs.PageCount
if PaginaActual < 1 then 
	PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
	PaginaActual = PaginasTotales
end if

if PaginasTotales=0 then

	Response.Write("No hay registros")

else
	rs.AbsolutePage=PaginaActual
	Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
	CuantosRegistros=0
	do while not rs.EOF and CuantosRegistros < TamPagina
Response.Write "Campo1 " &rs.Fields("id") & " Campo 2 " &rs.Fields("asunto") & "."
CuantosRegistros=CuantosRegistros+1
		rs.MoveNext
	loop
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
if PaginaActual > 1 then
	Response.Write("<A HREF='paginar.asp?pagina="& PaginaActual-1& _
	"'>Página anterior</A>")
end if
if PaginaActual < PaginasTotales then
	Response.Write("<A HREF='paginar.asp?pagina=" & PaginaActual+1 & _ 
	"'>Página siguiente</A>")
end if
%>

bien, con ese código te servirá, cambia abajo en donde pone PAGINAR.ASP el nombre de tu página.

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">

[vic78]

Hi, si solo quieres q' te muestre los primeros 24 registros,puedes usar esto

SELECT Top 24 Id, Fecha, Hora, Referencia FROM falcon ORDER BY Fecha DESC, Hora DESC&quot;

Saludos

[vic78]

Hi, si solo quieres q' te muestre los primeros 24 registros,puedes usar esto

SELECT Top 24 Id, Fecha, Hora, Referencia FROM falcon ORDER BY Fecha DESC, Hora DESC&quot;

Saludos

[DAMV]

Muchas GRacias A los dos.
ChuloSoy ahora me arroja el siguiente error.

Microsoft VBScript compilation error '800a0411'

Name redefined

/falcon/falcon.asp, line 45

Dim oConn
----^

GRACIAS

VIC78

Yo requiero que me muestre los ultimos 24 registros no los primeros.

GRACIAS

[CHuLoSoY]

Tal y como te lo puse muestra los 24 últimos registros (al final pone DESC). El error no sé a que puede ser debido, a mi me funciona, espera que miro.

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">

[CHuLoSoY]

Qué línea es? es que así no me guío

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">

[DAMV]

Dim oConn, rs, SQL

[CHuLoSoY]

Hola, eso está bien, has modificado algo del código?

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">

[DAMV]

No solo modifique la la de PAGINAR.ASP
Tengo que quitar mi codigo que puse al principio??

Y solo dejar el codigo que em enviaste??

[CHuLoSoY]

claro

tu pon sólo eso que ya se encarga él de paginar.

<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">