Responsive Julius Version1

admin/admin.aspx.vb

@@ -27,21 +27,17 @@ Partial Class admin_admin
 
         If Not Request.IsSecureConnection Then
             '  Response.Redirect(Request.Url.AbsoluteUri.Replace("http://", "https://").Replace("56551", "44300"))
-
         End If
 
-
-
         If Not IsPostBack Then 'ERSTES MAL
             Page.Session("navParent") = "admin"
-
+            ' MsgBox(laenderkuerzel)
             If Not Request.QueryString("lan") Is Nothing AndAlso Request.QueryString("lan").ToString <> "" Then
                 laenderkuerzel = Request.QueryString("lan")
             Else
-                If laenderkuerzel = "" Then laenderkuerzel = "de"
+                If laenderkuerzel Is Nothing Then laenderkuerzel = "de"
             End If
 
-
             If Not Request.QueryString("menuID") Is Nothing AndAlso Request.QueryString("menuID").ToString <> "" Then
                 menueId = Request.QueryString("menuID")
             Else
@@ -49,13 +45,13 @@ Partial Class admin_admin
             End If
 
             initHomepage()
+            '  MsgBox(laenderkuerzel)
             Page.Session("hp_content") = hp_content
             Try
                 Me.Sprache.SelectedValue = laenderkuerzel.ToUpper
             Catch ex As Exception
-
+                MsgBox(ex.Message)
             End Try
-
         End If
 
 
@@ -98,8 +94,9 @@ Partial Class admin_admin
 
     Sub initHomepage()
         Try
+            If Request.QueryString("lan") IsNot Nothing Then laenderkuerzel = Request.QueryString("lan")
+
 
-            laenderkuerzel = Request.QueryString("lan")
             hp_content = DB.qry_contentNew(menueId, laenderkuerzel)
             If hp_content Is Nothing Then
                 hp_content = New hp_content