Ok Vincent.
ecco il codice che ho fatto,
Questo stampa i record uno sotto l'altro. Io dovrei farli stampare in tre colonne
codice:
<%
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 € <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%>