paginado con una variante

[buliwyf]

ok amigos he aqui como lo hice:

Código:

<%
sql ="select * from cualquer_tabla"
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")
	RS.OPEN SQL, CON,3,3
	
	'**********PAGINADO************
	IF REQUEST.QUERYSTRING("NAV") = "" THEN
	INTPAGE = 1
	ELSE
	INTPAGE = REQUEST.QUERYSTRING("NAV")
	END IF
	
	RS.PAGESIZE = 9
	RS.CACHESIZE = RS.PAGESIZE
	INTPAGECOUNT = RS.PAGECOUNT
	INTRECORDCOUNT = RS.RECORDCOUNT
	IF CINT(INTPAGE) > CINT(INTPAGECOUNT) THEN INTPAGE = INTPAGECOUNT
	IF CINT(INTPAGE) <= 0 THEN INTPAGE = 1
		IF INTRECORDCOUNT > 0 THEN
			RS.ABSOLUTEPAGE = INTPAGE
			INTSTART = RS.ABSOLUTEPOSITION
		IF CINT(INTPAGE) = CINT(INTPAGECOUNT) THEN
			INTFINISH = INTRECORDCOUNT
		ELSE
			INTFINISH = INTSTART + (RS.PAGESIZE - 1)
		END IF
	END IF
	
	IF LEFT(request.servervariables("query_string"),3)="NAV" then
	valor=right(request.servervariables("query_string"), len(request.servervariables("query_string"))-instr(request.servervariables("query_string"),"&"))
	else
	valor=request.servervariables("query_string")
	end if
	
	'********FIN PAGINADO**************

		do while (not rs.eof and lista<9)
		lista=lista+1
		rs.movenext
		loop
		if lista>0 then
		rs.move -lista
		end if
    		completos=fix(lista/3)
    		resto=lista mod 3

%>
      <TABLE width=100% height="411" BORDER=0 CELLPADDING=0 CELLSPACING=0 NAME=PRODUCTOS>
        <%for i=1 to completos%>
        <TR>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
	</TR>
	<%next%>
	<TR>
        <%for i=1 to resto%>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
	<%next%>
	<%for i=1 to (3-resto)%>
  	<td width=33% class=tabla align=center style="padding:1px"></td>
	<%next%>
	</TR>
 
  <tr HEIGHT=6>  
  	  <td height="6" colspan="6"  valign="top" bgcolor="#FFFFFF" class=azul STYLE="PADDING:3PX"> 
          <div align="right">(<b><%=INTRECORDCOUNT%>) productos</b> 
      <br>      <% If cInt(intPage) > 1 Then%>
            <a href="?NAV=<%=intPage - 1%>&<%=valor%>"><img src="img/back.jpg" align=absmiddle border=0></a> 
            <%end if%>
            &nbsp;&nbsp;&nbsp;<b> P&aacute;gina: <%=INTPAGE%> de <%=INTPAGECOUNT%><b>&nbsp;&nbsp;&nbsp; 
            <%If cInt(intPage) < cInt(intPageCount) Then%>
            <a href="?NAV=<%=intPage + 1%>&<%=valor%>"><img src="img/forward.jpg"  align=absmiddle border=0></a> 
            <%end if%>
            </b></b></div></td>
            </TR>
    </table>

cualquier duda me avisan! saludos!