<% Dim cnt1 As Integer = 0 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 = "index_TEST.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) %>