Ho fatto qualcosa.............ma mi manca ancora una funzione.....e naturalmente un occhio da voi se il tutto potrebbe funzionare.
master page
PrivateFunction RicMenu(ByVal RiferimentoPagina AsString, ByVal RiferimentoLingua AsString) As DataTableCollectionDim da AsNew OleDbDataAdapterDim ds AsNew DataSetTryDim strsql AsString = "SELECT Collegamento, Titolo,css FROM MENU1 Where codicevisualizzazione=1 ORDER BY Codice"da = New OleDbDataAdapter(strsql, objdb2)da.Fill(ds, "menu1")Catch ex As ExceptionEndTryReturn ds.TablesEndFunction PrivateSub Bind(ByVal dtmenu1 As DataTable)ForEach row As DataRow In dtmenu1.RowsDim lt As Literal = CType(Panel1.FindControl(Trim(row("Collegamento").ToString())), HtmlWindow.Url)IfNot (lt IsNothing) Thenrow("collegamento") = String.Format(" <li class=""part""><a href=""{0}"">{2}</a></li>", row("Collegamento").ToString().Trim(), row("Titolo").ToString().Trim()) Elserow("collegamento") = String.Format("<li class=""attivo""><a href=""{0}"">{2}</a></li>", row("Collegamento").ToString().Trim(), row("Titolo").ToString().Trim())EndIfNextEndSub
Dim lt As Literal = CType(Panel1.FindControl(Trim(row("Collegamento").ToString())), HtmlWindow.Url)
Non funziona perchè non è la funzione corretta......
dovrei dirgli che vada a controllare il nome della pagina che se uguale al nome del colegamento stampi una classe altrimenti un'altra...
Poi nella pagina devo inserire un controllo che riporti alla Master Page il mone della pagina......
Dim ctr As Control = Master.FindControl("btnHome") If Not ctr Is Nothing Then End If
come faccio ?????? Quella qui sopra non funziona è sicuramente sbagliata !!!!
