Änderungen Design

login/ChangePW.aspx.vb

@@ -90,20 +90,15 @@ Partial Class login_ChangePW
     Function getDateoftoken(tokenname As String) As Boolean
         Dim data() As Byte = Convert.FromBase64String(tokenname)
         Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
-        tmr_PWToken.Interval = 30000
-        tmr_PWToken.Enabled = True
 
         If wenn < DateTime.UtcNow.AddMinutes(-3) Then
             Return False
+            tokenname = ""
             MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!")
         Else
-            tmr_PWToken.Enabled = False
+
             Return True
         End If
     End Function
 
-
-    Protected Sub tmr_PWToken_Tick(sender As Object, e As EventArgs)
-        btn_submitpw.Enabled = False
-    End Sub
 End Class