<% Dim navParent As String = "newpageJulius_Sidebar.aspx" Dim navigation As List(Of cNavigation) = Nothing navigation = DB.qry_menu_tags(laenderkuerzel) Dim imgPath As String = "" If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then navParent = "admin.aspx" imgPath = "../" End If Dim curentMenuId As String = "1" If Not Request.QueryString("menuID") Is Nothing Then curentMenuId = Request.QueryString("menuID") End If Dim flagpath = "images/flags/flagge_DE_AT.gif" Dim lan3 As String = Request.QueryString("lan3") If laenderkuerzel = "DE" And lan3 = "0" Then flagpath = "images/flags/flagge_DE_AT.gif" ElseIf laenderKuerzel = "EN" And lan3 = "0" Then flagpath = "images/flags/flagge_GB.gif" ElseIf laenderKuerzel = "SRB" And lan3 = "0" Then flagpath = "images/flags/flagge_BIH.gif" ElseIf laenderKuerzel = "SRB" And lan3 = "1" Then flagpath = "images/flags/flagge_SM.gif" ElseIf laenderKuerzel = "BG" And lan3 = "0" Then flagpath = "images/flags/flagge_BG.gif" ElseIf laenderKuerzel = "TR" And lan3 = "0" Then flagpath = "images/flags/flagge_TR.gif" End If%> <% For Each nav As cNavigation In navigation %>

<% Dim strDElang = " Deutsch" Dim strENlang = " Englisch" Dim strBIHLang = " Bosnisch" Dim strSRBlang = " Serbisch" Dim strBGlang = " Bulgarisch" Dim strTRlang = " Türkisch"%>

Sprachauswahl: