<% 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" Select Case laenderkuerzel Case "DE" : flagpath = "images/flags/flagge_DE_AT.gif" Case "EN" : flagpath = "images/flags/flagge_GB.gif" Case "SRB" : flagpath = "images/flags/flagge_BIH.gif" Case "SM" : flagpath = "images/flags/flagge_SM.gif" Case "BG" : flagpath = "images/flags/flagge_BG.gif" Case "TR" : flagpath = "images/flags/flagge_TR.gif" End Select%> <% 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: