Änderung dass es etwas anzeigt fix des vorherigen commit bugs

login/login_FLEX.aspx.vb

@@ -3,6 +3,12 @@ Imports System.Data
 
 Partial Class login_FLEX
     Inherits System.Web.UI.Page
+
+    Dim Customer_ID As String = String.Empty
+    Dim UserNaMe As String = String.Empty
+    Dim passw As String = String.Empty
+
+
     Protected Sub Page_Load(sender As Object, e As EventArgs)
         If Me.Page.User.Identity.IsAuthenticated Then
             Response.Redirect("../Customers/Welcome.aspx", False)
@@ -47,9 +53,7 @@ Partial Class login_FLEX
         Dim cb As CheckBox = Login1.FindControl("RememberMe")
         Dim cb_M As CheckBox = Login2.FindControl("RememberMe_M")
 
-        Dim Customer_ID As String = String.Empty
-        Dim UserNaMe As String = String.Empty
-        Dim passw As String = String.Empty
+
 
         If String.IsNullOrEmpty(tb.Text) = False AndAlso String.IsNullOrEmpty(tb_M.Text) = True Then
             reqfieldvaluserID.Enabled = True
@@ -174,7 +178,7 @@ Partial Class login_FLEX
 
                             MsgBox("Erfolgreich validiert.")
                             Session.Add("test", UserNaMe)
-                            Session.Add("UserID", Customer_ID)
+                            Session.Add("CustomerID", Customer_ID)
                             Session.Add("PW", passw)
 
                             'FormsAuthentication.SetAuthCookie(Login1.UserName, True)
@@ -196,8 +200,16 @@ Partial Class login_FLEX
 
     Protected Sub LoginButton_Click(sender As Object, e As EventArgs)
         Validate("Login")
+        Session.Add("test", UserNaMe)
+        Session.Add("CustomerID", Customer_ID)
+        Session.Add("PW", passw)
+
     End Sub
     Protected Sub LoginButton_M_Click(sender As Object, e As EventArgs)
         Validate("Login_M")
+        Session.Add("test", UserNaMe)
+        Session.Add("CustomerID", Customer_ID)
+        Session.Add("PW", passw)
+
     End Sub
 End Class