Änderungen Design

login/ForgotPW.aspx.vb

@@ -7,9 +7,6 @@ Imports System.Data
 
 Partial Class login_ForgotPW
     Inherits System.Web.UI.Page
-
-
-
     Protected Sub Page_Load(sender As Object, e As EventArgs)
         If txt_Username.Text = "" Then
             Try
@@ -18,7 +15,6 @@ Partial Class login_ForgotPW
                 MsgBox(ex.Message)
             End Try
         End If
-
     End Sub
     Protected Sub btn_Back_Click(sender As Object, e As EventArgs)
         Response.Redirect("login/login_FLEX.aspx")
@@ -165,17 +161,20 @@ Partial Class login_ForgotPW
 
             If MsgBox(Msg, Style, Title).Retry Then
                 genToken(username, password, email)
+                If SendEmail(username, password, email, token) = False Then
+                    MsgBox("Email konnte wegen eines internen Verschlüsselungsfehlers nicht gesendet werden.", vbOK + vbInformation + vbDefaultButton1, "TokengenerierungsFehler")
+                Else
+                    MsgBox("Email wurde erfolgreich gesendet." & vbCr & "Bitte Postfach überprüfen!", vbOK + vbInformation + vbDefaultButton1, "Tokengenerierungs erfolgreich!")
+                End If
             Else
-                MsgBox("Tokengenerierung nicht erfolgreich." & vbCrLf & "In 5 Sekunden nochmal versuchen!")
+                    MsgBox("Tokengenerierung nicht erfolgreich." & vbCrLf & "In 5 Sekunden nochmal versuchen!")
                 Dim jetzt As DateTime = DateTime.UtcNow
                 Dim wenn As DateTime = DateTime.UtcNow.AddMinutes(-3)
-                Token_tmr.Interval = 3000
-                Token_tmr.Enabled = True
+
 
                 If jetzt < DateTime.UtcNow.AddSeconds(-5) Then
                     Return "NotYet"
                 Else
-                    Token_tmr.Enabled = False
                     token = Convert.ToBase64String(time.Concat(Key).ToArray())
                     Return token
                 End If
@@ -189,8 +188,9 @@ Partial Class login_ForgotPW
         Dim data() As Byte = Convert.FromBase64String(tokenname)
         Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
         If wenn < DateTime.UtcNow.AddMinutes(-30) Then
-            Return False
+            tokenname = ""
             MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!")
+            Return False
         ElseIf tokenname = "NotYet" Then
             Return False
         Else