Paginar lo paginado

[Maku]

Urjose, desisto, te mando todo lo que pongo y dime si puedo hacer algo con ello, a lo mejor es que el problema no esta ahi solo.

Esto es lo que yo pongo, el ultimo parrafo intento poner lo que me dices pero me debe faltar algun parametro(segun me dice el error)¡¡¡ Aghhhhh !!!
<%
Dim Conn, RS, mostrar, pag_totales, pag_actual
Set Conn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../CitasCelebres.mdb")
sql = "SELECT * FROM conCitas"
RS.Open sql, Conn,3,1

mostrar = 10
rs.PageSize = mostrar
rs.CacheSize = mostrar

if Request.Querystring("pagina")="&quo t; then
pag_actual=1
else
pag_actual=CInt(Request.Querystring("pagina&q uot;))
end if

pag_totales = rs.PageCount

if pag_actual < 1 then
pag_actual = 1
end if
if pag_actual > pag_totales then
pag_actual = pag_totales
end if

if pag_totales=0 then
Response.Write("No hay Autores.")
else
rs.AbsolutePage = pag_actual
Response.Write "<TABLE ALIGN=down WIDTH=114% CELLPADDING=0 CELLSPACING=0 BORDER=0><TR><TD>"
Response.Write "</TD><TD ALIGN=right VALIGN=top>"
Response.Write("Página " & Pag_actual & " de " & pag_totales &"<BR>")
cant_registros = 0
Response.Write("<a target=inferiord href=../Portadas/PortadaInicialABC/InicialABC.htm>Volver</a>    & nbsp; ")
if pag_actual > 1 then
Response.Write("<A HREF=verCita.asp?pagina="& pag_actual-1& ">10 anteriores</A>    &quot ;)
end if



if pag_actual < pag_totales then
Response.Write("<A HREF=verCita.asp?pagina="& pag_actual+1&ncita=<%Server.UrlEncode(IdAut or)%>">10 anteriores</a>")
end if%>