Ciao
stò cercando di creare in menù dinamico con asp.net.
Ho creato dui stili css:
#navlist ul {
margin-left: 0;
padding-left: 0;
white-space: nowrap;
font-weight: bold;
}
#navlist li.attivo {
display:inline;
list-style-type:none;
}
#navlist li.attivo a { padding: 3px 10px; }
#navlist li.attivo a:link, #navlist li.attivo a:visited {
color:#730400;
background-color:#E7C35A;
text-decoration:none;
}
#navlist li.attivo a:hover {
color:#E7C35A;
background-color:#FF0000;
text-decoration:none;
}
#navlist li.part {
display:inline;
list-style-type:none;
}
#navlist li.part a{ padding: 3px 10px; }
#navlist li.part a:link, #navlist li.part a:visited {
color:#730400;
background-color:#FF0000;
text-decoration:none;
}
#navlist li.part a:hover {
color:#730400;
background-color:#FF0000;
text-decoration:none;
}
a video questo è il codice che viene stampato adesso:
<ul id="navlist">
<li class="part">
<a href="chi-siamo.php">CHI SIAMO</a>
</li>
<li class="attivo">
<a href="galleria.php">GALLERIA</a>
</li>
<li class="attivo">
<a href="ultime-novita.php">NOVITA'</a>
</li>
<li class="attivo">
<a href="new-antiques.php">TRENDY</a>
</li>
<li class="attivo">
<a href="ordina.php">ORDINA</a>
</li>
<li class="attivo">
<a href="contatti.php">CONTATTI</a>
</li>
<li class="attivo">
<a href="blog.php">BLOG</a>
</li>
<li class="attivo">
<a href="faq.php">F.A.Q.</a>
</li>
<li class="attivo">
<a href="<a target="_blank" href="http://stores.ebay.it/xxxxxxx-antiques-art-collectibles" rel="nofollow">SU">xxxxxxxxxxxx">SU EBAY</a>
</li>
</ul></div>
Come vedete viene stampato un nome diverso a seconda della pagina in cui mi trovo.....
Dovrei fare lo stesso con asp.net e Vb.
Ho scritto questo codice ma mi manca la parte dove inserisco che se il nome della pagina è uguale alla pagina in cui mi trovo stampa a video lo stile css=attivo
altrimenti stampa lo stile css=part
codice:
Private Function RicMenu(ByVal RiferimentoPagina As String, ByVal RiferimentoLingua As String) As DataTableCollection
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Try
Dim strsql As String = "SELECT Collegamento, Titolo, css FROM MENU1 Where codicevisualizzazione=1 ORDER BY Codice"
da = New OleDbDataAdapter(strsql, objdb2)
da.Fill(ds, "menu1")
Catch ex As Exception
End Try
Return ds.Tables
End Function
e qui mi sono bloccata!!!!!!!! Sono sicura che questa parte non è giusta
Private Sub Bind(ByVal dtMenu1 As DataTable)
For Each row As DataRow In dtMenu1.Rows
Dim lt As Literal = CType(Panel1.FindControl(Trim(row("CodiceCampo").ToString())), Literal)
Dim LinkNavigateUrl As HyperLink = New HyperLink()
If Not (lt Is Nothing) Then
LinkNavigateUrl = HyperLink.Equals()
End If
Next
End Sub Qualcuno mi può aiutare non sono molto brava con Vb e asp.net, ho iniziato da poco
