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>
Rispondi quotando
