Paginar lo paginado

[urjose]

te dejo lo que utilizo yo es lo mismo que tu haces espero que sea de ayuda

<%
Estado=Request.QueryString("Estado") 'En tu caso seria recoger el autor

Dim oConn, oRs, sSQL
Dim PaginaActual, PaginasTotales, TamPagina,CuantosRegistros

Tampagina=10

If Request.QueryString("Pagina")="&quo t; Then
PaginaActual=1
Else
PaginaActual=CInt(Request.QueryString("Pagina ") )
End If

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

oConn.Open("")

sSQL = "SELECT IdAuto, EstadoRepublica, TipoDeAuto, Marca, Modelo, ColorInterior, ColorExterior, Anio, Precio, Fecha FROM ClasificadosG Where TipoDeAuto='Automóviles' AND EstadoRepublica='"& Estado &"' ORDER BY IdAuto DESC"

oRs.pageSize=TamPagina
oRs.CacheSize=TamPagina

oRs.CursorLocation=3


'Set oRS = oConn.Execute(sSQL)

oRs.Open sSQL, oConn, 1, 2

PaginasTotales=oRs.PageCount

If PaginaActual < 1 Then
PaginaActual=1
End If

If PaginaActual > PaginasTotales Then
PaginaActual=PaginasTotales
End If%>




<b><font size="2" color="#FF0000" face="Arial">
<p align="center"><%If PaginaActual > 1 Then%><font color="#FF0000"><a href="index.asp?Pagina=<%=PaginaActual-1%>&Estado=<%=Estado%>">& lt;b><font size="2" face="Arial">Anteriores-</font></b><%End If%></a><font size="2" color="#FF0000" face="Arial"><b> 
<%If PaginaActual < PaginasTotales Then%><a href="index.asp?Pagina=<%=PaginaActual+1%& gt;&Estado=<%=Estado%>">Sigu ientes</a><%End If%></b></font>
</font><font color="#FF0000"> </font>
</font> </b>

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">