<head>
            <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
        <title>VERAG Spedition AG</title>
       
      <style>
           .dropbtn {
    background-color: #043381;   
    top: 5%;
    left: 95%;
    width: 100px;
    height: 40px;
    position: absolute;
    color: white;
    padding: 16px;
    font-size: 16px;
    border: none;
}

/* Dropdown Content (Hidden by Default) */
.dropdown-content {
    display: none;
    position: absolute;
    left: 95%;
    background-color: #fff;
    min-width: 160px;
    box-shadow: 0px 8px 16px 0px rgba(0,0,0,0.2);
    z-index: 1;
}

    /* Links inside the dropdown */
    .dropdown-content a {
        color: black;
        padding: 12px 16px;
        text-decoration: none;
        display: block;
    }

        /* Change color of dropdown links on hover */
        .dropdown-content a:hover {
            background-color: #043381;
            color: #fff;
        }

/* Show the dropdown menu on hover */
.dropdown:hover .dropdown-content {
    display: block;
}

/* Change the background color of the dropdown button when the dropdown content is shown */
.dropdown:hover .dropbtn {
    background-color: #043381;
}
       </style>
   
     <link rel="stylesheet" type="text/css" href="css/style.css"/>
     
    <script type="text/javascript" src="js/languageupdatescript.js"></script>

</head>   

<%
    Dim cnt1 As Integer = 1
    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 = "newpageJulius_Sidebar.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>
       
    
    <!--    <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

        %>   -->
     <!--     <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 Class="dropdown">
                        <button Class="dropbtn"> <img id="myImage" src="images/flags/flagge_A.gif" style="border:1px solid #000;width:30px;"/></button>
                        <div Class="dropdown-content">                -->
                           <!-- <a id="ButtonOesterreichLangPicker" class="btn btn-primary btn-sm" onclick="changeflag(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'")%> /> DE</a> -->
                        <!--    <a id="ButtonDeutschLangPicker" class="btn btn-primary btn-sm"  onclick="changeflag(D)" href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=de"><img src="<%= imgPath%>images/flags/flagge_DE_AT.gif" <% If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%>/>DE/AT</a>
                            <a id="ButtonEnglischLangPicker" class="btn btn-primary btn-sm" onclick="changeflag(GB)" 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'")%>/>EN</a>
                            <a id="ButtonSerbischLangPicker" class="btn btn-primary btn-sm" onclick="changeflag(BIH)" href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=SRB"><img src="<%= imgPath%>images/flags/flagge_BIH.gif" <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%> />BIH</a> 
                            <a id="ButtonSerbischZweiLangPicker" class="btn btn-primary btn-sm" onclick="changeflag(SM)" href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=SRB"><img src="<%= imgPath%>images/flags/flagge_SM.gif" <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%> />SRB</a> 
                            <a id="ButtonBulgariaLangPicker" class="btn btn-primary btn-sm" onclick="changeflag(BG)" href="<%= navParent%>?menuID=<%= curentMenuId %>&lan=BG"><img src="<%= imgPath%>images/flags/flagge_SM.gif" <% If laenderkuerzel = "bg" Then Response.Write("style='border:1px solid #000'")%>/>BG</a>
                            <a id="ButtonTürkeiLangPicker" class="btn btn-primary btn-sm"  onclick="changeflag(TR)" 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'")%>/>TR</a>
                       </div>
                 </div> -->

            </div>
        <div id="art-banner-pic" style="display:none"></div>
        <div id="main-menu"> 
           </ul>  

        </div>
     </div> 
    
