Salve a tutti.
Ho un problrma per incolonnare dei record di un database.
Attraverso il codice sotto riportato riesco ad incolonnare i record, ma dovrei riuscire ad andare oltre.
Mi spiego nel database ho i seguenti campi id, pagina, categoria, notizia.
Dovrei tirare su i record come link (e fin qui ci sono) ed incolonnarli per categoria, l'attuale codice me li incolonna a seguire come è visibile in questa prova http://www.cischi.com/incolonna2.asp mentre io vorrei ottenere un risultato simile a questo http://www.basebog.it/links.asp
Se qualcuno sa dirmi come incrementere il codice seguente lo ringrazio anticipatamente e prometto di pregare per la sua beatificazione...


Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM newslinks"
rs.Open strSQL,cn,0,1
%>
<TABLE>
<%do While not RS.EOF%>
<TR>
<TD><% link=rs("notizia")%><a href='<%=rs("pagina")%>' target="_blank" class="lbianco"><%=link%></a></TD>
<% rs.MoveNext
if rs.eof then %></tr>
<% rs.close
exit do
end if %>
<TD><% link=rs("notizia")%><a href='<%=rs("pagina")%>' target="_blank" class="lbianco"><%=link%></a><TD>
<% RS.MoveNext %></TR>
<% loop %>
</TABLE>


Grazie di nuovo e buona giornata

Ho provato a utilizzare un arry ma non sono cosi forte con il linguaggio e per il momento ottengo solo questa cosa funzionante ma cosi com'è non va bene anche perche non riesco più ad ottenere neanche il risultato come link.
Quello che ho fatto e il seguente script:

<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT notizia, pagina, categoria FROM newslinks"
rs.Open strSQL,cn,0,1
arrdati=rs.getrows()
rs.close
set rs=nothing
cn.close
set cn=nothing
response.write "<table><tr><td>"
for conta=0 to ubound(arrdati,2)
response.write arrdati(0,conta)
if ((conta+1) mod 5)=0 then
response.write "</td><td>"
else
response.write "<br>"
end if
next
response.write "</td></tr></table>"
erase arrdati
%>

ora iniziero a provare ad inserire il DISTINCT ma non so se quello che ho fatto fino ad ora va bene.

Scusate ma sono un novellino.

NB. (Osservazione per i moderatori o i responsabili del forum) Questo forum non funziona bene su Mac, ne con safari ne con firefox, ho dovuto riesumare un vecchio explorer per mac che non fanno neanche più.
I problemi che riscontro non sono di funzionamento ma di spaginazione e nello spaginarsi ad esempio i pulsanti "anteprima" e "aggiungi messaggi" finiscono sotto la grafica laterale di destra e non si riescono a cliccare.

Funziona!!!!!
Grazie mille, ma mi manca un'altra risposta al post precedente, come posso visualizzarli in modo che siano link?

Nel mio primo tentativo che ho postato con questo codice riuscivo ad ottenere il link camuffato dal testo:
<TD><% link=rs("notizia")%><a href='<%=rs("pagina")%>' target="_blank" class="lbianco"><%=link%></a></TD>

Adesso sono incolonnati per categoria ma sono testuali e basta.

Inoltre, domanda extra, è possibile visualizzare sopra ogni gruppo la relativa categoria?

No scusami ma forse c'è un mal'inteso la pagina su cui stò lavorando è questa qui: http://www.cischi.com/incolonna.asp ed ho seguito il tuo consiglio di incolonnare ordinando per categoria:
strSQL="SELECT notizia, pagina, categoria FROM newslinks order by categoria"
ed effettivamente ho ottenuto dei `blocchi' di record con la stessa categoria.

Ho bisogno di ottenere che siano link e che la categoria sia il titolo del blocco.

Questo è il codice della pagina in questione.

<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT notizia, pagina, categoria FROM newslinks order by categoria"
rs.Open strSQL,cn,0,1
arrdati=rs.getrows()
rs.close
set rs=nothing
cn.close
set cn=nothing
response.write "<table><tr><td>"
for conta=0 to ubound(arrdati,2)
response.write arrdati(0,conta)
if ((conta+1) mod 5)=0 then
response.write "</td><td>"
else
response.write "<br>"
end if
next
response.write "</td></tr></table>"
erase arrdati
%>