Änderung deer Strings welche dynamisch erzuegt wurden auf allen Seiten

This commit is contained in:
ja
2021-11-24 15:39:16 +01:00
parent 53c7b5842a
commit 11ca404f9f
21 changed files with 189 additions and 195 deletions

View File

@@ -102,33 +102,33 @@
<%
For Each nav As cNavigation In navigation
%>
<li><a class="menu_01_link" href="<%Response.Write(navParent)%>?menuID=<%Response.Write(nav.id)%>&lan=<%Response.Write(laenderkuerzel) %>"><%= IIf(nav.bezeichnung <> "", nav.bezeichnung, "XXX") %></a>
<li><a class="menu_01_link" href="<%Response.Write(navParent)%>?menuID=<%Response.Write(nav.id)%>&lan=<%Response.Write(laenderkuerzel) %>"><%Response.Write(IIf(nav.bezeichnung <> "", nav.bezeichnung, "XXX")) %></a>
<% If nav.subnavigation.Count>0 then %>
<div class="menu_01">
<% If nav.slogan <> "" Then%>
<%Response.Write("<div class='menu_slogan'>" & nav.slogan & "</div>")%>
<% End If %>
<% If nav.menu_logo <> "" Then %>
<%="<div class='menu_logo'><img src='" & nav.menu_logo & "'/></div>"%>
<%Response.Write("<div class='menu_logo'><img src='" & nav.menu_logo & "'/></div>")%>
<% End If %>
<ul>
<%
For Each nav2 As cNavigation In nav.subnavigation%>
<li><a href="<%Response.Write(navParent)%>?menuID=<%= nav2.id%>&lan=<%= laenderkuerzel %>"><%= nav2.bezeichnung %></a>
<li><a href="<%Response.Write(navParent)%>?menuID=<%Response.Write(nav2.id)%>&lan=<%Response.Write(laenderkuerzel) %>"><%Response.Write(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
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
End If
%>
<td><a href="<%Response.Write(navParent)%>?menuID=<%= nav3.id%>&lan=<%= laenderkuerzel %>"><%= nav3.bezeichnung %></a></td>
<td><a href="<%Response.Write(navParent)%>?menuID=<%Response.Write(nav3.id)%>&lan=<%Response.Write(laenderkuerzel) %>"><%Response.Write(nav3.bezeichnung) %></a></td>
<% cells += 1
Next
End If%>