dividere in colonne

[ghis65]

Ok Vincent.
ecco il codice che ho fatto,
Questo stampa i record uno sotto l'altro. Io dovrei farli stampare in tre colonne

<%
Dim sqlquery
sqlquery = "select  *  FROM [Catalogo, Articoli]  WHERE IDLinea = " & idlineadicatalogo & " AND InVendita=true"

Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
    <%iPageSize = 30'NUMERO RECORD PER PAGINA
                 
                
                Set RecordsetArticoli = Server.CreateObject("ADODB.Recordset")
            
                RecordsetArticoli.PageSize = iPageSize
                RecordsetArticoli.CacheSize = iPageSize
                RecordsetArticoli.Open sqlquery, DatabaseWebStore, adOpenStatic, adLockReadOnly, adCmdText
                
                recCount = RecordsetArticoli.RecordCount
                iPageCount = RecordsetArticoli.PageCount
                

                If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
                If iPageCurrent < 1 Then iPageCurrent = 1    
                    
                If iPageCount = 0 Then
                Else
                    RecordsetArticoli.AbsolutePage = iPageCurrent
                    iRecordsShown = 0
                    
                    
                    
                    
                End If
                %>

<%If RecordsetArticoli.EOF Then%>
<%Else%>
    

 <%Do While iRecordsShown < iPageSize And Not RecordsetArticoli.EOF
            ID = RecordsetArticoli("ID")
                    Codice = RecordsetArticoli("Codice")
                    Denominazione = RecordsetArticoli("Denominazione")
                    Informazioni = RecordsetArticoli("Informazioni")
                    Informazioni1= RecordsetArticoli("Informazioni1")
                    Informazioni3= RecordsetArticoli("Informazioni3")
                    InformazioniComplete = RecordsetArticoli("InformazioniComplete")
                    InformazioniEstese = RecordsetArticoli("InformazioniEstese")
                    Confezione = RecordsetArticoli("Confezione")
                    Prezzo = RecordsetArticoli("Prezzo")
                    RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
                    RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>
<table id="table37" border="0" cellpadding="0" cellspacing="0">
    
    <tr>
        
        <td bgcolor="#FFFFFF">
<p><%=Denominazione%></p>
<p><% =Left(InformazioniEstese, 100)%>...<br>
<br>
Prezzo €&nbsp;<b><%=Prezzo%></b>



            <%If RiferimentoDiIcona <> "" Then%>
<a href="scheda_articolo.asp?idarticolo=<%=ID%>"><IMG SRC="immagini/<%=RiferimentoDiIcona%>" width=" 100" border="0" alt="<%=Denominazione%>"></a>

</td>

        
    </tr>
    
</table>
  

<%else%>
<%End If%>

<%iRecordsShown = iRecordsShown + 1
RecordsetArticoli.MoveNext
Loop
%>

</div>
<%End If%>
<%End If%>