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
%>