109 lines
5.9 KiB
Plaintext
109 lines
5.9 KiB
Plaintext
<%
|
|
Dim cnt1 As Integer = 0
|
|
Dim DB As New cDBFunctions
|
|
|
|
|
|
|
|
|
|
Dim curentMenuId As String = "1"
|
|
If Not Request.QueryString("menuID") Is Nothing Then
|
|
curentMenuId = Request.QueryString("menuID")
|
|
End If
|
|
|
|
Dim laenderkuerzel As String = "de"
|
|
If Not Request.QueryString("lan") Is Nothing Then
|
|
laenderkuerzel = Request.QueryString("lan")
|
|
End If
|
|
|
|
|
|
Dim navParent As String = "index_TEST.aspx"
|
|
Dim imgPath As String = ""
|
|
If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then
|
|
navParent = "admin.aspx"
|
|
imgPath= "../"
|
|
End If
|
|
|
|
'If Session("navParent") = "admin" Then
|
|
' If Request.QueryString("navParent") = "admin" Then
|
|
|
|
'Session("navParent") = Nothing
|
|
'End If
|
|
' End If
|
|
|
|
|
|
Dim navigation As List(Of cNavigation) = Nothing
|
|
navigation = DB.qry_menu_tags(laenderkuerzel)
|
|
|
|
%>
|
|
|
|
|
|
<div id="nav-main" >
|
|
<a href="<%= navParent%>?menuID=1">
|
|
<div id="art-logo"></div>
|
|
</a>
|
|
<div id="art-banner"></div>
|
|
<div id="art-banner_top"></div>
|
|
<div id="art-flags">
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=bg"><img src="<%= imgPath%>images/flags/flagge_BG.gif" <% If laenderkuerzel = "bg" Then Response.Write("style='border:1px solid #000'")%>><span></span></a>
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=yu"><img src="<%= imgPath%>images/flags/flagge_BIH.gif" <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>><span></span></a>
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=yu"><img src="<%= imgPath%>images/flags/flagge_SM.gif" <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%> ><span></span></a>
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=ro"><img src="<%= imgPath%>images/flags/flagge_RO.gif" <% If laenderkuerzel = "ro" Then Response.Write("style='border:1px solid #000'")%>><span></span></a>
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=tr"><img src="<%= imgPath%>images/flags/flagge_TR.gif" <% If laenderkuerzel = "tr" Then Response.Write("style='border:1px solid #000'")%>><span></span></a>
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=en"><img src="<%= imgPath%>images/flags/flagge_GB.gif" <% If laenderkuerzel = "en" Then Response.Write("style='border:1px solid #000'") %>><span></span></a>
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=de"><img src="<%= imgPath%>images/flags/flagge_D.gif" <% If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'") %>><span></span></a>
|
|
<a href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=de"><img src="<%= imgPath%>images/flags/flagge_A.gif" <% If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'") %>><span></span></a>
|
|
</div>
|
|
<div id="art-banner-pic" style="display:none"></div>
|
|
<div id="main-menu">
|
|
|
|
|
|
<ul><div id="art-banner2"></div>
|
|
<%
|
|
For Each nav as cNavigation In navigation
|
|
%>
|
|
<li><a class="menu_01_link" href="<%= navParent%>?menuID=<%= nav.id %>&lan=<%= laenderKuerzel %>"><%= IIf(nav.bezeichnung<>"",nav.bezeichnung,"XXX") %></a>
|
|
<% If nav.subnavigation.Count>0 then %>
|
|
<div class="menu_01">
|
|
<% If nav.slogan <> "" Then%>
|
|
<%="<div class='menu_slogan'>" & nav.slogan & "</div>"%>
|
|
<% End If %>
|
|
<% If nav.menu_logo <> "" Then %>
|
|
<%="<div class='menu_logo'><img src='" & nav.menu_logo & "'/></div>"%>
|
|
<% End If %>
|
|
<ul>
|
|
<%
|
|
For Each nav2 As cNavigation In nav.subnavigation%>
|
|
|
|
<li><a href="<%= navParent%>?menuID=<%= nav2.id%>&lan=<%= laenderKuerzel %>"><%= nav2.bezeichnung %></a>
|
|
<div class="menu_02">
|
|
<table>
|
|
<tr>
|
|
<%
|
|
Dim cells = 0
|
|
If nav2.subnavigation.Count>0 then
|
|
For Each nav3 as cNavigation In nav2.subnavigation
|
|
If cells >= 3 Then
|
|
%></tr><tr>
|
|
<% cells = 0
|
|
End If
|
|
%>
|
|
<td><a href="<%= navParent%>?menuID=<%= nav3.id%>&lan=<%= laenderKuerzel %>"><%= nav3.bezeichnung %></a></td>
|
|
<% cells += 1
|
|
Next
|
|
End If%>
|
|
</tr>
|
|
</table>
|
|
</div>
|
|
</li>
|
|
<%
|
|
Next
|
|
|
|
%>
|
|
</ul>
|
|
</div>
|
|
<% End If
|
|
Next
|
|
%>
|
|
</ul>
|
|
</div>
|
|
</div> |