Änderungen

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