Fixen des Ablaufs. Alle true false werte werden nun richtig gesetzt bzw genauer überprüft.

login/ForgotPW.aspx.vb

@@ -49,64 +49,47 @@ Partial Class ForgotPW
                 CustomerIDrequired.Enabled = True
                 valid_getNumberInput.Enabled = True
 
-
-                valreqtxtEmail.Validate()
-
-                If valreqtxtEmail.IsValid = True Then
-                    Boolemail_desktop_notempty = True
-                    Boolemail_mobile_notempty = False
-
-                    If Boolemail_desktop_notempty = True Then
-                        regexval_txt_Email.Validate()
-                        If regexval_txt_Email.IsValid = True Then
-                            Boolemail_desktop_regexdomain = True
-                            Boolemail_mobile_regexdomain = False
-                        End If
-                        regexval_txt_Email_2.Validate()
-                        If regexval_txt_Email_2.IsValid = True Then
-                            Boolemail_desktop_regex = True
-                            Boolemail_mobile_regex = False
-                        End If
-                        If Boolemail_desktop_notempty = True AndAlso Boolemail_desktop_regexdomain = True AndAlso Boolemail_desktop_regex = True Then
-                            email = txtEmail.Text
-                        Else
-                            regexval_txt_Email.IsValid = True
-                            Boolemail_desktop_regex = True
-                            Boolemail_mobile_regex = False
-                            If Boolemail_desktop_regexdomain = True Then
-                                email = txtEmail.Text
-                            End If
-                        End If
-                    ElseIf valreqtxtEmail.IsValid = False Then
-                        Boolemail_desktop_regexdomain = False
-                        valreqtxtEmail.ErrorMessage = "Annotation: The given Domain is not the company domain."
-                        regexval_txt_Email.Validate()
-                        Boolemail_desktop_regex = True
-                        If Boolemail_desktop_regex = True AndAlso Boolemail_desktop_regexdomain = False Then
-                            regexval_txt_Email_2.IsValid = True
-                            email = txtEmail.Text
-                        End If
-                    End If
-                End If
                 valreqtxtusername.Validate()
                 If valreqtxtusername.IsValid = True Then
-                    Booluser_desktop_notempty = True
-                    Booluser_mobile_notempty = False
                     check_UserName_regex.Validate()
                     If check_UserName_regex.IsValid = False Then
-                        check_UserName_regex.ErrorMessage = "Annotation: The Username does not match the requirements."
+                        check_UserName_regex.ForeColor = Drawing.Color.Red
+                        check_UserName_regex.ErrorMessage = "The Username is too long."
                     Else
-                        Booluser_desktop_regex = True
-                        Booluser_mobile_regex = False
-                        check_UserName_regex.Validate()
-                        If check_UserName_regex.IsValid = True AndAlso Boolemail_desktop_notempty = True AndAlso Booluser_desktop_regex = True And Booluser_desktop_notempty = True AndAlso Booluser_mobile_regex = False Then
                         username = txt_Username.Text
+                        check_UserName_regex.ForeColor = Drawing.Color.Lime
+                        check_UserName_regex.ErrorMessage = "Valid Username has been entered."
+                    End If
+                Else
+                    check_UserName_regex.ForeColor = Drawing.Color.Lime
+                    check_UserName_regex.ErrorMessage = "A too long Username has been entered."
+                End If
+
+                valreqtxtEmail.Validate()
+                    If valreqtxtEmail.IsValid = True Then
+                        regexval_txt_Email.Validate()
+                        If regexval_txt_Email.IsValid = False Then
+                            regexval_txt_Email.ForeColor = Drawing.Color.OrangeRed
+                            regexval_txt_Email.ErrorMessage = "Annotation: The Domain does not match."
+                            regexval_txt_Email_2.Validate()
+                            If regexval_txt_Email_2.IsValid = True Then
+                                email = txtEmail.Text
+                                regexval_txt_Email.ForeColor = Drawing.Color.Lime
+                                regexval_txt_Email.ErrorMessage = "E-mail Address valid."
+                            End If
+                        Else
+                            regexval_txt_Email.Validate()
+                            If valreqtxtEmail.IsValid = True Then
+                                valreqtxtEmail.ForeColor = Drawing.Color.Lime
+                                valreqtxtEmail.ErrorMessage = "E-mail Address valid."
+                                email = txtEmail.Text
                             End If
                         End If
                     End If
