Tokenbenachrichtigungen und -generierungsfunktion.

login/ForgotPW.aspx.vb

@@ -133,6 +133,7 @@ Partial Class login_ForgotPW
                 MsgBox("SENT")
             Else
                 Return False
+                tokennametemp = ""
             End If
             Return True
         Catch ex As Exception
@@ -170,7 +171,7 @@ Partial Class login_ForgotPW
         Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
         If wenn < DateTime.UtcNow.AddMinutes(-30) Then
             Return False
-            MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!")
+            MsgBox("Token nicht gefunden oder er ist abgelaufen!" + Environment.NewLine + "Bitte eine neue E-Mail senden!")
             tokenname = ""
         Else
             Return True