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

Änderung der Webconfig

Browse Source
This commit is contained in:
ja
2021-10-21 16:22:45 +02:00
parent d336d2d3c6
commit 51a84e3b33
5 changed files with 33 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
login/ForgotPW.aspx.vb
View File

@@ -13,6 +13,7 @@ Partial Class ForgotPW
Response.Redirect("login/login_FLEX.aspx")
End Sub
Protected Sub btn_Send_Click(sender As Object, e As EventArgs)
Try
Dim username As String = String.Empty
@@ -42,20 +43,20 @@ Partial Class ForgotPW
If valreqtxtEmail.IsValid = True Then
regexval_txt_Email.Validate()
If regexval_txt_Email.IsValid = True Then
valreqtxtEmail.ForeColor = Drawing.Color.OrangeRed
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_2.ForeColor = Drawing.Color.Lime
regexval_txt_Email_2.ErrorMessage = "E-mail Address valid."
email = txtEmail_M.Text
lblMessage.ForeColor = Drawing.Color.Lime
lblMessage.Text = "E-mail Address valid."
End If
Else
regexval_txt_Email.Validate()
If regexval_txt_Email_2.IsValid = True Then
regexval_txt_Email.ForeColor = Drawing.Color.Lime
regexval_txt_Email.ErrorMessage = "E-mail Address valid."
email = txtEmail.Text
If regexval_txt_Email.IsValid = True Then
lblMessage.ForeColor = Drawing.Color.Lime
lblMessage.Text = "E-mail Address valid."
email = txtEmail_M.Text
End If
End If
End If
@@ -657,4 +658,5 @@ Partial Class ForgotPW
'Next
'Return sb.ToString()
'End Function
End Class