From d887c80f310201ca0a8978c8278435d5177e9836 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Thu, 7 Oct 2021 14:36:24 +0200
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 login/ForgotPW.aspx    |  2 +-
 login/ForgotPW.aspx.vb | 10 ++++++----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/login/ForgotPW.aspx b/login/ForgotPW.aspx
index ddd4277..4e45112 100644
--- a/login/ForgotPW.aspx
+++ b/login/ForgotPW.aspx
@@ -123,4 +123,4 @@
                             </div>
         </div>
 </body>
-</html>
+</html>
\ No newline at end of file
diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index 66ec069..ecae57b 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -62,9 +62,11 @@ Partial Class login_ForgotPW
                         Title = "Fehler bei E-mail Authentifizierung!"
                         MsgBox(Msg, Style, Title)
 
-                        If MsgBox(Msg, Style, Title).Retry Then
+                        If MsgBox(Msg, Style, Title).Yes Then
                             txtEmail.Text = ""
                             txtEmail.Focus()
+                        ElseIf MsgBox(Msg, Style, Title).No Then
+
                         End If
                     End Try
 
@@ -82,7 +84,7 @@ Partial Class login_ForgotPW
                 MsgBox(tokenname, MsgBoxStyle)
             Else
                 MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
-                'tokenname = genToken(username, password, email)
+                tokenname = genToken(username, password, email)
             End If
             'SendEmail(username, password, email)
             MsgBox("Mail would be sent successfully!")
@@ -109,6 +111,7 @@ Partial Class login_ForgotPW
     Function SendEmail(username As String, password As String, email As String) As Boolean
         Dim lkb As LinkButton = New LinkButton()
         lkb.PostBackUrl = "ChangePW.aspx"
+
         Dim Msg As New MailMessage
         Dim myCredentials As New System.Net.NetworkCredential
         myCredentials.UserName = "al@verag.ag"
@@ -135,7 +138,6 @@ Partial Class login_ForgotPW
             Else
                 Return False
             End If
-
         Catch ex As Exception
             MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
         End Try
@@ -180,4 +182,4 @@ Partial Class login_ForgotPW
     Protected Sub txtEmail_TextChanged(sender As Object, e As EventArgs)
         regexval_txt_Email.Validate()
     End Sub
-End Class
+End Class
\ No newline at end of file