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

Codeänderung

Browse Source
This commit is contained in:
ja
2021-10-11 16:39:45 +02:00
parent 6d81aa22a3
commit a6ee29e511
1 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
login/ForgotPW.aspx.vb
View File

@@ -21,11 +21,8 @@ Partial Class login_ForgotPW
End Sub End Sub
Protected Sub SendEmail(sender As Object, e As EventArgs) Protected Sub SendEmail(sender As Object, e As EventArgs)
Dim username As String = txt_Username.Text
If Not txt_Username.Text = "" AndAlso Not txtEmail.Text = "" Then Dim password As String = String.Empty
Dim username As String = txt_Username.Text
Dim password As String = String.Empty
Dim email As String = txtEmail.Text Dim email As String = txtEmail.Text
Dim tokenname As String = "" Dim tokenname As String = ""
' cDBFunctions.GetNewOpenConnection() ' cDBFunctions.GetNewOpenConnection()
@@ -93,9 +90,6 @@ Partial Class login_ForgotPW
lblMessage.ForeColor = Color.Red lblMessage.ForeColor = Color.Red
lblMessage.Text = "Diese E-Mail ist nicht in unserer Datenbank vorhanden." lblMessage.Text = "Diese E-Mail ist nicht in unserer Datenbank vorhanden."
End If End If
Else
MsgBox("Bitte alle Felder ausfüllen!")
End If
End Sub End Sub
Function RandomString(r As Random, max As Integer) As String Function RandomString(r As Random, max As Integer) As String