Problema paginazione a 2 colonne

[Shryne]

Ho una paginazione per le immagini che funziona alla grande ma ha un problema... mi mostra tutti i record sulla prima pagina (almeno per ora ho inserito solo 8 record) mentre lo script dovrebbe visualizzarne solo 6 per pagina...
Questo è il codice, potete dirmi cosa sbaglio?

Codice:

      category = request.form("category") 
      perpage = 6 
      page = Request.QueryString("pagina") 
      if page = 0 then page = 1 
      Set rsFoto = Server.CreateObject("ADODB.Recordset") 
      If category = "" then 
         SQL = "select * from TB_IMG order by ID_IMG desc" 
      else 
         SQL = "select * from TB_IMG where CAT_IMG=" & category & " order by ID_IMG desc" 
      end if 
      rsFoto.Open SQL, Conn, 1, 3 
       
      rsFoto.PageSize = perpage 
       
      ImgTotRecords = rsFoto.RecordCount 
       
      If ImgTotRecords = 0 then 
      %> 
      Non ci sono foto nella categoria selezionata 
      <% 
      else 
          
         rsFoto.AbsolutePage = page 

   If ImgTotRecords = 1 then 
   %> 
   C'è 1 sola foto in questa categoria

 
   <% 
   else 
   %> 
   Ci sono <%=ImgTotRecords%> foto in questa categoria.

 
   <% 
   end if 
   TotPages = rsFoto.PageCount 
   %> 

... Qui c'è la numerazione per la paginazione... 

'Da qui comincia la visualizzazione dei record 
<table border="0" width="100%"> 
<tr> 
<% 
      For i = 1 to perpage 
      conta = 0 
      Do while not rsFoto.EOF 
      id = rsFoto("ID_IMG") 
      conta = conta + 1 
         if conta > 3 then 
            conta = 1 
%> 
   </tr> 
   <tr> 
<% 
         end if 
%> 
   <td align="left" width="33%"> 
      [img]/include/wbresize.aspx?f=<%=rsFoto([/img]&w=175&c=60" alt="" border="1" /> 
      
 
      
 
      <%=rsFoto("NOME_IMG")%>

 
      [img]images/i_delete.gif[/img] Elimina


 
   </td> 
<% 
      rsFoto.MoveNext 
      Loop 
      Next 
%> 
   </tr> 
</table>

[willybit]

tu fai

For i = 1 to perpage 
      conta = 0 
      Do while not rsFoto.EOF 
         .....
         rsFoto.MoveNext
      Loop
next

così il ciclo for non serve a niente perché al primo giro scorri tutti i record nel ciclo do while
casomai devi fare

      conta = 0 
      i=0
      Do while not rsFoto.EOF and i<perpage
         i=i+1
         .....
         rsFoto.MoveNext
      Loop