Codeänderung

login/ForgotPW.aspx.vb

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