Distribuzione su una pagina dei contenuti di una tabella di un db

[Roby140569]

Alla luce delle nuove informazioni che ti ho dato, avresti qualche idea in merito al problema da me posto? :master:

Thanx!

[Mems]

Si.
Un esempio... più o meno... non posso testarlo però. Vedi un po tu.

set rs = server.createObject("ADODB.Recordset")
rs.open sql, conn, 3, 1
x = 1
if not rs.eof then
%>
<table>
  <tr>
<%
do until rs.eof
%>
    <td><%=rs("nomeCampo")%></td>
<%
if x = 2 then
response.write "  </tr>"
response.write "  <tr>"
x = 1
else
x = x + 1
end if
rs.moveNext
loop
end if
%>
  </tr>
</table>

[Roby140569]

Mille grazie per la risposta... ti farò sapere.

[Roby140569]

Così come mi hai suggerito tu, riesco a mettere un certo numero di record per riga.

Il problema, però, è questo: per ogni record ho tre informazioni da distribuire su una pagina: immagine, nome, descrizione.

Vorrei mettere ogni informazioni in una cella diversa... qualcosa di questo tipo.

<table>
 <tr>
    <td>immagine 1</td>
    <td>immagine 2</td>
    <td>immagine 3</td>
  </tr>
<tr>
    <td>nome 1</td>
    <td>nome 2</td>
    <td>nome 3</td>
  </tr>
<tr>
    <td>descrizione 1</td>
    <td>descrizione 2</td>
    <td>descrizione 3</td>
  </tr>
... per tante righe quanto voglio...
</table>

Il codice che sto usando adesso è questo, però mi mette le informazioni di ogni record in una sola cella:

<table width="735" border="0" align="center" cellpadding="4" cellspacing="10">
 <tr>
  <%
   sqlString = "SELECT idprodotto, itnome, itdescrizione, img" &_
   "FROM prodotti " &_
   "ORDER BY idprodotto DESC"
		
   SET RS = Conn.Execute(sqlString)
			
   Cella = 1 
   IF Not RS.EOF THEN
		
   Do Until RS.EOF
			
   idprodotto = RS("idprodotto")
   itnome = RS("itnome")
   itdescrizione = RS("itdescrizione")
   img = RS("img")	
   
   Response.Write("<td>")
   Response.Write("<a href='../../../public/catalogo/")
   Response.Write(img)
   Response.Write("' target='_blank'>")
   Response.Write("<img src='../../../public/catalogo/")
   Response.Write(img)
   Response.Write("' width='230' border='0' /></a>
")
   Response.Write(itnome)
   Response.Write("
")
   Response.Write(itdescrizione)
			
   %>
   </td>
   <%
    If Cella = 3 THEN
        Response.Write("</tr>")
        Response.Write("<tr>")
        Cella = 1
    Else
        Cella = Cella +1
    End If	
    
    RS.MoveNext
    Loop 
		
    End If 	
    %>

   </tr>
</table>

[Roby140569]

Ho risolto.