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

corrected logic in abfrage und pw change sowie abfrage

Browse Source
This commit is contained in:
ja
2021-10-14 16:40:39 +02:00
parent 54cf8ad651
commit 4ecb221600
5 changed files with 299 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
login/ForgotPW.aspx.vb
View File

@@ -17,17 +17,21 @@ Partial Class login_ForgotPW
Dim password As String = String.Empty
Dim email As String = String.Empty
Dim tokenname As String = String.Empty
If txtEmail_M.Text = String.Empty And txt_Username_M.Text = String.Empty Then
If txtEmail.Text = String.Empty And txt_Username_M.Text = String.Empty Then
valreqtxtEmail_M.Enabled = False
valreqtxtEmail.Enabled = True
regexval_txt_Email_2.Enabled = True
regexval_txt_Email.Enabled = True
regexval_2_txt_Email_M.Enabled = False
valreqtxtEmail.Validate()
check_UserName_regex.Validate()
If valreqtxtEmail.IsValid = True AndAlso check_UserName_regex.IsValid = True Then
email = txtEmail.Text
username = txt_Username.Text
username = txt_Username_M.Text
ElseIf valreqtxtEmail.IsValid = False Then
valreqtxtEmail.ErrorMessage = "Annotation: The given Domain is not the company domain."
regexval_txt_Email.Validate()
valreqtxtEmail.IsValid = True
regexval_txt_Email_2.IsValid = True
If check_UserName_regex.IsValid = False Then
check_UserName_regex.ErrorMessage = "Annotation: The Username does not match the requirements."
Else
@@ -36,7 +40,9 @@ Partial Class login_ForgotPW
End If
Else
valreqtxtEmail_M.Enabled = True
valreqtxtEmail.Enabled = False
regexval_txt_Email.Enabled = False
regexval_txt_Email_2.Enabled = False
regexval_2_txt_Email_M.Enabled = True
valreqtxtEmail_M.Validate()
check_UserName_regex_M.Validate()
If valreqtxtEmail_M.IsValid = True AndAlso check_UserName_regex_M.IsValid = True Then
@@ -44,7 +50,7 @@ Partial Class login_ForgotPW
username = txt_Username_M.Text
ElseIf valreqtxtEmail_M.IsValid = False Then
valreqtxtEmail_M.ErrorMessage = "Annotation: The given Domain is not the company domain."
regexval_txt_Email_M.Validate()
regexval_2_txt_Email_M.Validate()
valreqtxtEmail_M.IsValid = True
If check_UserName_regex_M.IsValid = False Then
check_UserName_regex_M.ErrorMessage = "Annotation: The Username does not match the requirements."
@@ -77,24 +83,40 @@ Partial Class login_ForgotPW
password = dr("Password").ToString()
email = dr("Email").ToString()
Try
If txt_Username.Text = dr("Username").ToString() Then
If txt_Username.Text = dr("Username").ToString() And String.IsNullOrEmpty(txt_Username_M.Text) = True Then
check_UserName_regex_M.Enabled = False
check_UserName_regex.Enabled = True
check_UserName_regex.IsValid = True
username = txt_Username.Text
Else
ElseIf txt_Username_M.Text = dr("Username").ToString() And String.IsNullOrEmpty(txt_Username.Text) = True Then
check_UserName_regex.Enabled = False
check_UserName_regex_M.Enabled = True
check_UserName_regex_M.IsValid = True
username = txt_Username_M.Text
ElseIf String.IsNullOrEmpty(txt_Username_M.Text) = True AndAlso String.IsNullOrEmpty(txtEmail_M.Text) = True Then
check_UserName_regex_M.MatchTimeout = 3000
check_UserName_regex_M.ErrorMessage = "No valid Username found in out database!"
check_UserName_regex_M.IsValid = False
ElseIf String.IsNullOrEmpty(txt_Username.Text) = False Then
check_UserName_regex.MatchTimeout = 3000
check_UserName_regex.ErrorMessage = "No valid Username found in out database!"
check_UserName_regex.IsValid = False
End If
If txtEmail.Text = dr("Email").ToString() Then
If (txtEmail.Text = dr("Email").ToString() And txtEmail_M.Text = String.Empty) Then
regexval_txt_Email_M.Enabled = False
regexval_txt_Email.Enabled = True
regexval_txt_Email.Validate()
email = txtEmail.Text
lblMessage.ForeColor = Color.Green
lblMessage.Text = "The given e-mail exists in our database."
ElseIf (txtEmail_M.Text = dr("Email").ToString() And txtEmail.Text = String.Empty) Then
regexval_txt_Email_M.Validate()
email = txtEmail_M.Text
lblMessage_M.ForeColor = Color.Green
lblMessage_M.Text = "The given e-mail exists in our database."
Else
lblMessage.ForeColor = Color.Red
lblMessage.Text = "The given e-mail does not exist in our database."
lblMessage_M.ForeColor = Color.Red
lblMessage_M.Text = "The given e-mail does not exist in our database."
End If
Catch ex As Exception