Tabelle orizzontalmente con asp

[macking]

Vi spiego la mia situazione: Dopo aver riempito delle tabelle con dei dti di un database, vorrei collocarle in ordine orizzontale di tre in tre, nel senso ke ad ogni rigo ce ne devono essere tre e poi a capo....Ora vi posto il mio script ke le genera tuttavia verticalmente..Se potete aiutarmi ve ne sarò grato...
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/artigianato.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from articoli where categoria ="&categoria
Rs.Open sql, Conn, 1, 3
%>
<%

If page = "" then
page = (rs.PageCount)
End if


Rs.PageSize = perpage

Rs.AbsolutePage = page
%>
<div align="left">
<p align="center">
<%

For i = 1 to perpage
If Not Rs.EOF then
%>
</p>
<div align="left">
<table width="151" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#990000">
<tbody>
<tr>
<td valign="top" width="147" align="center" height="132">
[img]file/immagini/& Rs([/img]
</td>
</tr>
<tr>
<td valign="center" bgcolor="#990000" height="19">
<div align="center"><span class="Stile2">
<font color="#FFFFFF">
<%
Dim nome
nome=rs("nome")
response.write(nome)
%>
</font></span> </div></td>
</tr>
<tr>
<td height="3"> </td>
</tr>
<tr>
<td valign="top" align="left"> <p class="Stile32" align="center">Cod:
<%
Dim codice
codice=rs("codice")
response.write(codice)
%>
</p></td>
</tr>
<tr>
<td height="5"> </td>
</tr>
<tr>
<td valign="top" align="left"> <p class="Stile1" align="center">
<%
Dim descrizione
descrizione=rs("descrizione")
response.write(descrizione)
%>
</p></td>
</tr>
</tbody>
</table>

</div>
<p align="center">
<%

Rs.MoveNext
end if
next
%>
</p>
</div>
</td>
</tr>
</table>

[ale_1976]

ti spiego come potresti fare, poi eventualmente se non riesci a mettere in atto la cosa dillo che entriamo nel dettaglio:

in sostanza devi mettere un contatore che si incrementa di uno ogni giro nel ciclo. All'interno del ciclo poi metti un controllo "if", con il quale se il contatore è uguale a 1 inserirai l'inizio della riga quindi un "<tr>", poi per ogni record inserisci il relativo "td", infine metti il controllo che se il contatore è uguale al numero massimo che hai deciso (che potresti inserirti in una variabile prima di tutto) , nel tuo caso 3, gli fai stampare la chiusura della riga, quindi "</tr>"....inoltre molto importante, riporti il contatore a 1...così ricomincia il ciclo...

Dopo il ciclo metti un controllo che guarda a che numero è arrivato il tuo contatore...a quel punto gli dici di creare un numero di "td" che chiudano l'ultima riga...

...divertiti...

[macking]

Allora potresti spiegarmi più in dettaglio come fare magari con un esempio? thanks

[zetaweb]

devi fare un codice del genere:

<table>
<tr>
<%
if not rs.eof
conta = 0
while not rs.eof
conta = conta + 1
%>
<td><%=rs("tuo campo")%></td>
<%
if conta = 3 then
response.write "</tr><tr>"
conta = 0
end if
rs.movenext
wend
end if
%>
</tr></table>

chiaramente il contenuto lo adatti al tuo codice html.

[macking]

Ragazzi dove sbaglio?
<%for i=1 perpage
if not rs.eof then
conta = 0
while not rs.eof then
conta= conta+1%>
Mi dice "prevista istruzione" e non parte....Cosa può essere?

[ale_1976]

...for i=1 TO perpage...forse?

[macking]

neanke così va..Cmq il codice a cui sto aplicando il tutto è il seguente:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/artigianato.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from articoli where categoria ="&categoria
Rs.Open sql, Conn, 1, 3
%>
<%

If page = "" then
page = (rs.PageCount)
End if


Rs.PageSize = perpage

Rs.AbsolutePage = page
%>
<div align="left">
<p align="center">
<%

For i = 1 to perpage
If Not Rs.EOF then
%>
</p>
<div align="left">
<table width="151" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#990000">
<tbody>
<tr>
<td valign="top" width="147" align="center" height="132">
[img]file/immagini/& Rs([/img]
</td>
</tr>
<tr>
<td valign="center" bgcolor="#990000" height="19">
<div align="center"><span class="Stile2">
<font color="#FFFFFF">
<%
Dim nome
nome=rs("nome")
response.write(nome)
%>
</font></span> </div></td>
</tr>
<tr>
<td height="3"> </td>
</tr>
<tr>
<td valign="top" align="left"> <p class="Stile32" align="center">Cod:
<%
Dim codice
codice=rs("codice")
response.write(codice)
%>
</p></td>
</tr>
<tr>
<td height="5"> </td>
</tr>
<tr>
<td valign="top" align="left"> <p class="Stile1" align="center">
<%
Dim descrizione
descrizione=rs("descrizione")
response.write(descrizione)
%>
</p></td>
</tr>
</tbody>
</table>

</div>
<p align="center">
<%

Rs.MoveNext
end if
next
%>
</p>
</div>
</td>
</tr>
</table>



Come potrei applicare il contatore postato da zetaweb?

[ale_1976]

<%
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/artigianato.mdb") 
Set Rs = Server.CreateObject("ADODB.Recordset") 
sql = "select * from articoli where categoria ="&categoria
Rs.Open sql, Conn, 1, 3 
%>
<%
If page = "" then 
page = (rs.PageCount) 
End if 


Rs.PageSize = perpage 

Rs.AbsolutePage = page 
%>
<div>
<table style="width: 100%;">
<%
cont=0
For i = 1 to perpage 
If Not Rs.EOF then 
cont=cont+1
%>
</p>
<%if cont=1 then%>
<tr> 
<%end if%>
<td>
    <table width="151" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#990000">
    <tbody>
    <tr>
    <td valign="top" width="147" align="center" height="132"> 
    [img]file/immagini/<%=Rs([/img]" width="147" height="132"> 
    </td>
    </tr>
    <tr> 
    <td valign="center" bgcolor="#990000" height="19"> 
    <div align="center"><span class="Stile2"> 
    <font color="#FFFFFF"> 
    <%=rs("nome")%>
    </font></span> </div></td>
    </tr>
    <tr> 
    <td height="3"> </td>
    </tr>
    <tr> 
    <td valign="top" align="left"> <p class="Stile32" align="center">Cod: 
    <%=rs("codice")%>
    </p></td>
    </tr>
    <tr> 
    <td height="5"> </td>
    </tr>
    <tr> 
    <td valign="top" align="left"> <p class="Stile1" align="center"> 
    <%=rs("descrizione")%>
    </p></td>
    </tr>
    </tbody>
    </table>
</td>
<%if cont=perpage then%>
</tr> 
<%
cont=0
end if%>
<%

Rs.MoveNext 
end if 
next 
%>
</table> 
</div>
<p align="center">
</p>
</div>
</td>
</tr>
</table>