nella pagina index.asp ho un elenco di voci che sono dei collegamenti che aprono un'ulteriore pagina .asp. Il problema sta nel fatto che desidero impostare tali collegamenti su due colonne:...

<table width="400" border="0" align="center">
<tr>
<td width="200">
<div id="menu" align="left">
<%
Dim sql
sql="SELECT * FROM categorie "
rs.Open sql, cn, adOpenKeyset
dim i
for i = 0 to 40
%>
<%
Dim link
link=rs("nome")
id1=rs("id_categoria")
%>
<a href="categorie.asp?id=<% response.write(id1)%>"><%response.write(link)%></a>
<%
rs.MoveNext
next
%>
</div>
</td>
<td width="200">
<div id="menu" align="left">
<a href="categorie.asp?id=<% response.write(id1)%>"><%response.write(link)%></a>
<%
rs.MoveNext
next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
</div>
</td>
</tr>
</table>

nella prima colonna mi carica regolarmente i primi 41 record nella seconda mi copia 41 volte il 41 record
... qualche suggerimento? vi ringrazio anticipatamente..

Innanzitutto grazie mille per esserti interessato....
il codice da te postato genera una cosa di questo tipo:
categoria 1 categoria 2
categoria 3 categoria 4
categoria 5 categoria 6
io, invece, vorrei
categoria 1 categoria 4
categoria 2 categoria 5
categoria 3 categoria 6
ho provato a dare un'occhiata nel sito ma nn ho trovato nulla del genere
... ancora grazie

..rispondo dopo un mese perkè ho lavorato su altro
cmq premetto che non ho dimestichezza con gli array
per cui volevo sapere se è il caso di lavorare con array bidimensionali e popolarli quindi con la funzione getrows o con quelli monodimensionali e se così come si inserisconi i dati prelevati da un db?

ho provato in questo modo ma non riesco ad ordinarli in due colonne

<%
Dim sql
sql="SELECT nome FROM categorie "
rs.Open sql, cn, adOpenKeyset
arrTabella=rs.getrows()
%>
<table>
<%
for iRiga = 0 to UBound(arrTabella, 2)
response.write "<TR>" & vbCrLf
for iColonna = 0 to UBound(arrTabella, 1)
Response.Write vbTab & "<td>" &arrTabella(iColonna,iRiga)& "</td>" & vbCrLf
next
Response.Write "</tr>" & vbCrLf
next
%>
</table>
<%
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>