edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix email wird nicht erkannt forgotpw.aspx

Browse Source
This commit is contained in:
ja
2021-10-20 15:40:53 +02:00
parent c300dd1918
commit ec1cf07188
4 changed files with 56 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
login/ForgotPW.aspx.vb
View File

@@ -137,74 +137,38 @@ Partial Class ForgotPW
valid_getNumber_M_Input.Enabled = True
valreqtxtEmail_M.Validate()
If valreqtxtEmail_M.IsValid = True Then
Boolemail_mobile_notempty = True
Boolemail_desktop_notempty = False
If Boolemail_mobile_notempty = True Then
regexval_2_txt_Email_M.Validate()
Boolemail_mobile_regexdomain = True
Boolemail_desktop_regexdomain = False
If Boolemail_mobile_regexdomain = True Then
regexval_2_txt_Email_M.Validate()
If regexval_2_txt_Email_M.IsValid = True Then
Boolemail_mobile_regex = True
Boolemail_desktop_regex = False
If Boolemail_mobile_notempty = True AndAlso Boolemail_mobile_regexdomain = True AndAlso Boolemail_mobile_regex = True Then
email = txtEmail_M.Text
Else
regexval_txt_Email_M.IsValid = True
Boolemail_mobile_regex = True
Boolemail_desktop_regex = False
If Boolemail_mobile_regexdomain = True Then
email = txtEmail_M.Text
End If
End If
End If
ElseIf valreqtxtEmail_M.IsValid = False Then
Boolemail_mobile_regexdomain = False
valreqtxtEmail.ErrorMessage = "Annotation: The given Domain is not the company domain."
regexval_txt_Email.Validate()
Boolemail_mobile_regex = True
If Boolemail_mobile_regex = True AndAlso Boolemail_mobile_regexdomain = False Then
regexval_txt_Email_2.IsValid = True
email = txtEmail_M.Text
End If
regexval_txt_Email_M.Validate()
If regexval_txt_Email_M.IsValid = False Then
regexval_txt_Email_M.ErrorMessage = "Annotation: The Domain does not match."
regexval_txt_Email.Validate()
If regexval_2_txt_Email_M.IsValid = True Then
email = txtEmail_M.Text
End If
End If
End If
valreqtxtusername_M.Validate()
If valreqtxtusername_M.IsValid = True Then
Booluser_mobile_notempty = True
Booluser_desktop_notempty = False
check_UserName_regex_M.Validate()
If check_UserName_regex_M.IsValid = False Then
check_UserName_regex_M.ErrorMessage = "Annotation: The Username does not match the requirements."
Else
Booluser_desktop_regex = False
Booluser_mobile_regex = True
check_UserName_regex_M.Validate()
If check_UserName_regex_M.IsValid = True AndAlso Booluser_mobile_regex = True AndAlso Booluser_desktop_regex = False Then
username = txt_Username_M.Text
regexval_txt_Email.Validate()
If regexval_2_txt_Email_M.IsValid = True Then
email = txtEmail_M.Text
End If
End If
End If
CustomerID_M_required.Validate()
If CustomerID_M_required.IsValid = True Then
valid_getNumber_M_Input.Validate()
If valid_getNumber_M_Input.IsValid = True Then
customerID = txt_CustomerID.Text
If CustomerID_M_required.IsValid = True Then
valid_getNumber_M_Input.Validate()
If valid_getNumber_M_Input.IsValid = True Then
customerID = txt_CustomerID.Text
Else
valid_getNumber_M_Input.ForeColor = Drawing.Color.Red
valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not numeric or too long."
End If
Else
valid_getNumber_M_Input.ForeColor = Drawing.Color.Red
valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not numeric or too long."
valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not given."
End If
Else
valid_getNumber_M_Input.ForeColor = Drawing.Color.Red
valid_getNumber_M_Input.ErrorMessage = "Customer-ID is not given."
End If
Else
'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
lblMessage.ForeColor = Color.Red
'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
lblMessage.ForeColor = Color.Red
lblMessage.Text = "The form has not been filled completeley."
End If
@@ -234,8 +198,9 @@ Partial Class ForgotPW
username = dr("Username").ToString()
password = dr("Password").ToString()
email = dr("Email").ToString()
customerID = VERAG_PROG_ALLGEMEIN.cCryptography2.Encrypt(dr("KundenNr").ToString())
Try
customerID = dr("UserId").ToString()
Try
If txt_Username.Text = dr("Username").ToString() AndAlso String.IsNullOrEmpty(txt_Username_M.Text) = True And String.IsNullOrEmpty(customerID) = False Then
username = txt_Username.Text