modifica tabella

[pr3z1oso]

modifica tabella

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'><strong>" & RSdisciplina("nome_disciplina") & "</strong></font></td><td valign='top' width='12'><a href=htp://ww.ledueruote.it/news/news_disciplina.asp?disciplina_news=" & RSdisciplina("id_disciplina") & "&nome_disciplina=" & ucase(RSdisciplina("nome_disciplina")) & "><img src='../images/pul/ico_" & RSdisciplina("id_disciplina") & ".png' width='12' hspace='2' vspace='4' border='0' alt='VEDI TUTTE DI " & ucase(RSdisciplina("nome_disciplina")) & "'/></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 solid; ' align='right'><a href='htp://ww.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 src="../images/new2.png" vspace="0" hspace="2" align="right" border="0" alt="INSERITA NEGLI ULTIMI 3 gg"> <% 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'><a href='htp://ww.ledueruote.it/news/news_disciplina.asp?disciplina_news=" & RSdisciplina("id_disciplina") & "&nome_disciplina=" & RSdisciplina("nome_disciplina") & "' target='_self' class='piccolorss' ><font color='#ff3333' style='text-decoration:none;'>visualizza le altre</font></a></td></tr>")

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