From 9045f7910042cfe01d6519c3af578d65f07aa930 Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 19 Oct 2021 13:29:16 +0200 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- login/ChangePW.aspx.vb | 18 +++++++++++------- login/ForgotPW.aspx | 4 ++-- login/ForgotPW.aspx.vb | 8 +++++--- 3 files changed, 18 insertions(+), 12 deletions(-) diff --git a/login/ChangePW.aspx.vb b/login/ChangePW.aspx.vb index 6c37a13..2e7a672 100644 --- a/login/ChangePW.aspx.vb +++ b/login/ChangePW.aspx.vb @@ -9,13 +9,17 @@ Partial Class ChangePW Session.Add("urltochangepw", url) If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("USerID").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2")) Then If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then - txt_Pw_WH.Enabled = True - txt_Pw.Enabled = True - regexval_txt_Pw_WH.Enabled = True - If IsPostBack Then - reqPasswtxt.Validate() - reqPassw1txt.Validate() - End If + Try + txt_Pw_WH.Enabled = True + txt_Pw.Enabled = True + regexval_txt_Pw_WH.Enabled = True + If IsPostBack Then + reqPasswtxt.Validate() + reqPassw1txt.Validate() + End If + Catch exc As Exception + MsgBox(exc) + End Try Else btn_submitpw.Enabled = False txt_Pw.BackColor = Drawing.Color.Gray diff --git a/login/ForgotPW.aspx b/login/ForgotPW.aspx index 4cd42b1..8b98a61 100644 --- a/login/ForgotPW.aspx +++ b/login/ForgotPW.aspx @@ -281,8 +281,8 @@ - - + + diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb index 02d9875..ca7bbd8 100644 --- a/login/ForgotPW.aspx.vb +++ b/login/ForgotPW.aspx.vb @@ -49,15 +49,17 @@ Partial Class ForgotPW Boolemail_mobile_notempty = False If Boolemail_desktop_notempty = True Then - regexval_txt_Email_2.Validate() - If regexval_txt_Email_2.IsValid = True Then + regexval_txt_Email.Validate() + If regexval_txt_Email.IsValid = True Then Boolemail_desktop_regex = True + Boolemail_desktop_regexdomain = True Boolemail_mobile_regex = False + Boolemail_mobile_regexdomain = False End If If Boolemail_desktop_notempty = True AndAlso Boolemail_desktop_regexdomain = True AndAlso Boolemail_desktop_regex = True Then email = txtEmail.Text Else - regexval_txt_Email_2.IsValid = True + regexval_txt_Email.IsValid = True Boolemail_desktop_regex = True Boolemail_mobile_regex = False If Boolemail_desktop_regexdomain = True Then