modifica tabella

[Pr3z1oso]

Salve, vorrei chiedervi gentilmente aiuto riguardo una tabella che richiama delle informazioni in un database access.
In pratica la tabella richiama le info e le visualizza in questo modo:
w*w.ledueruote.it
Come potete vedere l'elenco è lunghissimo e io vorrei poter dividere questo elenco in 2 colonne.
Ho guardato il codice ma non riesco purtroppo a capire come dividere in 2.
Vi posto il codice sperando che possiate darmi qualche dritta, grazie

<table width="100%" border="1" bordercolor="#cccccc" cellspacing="0" cellpadding="2">
<tr>
<td><table width="100%" border="0" cellpadding="1" cellspacing="0" id=testo> <tr>
<td colspan="2" class="mediorss" align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr valign="middle" class="medio"><%
connessione
sql = "SELECT * FROM menu_home where on_line=True order by posizione_menu"
set rs = Conn.Execute (sql)

Do while NOT rs.EOF
disciplina_menu = rs("disciplina_menu")
'
sqldisciplina = "SELECT * FROM disciplina where on_line=true and ID_disciplina=" & disciplina_menu & ""
Set RSdisciplina = Conn.Execute(sqldisciplina)
'rcounts = RScounts(0)
Response.Write ("<td class='mediorss' style='border-bottom:1px #CCCCCC solid;' width='100%' align='right'><font color='#213783'>" & RSdisciplina("nome_disciplina") & "</font></td><td valign='top' width='12'><a href=ht*p://w*w.ledueruote.it/news/news_disciplina.asp?disciplina_news=" & RSdisciplina("id_disciplina") & "&nome_disciplina=" & ucase(RSdisciplina("nome_disciplina")) & ">[img]../images/pul/ico_" & RSdisciplina("id_disciplina") & ".png[/img]</a></td></tr>")


sqlinterno="select top 3 * from news where disciplina_news="& RSdisciplina("id_disciplina") &" and on_line=True order by data_news desc"
set rsinterno=conn.execute(sqlinterno)
do while not rsinterno.eof
num=num+1
if num mod 2= 0 then
bg="#eab31a"
else
bg="#ffffff"
end if
Response.Write ("<tr><td colspan='2' valign='middle' bgcolor='"&bg&"' class='mediorss' style='border-bottom:1px #CCCCCC solid; ' align='right'><a href='ht*p://w*w.ledueruote.it/news/elenco.asp?id_news=" & rsinterno("id_news") & "&disciplina_news=" & RSdisciplina("id_disciplina") & "&nome_disciplina=" & RSdisciplina("nome_disciplina") & "' target='_self' class='menu_news'>")
%><% data_news = rsinterno("data_news")
Data1 = data_news
Data2 = now
differenza = datediff("D",Data1, Data2)%>
<% if differenza < 3 then %>
[img]../images/new2.png[/img] <% end if %><%
Response.Write ("<font color='#333333'>" & left(rsinterno("data_news"),10) & "-" & rsinterno("titolo_news") & "</font></a></td></tr>")

rsinterno.movenext
loop
rsinterno.close

Response.Write ("<tr><td colspan='2' class='piccolorss' height='50' valign='top' align='right'><font color='#ff3333' style='text-decoration:none;'>visualizza le altre</font></td></tr>")


rs.MoveNext
Loop
disconnessione
%>
</TABLE>
</td>
</tr>
</table></td>
</tr>
</table>

[optime]

semplicemente usando e incrementando un contatore. se questo contatore è divisibile per 2 vai a riga nuova

esempio

Response.Write "<table>"
Response.Write "<tr>"
Do While Not RS.EOF
   i=i+1
   IF i MOD 2 THEN
      Response.Write "</tr><tr>"
   END IF
   Response.Write "<td>"
   Response.Write RS("....")
   Response.Write "</td>"
   RS.MoveNext
Loop
Response.Write "</tr>"
Response.Write "</table>"

cambiando 2 con 3,4,...,n avrai la stampa su 2,3,4,...,n colonne

[Pr3z1oso]

grazie optime per la risposta.
perdonami però, mi servirebbe un aiuto maggiore perchè detto cosi non saprei dove piazzare questo codice.
puoi indicarmi in quale parte del mio codice inserire quello suggeritomi da te ?
grazie ancora e scusami

[optime]

provaci, almeno. non posso mica farti io tutto il lavoro