prelevo dei resord da un DB e vorrei che mi stampasse iun due colonne o 3 max con 10 link

1 | 6
2 | 7
3
4
5


scusate se non usoil tag code ma è lungo !


<%
'VERSIONE FILE 1.4.0
%>

<link href="/TekShop/include/ecommerce.css" rel="stylesheet" type="text/css">

<table width="100%" border="0" cellpadding="3" cellspacing="0" bordercolor="#CCCCCC">
<link href="/TekShop/include/ecommerce.css" rel="stylesheet" type="text/css">

<tr>
<td width="100%" valign="middle" bordercolor="#FFFFFF">
<span class="testigrigi">Categorie</span></td>
</tr>
<tr>
<td valign="top" bordercolor="#FFFFFF" bgcolor="<%=Tabella_Colore_Cella%>"> <div align="left">
<%

SQLCat = " SELECT ID, SCategoria FROM SCategorie "
Set RScat = Conn.Execute(SQLCat)

If Not RSCat.EOF Then
SCatArr = RScat.GetRows

'---Stampo a video le scategorie ed eventuali categorie
If QSSCategoria <> "" Then
SQLCat = " SELECT ID, Categoria FROM Categorie WHERE SCategoria = " & QSSCategoria
Set RSCat = Conn.Execute(SQLCat)

If Not RSCat.EOF Then
CatArr = RSCat.GetRows
BoolCategorie = True
Else
BoolCategorie = False
End If

RSCat.Close
End If

For Icat = 0 to UBound(SCatArr, 2)
%>
<%
If CStr(SCatArr(0,ICat)) = QSSCategoria Then
If boolCategorie Then
For K = 0 To UBound(CatArr,2)
%>
<span class="testigrigi">-</span><span class="right"><%=CatArr(1,k)%></span><span class="right">


<%
Next
End If
End If
Next
Else
%>
<%=NoCategoria%>
</span> <%
End If
%>
</div></td>
</tr>
</table>