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

Update Token generation

Browse Source
This commit is contained in:
ja
2021-10-14 08:56:30 +02:00
parent 00af3da5c7
commit cdd8364d26
1 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
login/ForgotPW.aspx.vb
View File

@@ -39,7 +39,7 @@ Partial Class login_ForgotPW
Using con As New SqlConnection(ConnectionString)
' Using cmd As New SqlCommand("Validate_User")
Using cmd As New SqlCommand("SELECT Username,Password FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username")
Using cmd As New SqlCommand("SELECT Username,Password,Email FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username")
' cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Username", username)
cmd.Connection = con
@@ -55,9 +55,20 @@ Partial Class login_ForgotPW
check_UserName_regex.IsValid = True
Else
check_UserName_regex.MatchTimeout = 3000
check_UserName_regex.ErrorMessage = "No valid Username found!"
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
regexval_txt_Email.IsValid = True
regexval_txt_Email_2.IsValid = True
lblMessage.ForeColor = Color.Green
lblMessage.Text = "The given e-mail exists in our database."
Else
regexval_txt_Email.IsValid = False
regexval_txt_Email_2.IsValid = False
lblMessage.ForeColor = Color.Red
lblMessage.Text = "The given e-mail does not exist in our database."
End If
regexval_txt_Email.Validate()
Catch ex As Exception
Dim Msg, Style, Title As String
@@ -101,11 +112,11 @@ Partial Class login_ForgotPW
'MsgBox("Mail would not be sent successfully!")
lblMessage.ForeColor = Color.Red
If String.IsNullOrWhiteSpace(username) = True Then
lblMessage.Text = "The Username was not found in our database."
lblMessage.Text = "Error10: Username not recognized Error!"
ElseIf String.IsNullOrWhiteSpace(email) = True Then
lblMessage.Text = "The given e-mail does not exist in our database."
lblMessage.Text = "Error11: Email not recognized Error!"
ElseIf String.IsNullOrWhiteSpace(password) = True Then
lblMessage.Text = "The searched password was not found in our database."
lblMessage.Text = "An internal password searching error occured in our systems ."
End If
End If