Ciao a tutti,
non so se devo postare qui, in Database o ASP.
Il fatto è questo,
io ho prelevato un menù MegaDropdown e vorrei farlo interfacciare con SQL, in modo che le voci del menù e sotto meù, con i relativi collegamenti, li prenda in automatico.
Sinceramente nn sono capace, ci ho provato ma senza riuscirci....
Io un menù generico che preleva le infomazioni dal DB già ce l'ho ed è questo:
graziecodice:<table width="150" cellspacing="0" cellpadding="3" bordercolordark="#E5E5E5" bordercolorlight="#000000" border="0" style="border-left: 0px dotted #C0C0C0; border-right: 1px dotted #C0C0C0; border-bottom: 1px dotted #C0C0C0; border-top-color:#C0C0C0; border-top-width:0px"> <tr> <td valign="top" bgcolor="<%=Tabella_Colore_Cella%>" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium"> <% Dim SQLCat, RSCat, Icat, QSSCategoria, SCatArr, CatArr, BoolCategorie, K SQLCat = " SELECT ID, SCategoria FROM SCategorie ORDER by Scategoria asc " Set RScat = Conn.Execute(SQLCat) If Not RSCat.EOF Then SCatArr = RScat.GetRows 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)%> <div align="left"> <table id="demo" class="ruler" cellpadding="5" style="border:1px solid #FFFFFF; " width="100%"> <tr> <td> <% sqlcont = " SELECT COUNT(*) AS TotaleRecord FROM Prodotti WHERE cancellato = false and sCategoria = "&sCatArr(0,ICat) Set rscont = Conn.Execute(sqlcont) Rectot = (rscont("TotaleRecord")) rscont.Close Set rscont= Nothing %><%if CStr(SCatArr(0,ICat)) = QSSCategoria then%> <%if QSCategoria <> "" then %> ■ <%=SCatArr(1,ICat)%> (<%Response.Write rectot%>) <%end if%> <%if QSCategoria = "" then %> ► <%=SCatArr(1,ICat)%> (<%Response.Write rectot%>) <%end if%> <%else%> ■ <%=SCatArr(1,ICat)%> (<%Response.Write rectot%>) <%end if%> </td> </tr> </table> <% If CStr(SCatArr(0,ICat)) = QSSCategoria Then If boolCategorie Then For K = 0 To UBound(CatArr,2) %> <% sqlcontsc = " SELECT COUNT(*) AS TotaleRecord FROM Prodotti WHERE cancellato = false and Categoria = "&CatArr(0,k) Set rscontsc= Conn.Execute(sqlcontsc) Rectotsc = (rscontsc("TotaleRecord")) rscontsc.Close Set rscontsc = Nothing %> <%if CStr(CatArr(0,k)) = QSCategoria then%> <%if SCategoria <> "" then%> ▪<%=CatArr(1,k)%> (<%Response.Write rectotsc%>) <%end if%> <%if SCategoria = "" then%> ►<%=CatArr(1,k)%>(<%Response.Write rectotsc%>) <%end if%> <% SQLCat = " SELECT * FROM S_Categorie WHERE Categoria = " & CatArr(0,k) Set RSCat = Conn.Execute(SQLCat) While Not RSCat.EOF %> <% sqlcontsc2 = " SELECT COUNT(*) AS TotaleRecord FROM Prodotti WHERE cancellato = false and S_Categoria = "&RSCat("ID") Set rscontsc2= Conn.Execute(sqlcontsc2) Rectotsc2 = (rscontsc2("TotaleRecord")) rscontsc2.Close Set rscontsc2 = Nothing %> <%if StrComp(SCategoria, RSCat("ID")) <> 0 then%> ▪"><%=RSCat("S_Categoria")%> (<%=Rectotsc2%>) <%end if%> <%if StrComp(SCategoria, RSCat("ID")) = 0 then%> ►<%=RSCat("S_Categoria")%> (<%=Rectotsc2%>) <%end if%> <% RSCat.MoveNext Wend RSCat.close %> <%else%> <%if SCategoria = "" then%> ▪<%=CatArr(1,k)%> (<%Response.Write rectotsc%>) <%end if%> <%if SCategoria <> "" then%> ▪<%=CatArr(1,k)%> (<%Response.Write rectotsc%>) <%end if%> <%end if%> <% Next End If End If Next Else %> <%=NoCategoria%> <% End If %> </td> </tr> </table>![]()

Rispondi quotando