+
                 CustomerIDrequired.Validate()
                 If CustomerIDrequired.IsValid = True Then
-                    valid_getNumberInput.Validate()
+                    valid_getNumber_M_Input.Validate()
                     If valid_getNumberInput.IsValid = True Then
                         customerID = txt_CustomerID.Text
                     Else
@@ -138,16 +121,21 @@ Partial Class ForgotPW
 
                 valreqtxtEmail_M.Validate()
                 If valreqtxtEmail_M.IsValid = True Then
-                    regexval_txt_Email_M.Validate()
+                    regexval_txt_Email.Validate()
-                    If regexval_txt_Email_M.IsValid = False Then
+                    If regexval_txt_Email.IsValid = False Then
-                        regexval_txt_Email_M.ErrorMessage = "Annotation: The Domain does not match."
+                        regexval_txt_Email.ForeColor = Drawing.Color.OrangeRed
+                        regexval_txt_Email.ErrorMessage = "Annotation: The Domain does not match."
                         regexval_txt_Email.Validate()
                         If regexval_2_txt_Email_M.IsValid = True Then
                             email = txtEmail_M.Text
+                            regexval_txt_Email.ForeColor = Drawing.Color.Lime
+                            regexval_txt_Email.ErrorMessage = "E-mail Address valid."
                         End If
                     Else
                         regexval_txt_Email.Validate()
                         If regexval_2_txt_Email_M.IsValid = True Then
+                            regexval_txt_Email.ForeColor = Drawing.Color.Lime
+                            regexval_txt_Email.ErrorMessage = "E-mail Address valid."
                             email = txtEmail_M.Text
                         End If
                     End If
@@ -157,7 +145,7 @@ Partial Class ForgotPW
                 If CustomerID_M_required.IsValid = True Then
                     valid_getNumber_M_Input.Validate()
                     If valid_getNumber_M_Input.IsValid = True Then
-                            customerID = txt_CustomerID.Text
+                        customerID = txt_CustomerID_M.Text
                     Else
                         valid_getNumber_M_Input.ForeColor = Drawing.Color.Red
                         valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not numeric or too long."
@@ -166,10 +154,26 @@ Partial Class ForgotPW
                     valid_getNumber_M_Input.ForeColor = Drawing.Color.Red
                     valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not given."
                 End If
+
+                valreqtxtusername_M.Validate()
+                If valreqtxtusername_M.IsValid = True Then
+                    check_UserName_regex_M.Validate()
+                    If check_UserName_regex_M.IsValid = False Then
+                        check_UserName_regex_M.ForeColor = Drawing.Color.Red
+                        check_UserName_regex_M.ErrorMessage = "The Username is too long."
+                    Else
+                        username = txt_Username_M.Text
+                        check_UserName_regex_M.ForeColor = Drawing.Color.Lime
+                        check_UserName_regex_M.ErrorMessage = "Valid Username has been entered."
+                    End If
+                Else
+                    check_UserName_regex_M.ForeColor = Drawing.Color.Lime
+                    check_UserName_regex_M.ErrorMessage = "A too long Username has been entered."
+                End If
             Else
                     'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
                     lblMessage.ForeColor = Color.Red
-                lblMessage.Text = "The form has not been filled completeley."
+                lblMessage.Text = "Error 08. The form has not been filled completeley."
             End If
 
             'Erweiterte Degub Msg-Box
@@ -187,9 +191,11 @@ Partial Class ForgotPW
                 End If
                 Using con As New SqlConnection(ConnectionString)
                 ' Using cmd As New SqlCommand("Validate_User")
-                    Using cmd As New SqlCommand("SELECT Username,Password,Email,KundenNr FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Email=@Email")
+                Using cmd As New SqlCommand("SELECT Username,Password,Email,KundenNr FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Email=@Email AND KundenNr=@CUSTOMERId")
                     ' cmd.CommandType = CommandType.StoredProcedure
                     cmd.Parameters.AddWithValue("@Username", username)
+                    cmd.Parameters.AddWithValue("@Email", email)
+                    cmd.Parameters.AddWithValue("@CUSTOMERId", customerID)
                     cmd.Connection = con
                     con.Open()
                     'userId = Convert.ToInt32(cmd.ExecuteScalar())