salve a tutti
ho un problema con due elenchi concatenati.
praticamente con questo scritp (lo poso alla fine) ...prelevo il mio menù con i relativi sottomenù dal DB , e fino a qui tutto ok. Ora però volevo trasformare questo "menu" , in caselle di riepilogo concatenate...ho fatto varie prove ma senza ottenere risultati...qualche anima pia che sà aiutarmi?...graciess....
Dim SQLCat, RSCat, Icat, QSSCategoria, SCatArr, CatArr, BoolCategorie, K
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)
%>
[img]<%=Path_Img%>catalogo_frecciadx.gif[/img]<span class="Stile3"><%=SCatArr(1,ICat)%></span>
<%
If CStr(SCatArr(0,ICat)) = QSSCategoria Then
If boolCategorie Then
For K = 0 To UBound(CatArr,2)
%>
[img]<%=Path_Img%>catalogo_frecciadx1.gif[/img]<%=CatArr(1,k)%>
<%
Next
End If
End If
Next
Else
%>
<%=NoCategoria%>
<%
End If
%>
Rispondi quotando
