VERAG Spedition AG

<% Dim lan As String = Request.QueryString("lan") If lan = "" Then lan = "de" Dim menuID As String = Request.QueryString("menuID") If menuID = "" Then menuID = "1" Dim DB2 As New cDBFunctions %> <% Response.Write(DB2.qry_contentNew(menuID, lan)) %>

<% %> <% Dim navigation_footer As List(Of cNavigation) = DB.qry_menu_tags(laenderkuerzel) If Not navigation_footer Is Nothing Then For Each nav As cNavigation In navigation_footer %> <% Next End If%> <%=DB.errorAusg %>

<%= nav.bezeichnung %>
<% If nav.subnavigation.Count>0 then %> <%For Each nav2 as cNavigation In nav.subnavigation%> <%= nav2.bezeichnung %>
<% Dim cells = 0 If nav2.subnavigation.Count>0 then For Each nav3 As cNavigation In nav2.subnavigation If cells >= 3 Then %> <% cells = 0 End If %> <% cells += 1 Next End If%> <% Next%> <% End If %>