<% 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 = " Bosnien und Herzegowina" Dim strSRBlang = " Serbien" Dim strBGlang = " Bulgarien" Dim strTRlang = " Türkei"%>

<% 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)) %>

Sprachauswahl: