Spezifizierte Error-Meldungen für das Debugging am Test-Server

This commit is contained in:
ja
2021-10-13 15:21:55 +02:00
parent 4d78590aaf
commit b216ccd2cc
2 changed files with 9 additions and 2 deletions

View File

@@ -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" %> <%@ Reference VirtualPath="~/login/ChangePW.aspx" %>
<!DOCTYPE html> <!DOCTYPE html>

View File

@@ -97,7 +97,14 @@ Partial Class login_ForgotPW
ElseIf SendEmail(username, password, email, tokenname) = False Then ElseIf SendEmail(username, password, email, tokenname) = False Then
'MsgBox("Mail would not be sent successfully!") 'MsgBox("Mail would not be sent successfully!")
lblMessage.ForeColor = Color.Red lblMessage.ForeColor = Color.Red
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." 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 End If
Else Else
'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08") 'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")