Paginazione Html + Asp

[M@sE]

Ciao a tutti ragazzi! Ho un piccolo problema con la paginazione.

Vorrei far visualizzare 3 PRODOTTI PER RIGO ED ANDARE A CAPO, HO PROVATO GUARDANDO UN VECCHIO CODICE CON IL CICLO X=0 Ecc, ma non ci sono riuscito, posto il codice intero mi dite come fare?

   <p align="center">
   [img]images/Elenco%20Articoli%20In%20Categoria.gif[/img]</p>
   <table border=0 cellpadding=0 cellspacing=0 id="table1" width="100%"><tr><td>
     <p align="left"> 
<% if len(Session("aperta")) > 0 then
idlineadicatalogo = Request.QueryString("idlineadicatalogo")
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\..\mdb-database\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
If Len(idlineadicatalogo) = 0 Then%>
<%Else%>
<%
'Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "InformazioniEstese, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo, "
sqlquery = sqlquery & "RiferimentoDiIcona, "
sqlquery = sqlquery & "RiferimentoDiFoto "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "IDLinea = " & idlineadicatalogo & " "
sqlquery = sqlquery & " And "
sqlquery = sqlquery & "InVendita=true "
Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
<%
'Dim ID
Dim Codice
'Dim Denominazione
'Dim Informazioni
Dim InformazioniEstese
Dim Confezione
Dim Prezzo
Dim RiferimentoDiIcona
Dim RiferimentoDiFoto
%>
<%If RecordsetArticoli.EOF Then%>
<%Else%> </p>
<div align="center">
<TABLE BORDER=0 CELLPADDING=2 id="table2" width="100%" cellspacing="1">
<%if err=0 then
While Not RecordsetArticoli.EOF%>
<%
ID = RecordsetArticoli("ID")
Codice = RecordsetArticoli("Codice")
Denominazione = RecordsetArticoli("Denominazione")
Informazioni = RecordsetArticoli("Informazioni")
InformazioniEstese = RecordsetArticoli("InformazioniEstese")
Confezione = RecordsetArticoli("Confezione")
Prezzo = RecordsetArticoli("Prezzo")
RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>
<TR VALIGN="TOP">
<TD align="center" bgcolor="#FFFFFF" width="5%">
<%If RiferimentoDiIcona <> "" Then%>
<A HREF="default.asp?go=scheda&idarticolo=<%=ID%>">
<%=Denominazione%></A>

<A HREF="default.asp?go=scheda&idarticolo=<%=ID%>">
[img]<%=RiferimentoDiIcona%>[/img]</A>

Prezzo &euro; <u> <%=FormatNumber(Prezzo, 2, -1, 0, -1)%></u>



</p>
<%else%>
<A HREF="default.asp?go=scheda&idarticolo=<%=ID%>">

<%=Denominazione%></A>


Prezzo &euro; <u> <%=FormatNumber(Prezzo, 2, -1, 0, -1)%></u>


</p>
<%End If%>
</TD>
</TR>
<%RecordsetArticoli.MoveNext%>
<%Wend
end if%>
</TABLE>
</div>
<%End If%>
<%End If%>
<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>
<H4 align="center">SESSIONE SCADUTA CLICCA QUI PER VISUALIZZARE IL CATALOGO.</H4>

<%end if
%>
</TD></TR>
<TR><TD align=left>
<p align="center">
    <p align="center">
    <a href="javascript:history.go(-1)">&lt;&lt;
INDIETRO</a> |
    <a href="default.asp?go=catalogo">TORNA 
    AL CATALOGO</a> | CARRELLO<p align="center">
    </TD></TR></table>
   <p align="right"></p>

[teorema55]

Inserisci queste modifiche nella creazione della tabella (fai copia-incolla al posto della porzione del tuo codice corrispondente, cioè quella compresa tra i tags <table> e </table>):

<TABLE BORDER=0 CELLPADDING=2 id="table2" width="100%" cellspacing="1">
<TR VALIGN="TOP">
<%if err=0 then
dim cont
cont = 0
While Not RecordsetArticoli.EOF
ID = RecordsetArticoli("ID")
Codice = RecordsetArticoli("Codice")
Denominazione = RecordsetArticoli("Denominazione")
Informazioni = RecordsetArticoli("Informazioni")
InformazioniEstese = RecordsetArticoli("InformazioniEstese")
Confezione = RecordsetArticoli("Confezione")
Prezzo = RecordsetArticoli("Prezzo")
RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>

<TD align="center" bgcolor="#FFFFFF" width="5%">
<%If RiferimentoDiIcona <> "" Then%>
<A HREF="default.asp?go=scheda&idarticolo=<%=ID%>">
<%=Denominazione%></A>

<A HREF="default.asp?go=scheda&idarticolo=<%=ID%>">
[img]<%=RiferimentoDiIcona%>[/img]</A>

Prezzo € <u> <%=FormatNumber(Prezzo, 2, -1, 0, -1)%></u>



 </p>
<%else%>
<A HREF="default.asp?go=scheda&idarticolo=<%=ID%>">

<%=Denominazione%></A>


Prezzo € <u> <%=FormatNumber(Prezzo, 2, -1, 0, -1)%></u>


 </p>
<%End If%>
</TD>
<%if cont mod 3 = 0 then%>
</TR>
<TR VALIGN="TOP">
<%end if
cont = cont + 1
RecordsetArticoli.MoveNext
Wend
end if%>
</TR>
</TABLE>

dovrebbe risolvere il tuo problema, fai sapere.