Paginar Con Asp

[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%">