Gabriele Orlini
a- a+

Integrazione menù di FireWorks con DataBase (Parte VI)

Pagina 6 di 8 

Portiamoci quindi all'interno della funzionefwLoadMenus() e subito dopo il primo if ( if(window.fw_menu_0) return; ) inseriamo il seguente codice:

// iniziamo un ciclo per ogni elemento del menù<%do while not rsa.EOF%>// eseguiamo le istruzioni solo per quelle voci che hanno un sottomenù quindi ContaB maggiore di 0<% If rsa.Fields.Item("ContaB").Value > 0 then %>

Creiamo tanti elementi fw_menu_0_n quanti sono i record diLivelloA con la sua descrizione sostituendo dinamicamente ivalori con il contenuto dei campi IDLivelloA eDescLivelloA

// creo un elemento e lo definisco a sua volta come un contenitore per un sottomenùwindow.fw_menu_0_ <%= rsa.Fields.Item("IDLivelloA").Value %> = new Menu(" <%=(rsa.Fields.Item("DescLivelloA").Value)%> " ,68,17,"Verdana, Arial, Helvetica, sans-serif" ,10,"#000033" ,"#000000" ,"#ffffff" ,"#ddffff");

Inseriamo i dati del sottomenù creando un nuovorecordset filtrato sul valore del campo IDLivelloA delprimo

<%' apro un recordset filtrato sul campo chiave del rs di livello superiorersb__MMColParam = rsa.Fields.Item("IDLivelloA").Valueset rsb = Server.CreateObject("ADODB.Recordset")rsb.ActiveConnection = MM_FW_MENU_STRINGrsb.Source = "SELECT * FROM LivelloB WHERE IDLivelloA = " + Replace(rsb__MMColParam, "'" , "''") + ""rsb.CursorType = 0rsb.CursorLocation = 2rsb.LockType = 3rsb.Open()rsb_numRows = 0%>

Continua>>>