From b216ccd2cc23dc3d023c18b7980beec197399dea Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 13 Oct 2021 15:21:55 +0200 Subject: [PATCH] =?UTF-8?q?Spezifizierte=20Error-Meldungen=20f=C3=BCr=20da?= =?UTF-8?q?s=20Debugging=20am=20Test-Server?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- login/ForgotPW.aspx | 2 +- login/ForgotPW.aspx.vb | 9 ++++++++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/login/ForgotPW.aspx b/login/ForgotPW.aspx index dea1712..1d70cdc 100644 --- a/login/ForgotPW.aspx +++ b/login/ForgotPW.aspx @@ -1,4 +1,4 @@ -<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ForgotPW.aspx.vb" Inherits="login_ForgotPW" %> +<%@ Page Language="VB" AutoEventWireup="false" Debug="True" CodeFile="ForgotPW.aspx.vb" Inherits="login_ForgotPW" %> <%@ Reference VirtualPath="~/login/ChangePW.aspx" %> diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb index 8a1431d..cdf3f74 100644 --- a/login/ForgotPW.aspx.vb +++ b/login/ForgotPW.aspx.vb @@ -97,7 +97,14 @@ Partial Class login_ForgotPW ElseIf SendEmail(username, password, email, tokenname) = False Then 'MsgBox("Mail would not be sent successfully!") lblMessage.ForeColor = Color.Red - lblMessage.Text = "The given e-mail does not exist in our database." + If String.IsNullOrWhiteSpace(username) = True Then + lblMessage.Text = "The Username was not found in our database." + ElseIf String.IsNullOrWhiteSpace(email) = True Then + lblMessage.Text = "The given e-mail does not exist in our database." + ElseIf String.IsNullOrWhiteSpace(password) = True Then + lblMessage.Text = "The searched password was not found in our database." + End If + End If Else 'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")