Paginação Com "limite"

[Rapper]

ae fazendo favor alguém pode me ajuda a "adaptar" esse código pra ficar no modo:

Páginas: 1 de 20 - 1 2 3 4

Páginas: 3 de 20 3 3 4 5 4

Páginas: 5 de 20 3 5 6 7 4

bom se alguém poder me ajudar ficarei muito agradecido!

<table width="200" border="0" cellspacing="0" cellpadding="0" style="border: 1 solid #FF0000">
  <tr align="center">
    <td height="20" style="border-bottom: 1 solid #FF0000; border-right: 1 solid #FF0000"><font color="#00FF00" size="1" face="Verdana"><b>C1</b></font></td>
    <td height="20" style="border-bottom: 1 solid #FF0000"><font color="#00FF00" size="1" face="Verdana"><b>C2</b></font></td>
  </tr>
<%

  sql = "SELECT * FROM c ORDER BY c3"
  set rzo = server.createobject("adodb.recordset")
 rzo.cursorlocation = 3        
 rzo.open sql,conexao
 if (rzo.eof=true) then
 Response.write("sem registros")
 Else
 n = rzo.recordcount
 rzo.movefirst
 rzo.pagesize = 5
 IF Trim(Request.QueryString("pag")) = "" THEN
  pag = 1 
 ELSE
 IF cint(Request.QueryString("pag")) < 1 THEN
  pag = 1 
 ELSE
 IF cint(Request.QueryString("pag")) > n THEN 
  pag = n
 ELSE
 PAG = Request.QueryString("pag")
  END IF
  END IF
  END IF
  rzo.absolutepage = trim(pag)
  total = rzo.PageSize
  x = 0
  do while x < total and not rzo.EOF
  c1 = rzo("c1")
  c2 = rzo("c2")
%> 
<tr align="center">
    <td style="border-right: 1 solid #FF0000"><font color="#00FF00" size="1" face="Verdana"><%=c1%></font></td>
    <td><font color="#00FF00" size="1" face="Verdana"><%=c2%></font></td>
  </tr>
<%
   x = x + 1
   rzo.movenext
   Loop
   End if
   rzo.close
   set rzo = nothing
  IF (n > 1) then
   pagina = Request.Servervariables("SCRIPT_NAME")
%>
</table>
<table width="200" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="18" align="right">
  <% IF pag > 1 THEN %>
     <font color="#FFFFFF" size="1" face="Verdana">P&aacute;ginas: [<b><%=n%></b>] <% IF cint(pag) > 1 THEN %><a href="<%=pagina%>"?page=1><font color="#FF0000" face="Webdings">3</font></a><% END IF %> <b><%=pag%></b> <a href="<%=pagina%>?pag=<%=pag - 1%>"><font color="#FF0000" face="Webdings">4</font></a></font>
  <% END IF %>
  <% 
   IF n > 6 THEN
    maximo = 6
   ELSE
    maximo = n
   END IF
   IF cint(pag) > 1 THEN
    geral = geral + cint(pag)
   END IF
   IF cint(pag) = 1 THEN
    ini = 1
    geral = 6
   ELSEIF cint(pag) <> maximo THEN
    ini = geral
    geral = maximo + 6
   ELSEIF cint(pag) = maximo THEN
    ini = geral
    geral = geral + 6
   ELSE
    ini = 1
    geral = 6
   END IF
   IF geral > n THEN
    geral = n
   END IF
    FOR i = ini TO geral
    NEXT 
   IF cint(pag) < n THEN
    Response.Write("<a href="& pagina &"?pag="& pag + 1 &"><font color='#FF0000' face='Webdings'>4</font>")
   ELSE
    Response.write("")
   END IF
   END IF
  %>
 </td>
</tr>
</table>
</center>
</body>
</html>
<%
conexao.close
set conexao = nothing
%>

[cyberalexxx]

Para exibir a pagina atual: response.write pag

Para exibir o total de paginas: response.write rzo.PageCount

para exibir o nº de 3 paginas: criar um contador de pag até pag+2

a lógica é essa, procure desenvolver, infelizmente to sem tempo agora pra adaptar esse seu código

[bareta]

http://scriptbrasil.com.br/forum/index.php...indpost&p=60707