incolonnare i risultati

[smile21]

ciao a tutti, ho uno script che mi stampa a video i risultati in due colonne:
nazione e numero

Argentina 4
Armenia 0
Australia 4
Austria 6

vorrei però riuscire a stamparli in 4 colonne

Argentina 4 Armenia 0
Australia 4 Austria 6

ho provato a modificare lo script, ma il risultato è che mi fa 4 colonne, ma mi toglie il numero oppure non me lo incrementa.

posto lo script, qualcuno mi aiuta a sistemarlo?

<td width="670">
<table border="0" width="80%" cellpadding="2">
<tr>
<td valign="top">
<%
If rs.EOF or rs.BOF Then
Response.write "No category available"
Else
rs.MoveFirst
Colore = "#ffffff"
Do While not rs.EOF
If Colore = "#F2F2F2" Then
Colore = "#ffffff"
Else
Colore = "#F2F2F2"
End If

NumCat = rs("id")
sql = "SELECT * FROM archivio WHERE categoria=" & NumCat
Set rsN = Server.CreateObject("ADODB.Recordset")
rsN.Open sql, cn
NumLink=0
If rsN.EOF or rsN.BOF Then
NumLink = 0
Else
Do While not rsN.EOF
NumLink = NumLink+1
rsN.MoveNext
Loop
End If
rsN.close
set rsN = Nothing
%>
<div align="center">
<center>
<table border="0" width="100%" cellpadding="2">
<tr>
<td width="60%" bgcolor="<%=Colore%>">"><%=rs("categoria")%></td>
<td width="40%" bgcolor="<%=Colore%>"><%=NumLink%></td>

</tr>

</table>
</center>
</div>
<%
rs.MoveNext
Loop
End If
%>
</td>
</tr> <tr>
<td bgcolor="#FFFFFF" valign="top">
<p align="center">[img]addurl.gif[/img]</p>
</td></tr>
</table>

GRAZIEEEEE

[EvanderIV]

non conosco VBS quindi non saprei riformulartelo correttamente , ma hai controllato bene l'inserzione dei tag TD e TR dinamica fatta dal codice ? (vedo che usi il tag center ma anche i div in un certo modo quindi stai usando i css , quel tag se non erro e "deprecato ", ti converrebbe sostituirlo , se necessatio, con righe opportune nel css)

ciao

[smile21]

[smile21]

non ho risolto, ma grazie lo stesso.
buon fine settimana