edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

first git

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-07-06 10:03:36 +02:00
commit 7937ab972e
417 changed files with 18573 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
navigation.aspx Normal file
View File

@@ -0,0 +1,109 @@
 <%
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>