Änderung Einführung Fehlernummern
This commit is contained in:
ja
@@ -280,7 +280,8 @@ Partial Class ForgotPW
|
||||
regexval_txt_Email_M.Validate()
|
||||
If regexval_txt_Email_M.IsValid = True Then
|
||||
regexval_txt_Email_M.ForeColor = Drawing.Color.OrangeRed
|
||||
regexval_txt_Email_M.ErrorMessage = "Annotation: The Domain does not match."
|
||||
VERAG_VARIABLES.seterrorcount(15)
|
||||
regexval_txt_Email_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "The Domain does not match."
|
||||
regexval_2_txt_Email_M.Validate()
|
||||
If regexval_2_txt_Email_M.IsValid = True Then
|
||||
email = txtEmail_M.Text
|
||||
@@ -304,7 +305,8 @@ Partial Class ForgotPW
|
||||
customerID = txt_CustomerID_M.Text
|
||||
Else
|
||||
lblMessage_M.ForeColor = Drawing.Color.Red
|
||||
lblMessage_M.Text = "Customer-ID is not numeric or too long."
|
||||
VERAG_VARIABLES.seterrorcount(16)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Customer-ID is not numeric or too long."
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -313,7 +315,8 @@ Partial Class ForgotPW
|
||||
check_UserName_regex_M.Validate()
|
||||
If check_UserName_regex_M.IsValid = False Then
|
||||
check_UserName_regex_M.ForeColor = Drawing.Color.Red
|
||||
check_UserName_regex_M.ErrorMessage = "The Username is too long."
|
||||
VERAG_VARIABLES.seterrorcount(17)
|
||||
check_UserName_regex_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "The Username is too long."
|
||||
Else
|
||||
username = txt_Username_M.Text
|
||||
lblMessage_M.ForeColor = Drawing.Color.Lime
|
||||
@@ -360,11 +363,13 @@ Partial Class ForgotPW
|
||||
customerID = txt_CustomerID_M.Text
|
||||
lblMessage_M.ForeColor = Color.Green
|
||||
isuserIDright = True
|
||||
lblMessage_M.Text = "The given Customer-ID exists in our database."
|
||||
VERAG_VARIABLES.seterrorcount(17)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "The given Customer-ID exists in our database."
|
||||
Else
|
||||
lblMessage_M.ForeColor = Color.Red
|
||||
isuserIDright = False
|
||||
lblMessage_M.Text = "The given Customer-ID does not exist in our database."
|
||||
VERAG_VARIABLES.seterrorcount(18)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "The given Customer-ID does not exist in our database."
|
||||
Return
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -382,7 +387,8 @@ Partial Class ForgotPW
|
||||
Else
|
||||
lblMessage_M.ForeColor = Color.Red
|
||||
isuserEmailright = False
|
||||
lblMessage_M.Text = "The given E-Mail does not exist in our database."
|
||||
VERAG_VARIABLES.seterrorcount(19)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "The given E-Mail does not exist in our database."
|
||||
Return
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -400,7 +406,8 @@ Partial Class ForgotPW
|
||||
Else
|
||||
lblMessage_M.ForeColor = Color.Red
|
||||
isusernameright = False
|
||||
lblMessage_M.Text = "The given Username does not exist in our database."
|
||||
VERAG_VARIABLES.seterrorcount(20)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "The given Username does not exist in our database."
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Dim Msg, Style, Title As String
|
||||
@@ -431,7 +438,8 @@ Partial Class ForgotPW
|
||||
'MsgBox("Token generated successfully.")
|
||||
Else
|
||||
lblMessage_M.ForeColor = Color.Red
|
||||
lblMessage_M.Text = "Token is not valid anymore. Please generate a new one by sending a new e-mail!"
|
||||
VERAG_VARIABLES.seterrorcount(100)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Token is not valid anymore. Please generate a new one by sending a new e-mail!"
|
||||
'MsgBox("Token is not valid anymore. Please generate a new one by sending a new e-mail!")
|
||||
|
||||
If Session.Item("TokenforEmail") = Nothing Then
|
||||
@@ -450,23 +458,28 @@ Partial Class ForgotPW
|
||||
lblMessage_M.ForeColor = Color.Red
|
||||
If String.IsNullOrWhiteSpace(username) = True Then
|
||||
lblMessage_M.ForeColor = Drawing.Color.Red
|
||||
lblMessage_M.Text = "Error10: Username not recognized Error!"
|
||||
VERAG_VARIABLES.seterrorcount(10)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Username not recognized Error!"
|
||||
ElseIf String.IsNullOrWhiteSpace(email) = True Then
|
||||
lblMessage_M.ForeColor = Drawing.Color.Red
|
||||
lblMessage_M.Text = "Error11: Email not recognized Error!"
|
||||
VERAG_VARIABLES.seterrorcount(11)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Email not recognized Error!"
|
||||
ElseIf String.IsNullOrWhiteSpace(password) = True Then
|
||||
lblMessage_M.ForeColor = Drawing.Color.Red
|
||||
lblMessage_M.Text = "An internal password searching error occured in our systems ."
|
||||
VERAG_VARIABLES.seterrorcount(12)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "An internal password searching error occured in our systems ."
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
lblMessage_M.ForeColor = Drawing.Color.Red
|
||||
lblMessage_M.Text = "ErrorCode10: Error with Database or the connection." + Environment.NewLine + "Please contact the admin."
|
||||
VERAG_VARIABLES.seterrorcount(15)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Error with Database or the connection." + Environment.NewLine + "Please contact the admin."
|
||||
End If
|
||||
Catch Exc As Exception
|
||||
lblMessage.ForeColor = Drawing.Color.Red
|
||||
lblMessage_M.ForeColor = Drawing.Color.Red
|
||||
lblMessage_M.Text = "Error08: No input found." + Environment.NewLine + Exc.Message
|
||||
VERAG_VARIABLES.seterrorcount(8)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Error08: No input found." + Environment.NewLine + Exc.Message
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
@@ -508,7 +521,8 @@ Partial Class ForgotPW
|
||||
ElseIf String.IsNullOrWhiteSpace(HttpContext.Current.Request.ServerVariables("SERVER_NAME")) = True Then
|
||||
'MsgBox("Error09:" + Environment.NewLine + "The Domain could not be vaildated. Check Link please or contact the Administrator of the program.")
|
||||
lblMessage_M.ForeColor = Color.OrangeRed
|
||||
lblMessage_M.Text = "Error09:" + Environment.NewLine + "The Domain could not be vaildated. Check the Link please or contact the Administrator of the program."
|
||||
VERAG_VARIABLES.seterrorcount(9)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb() + Environment.NewLine + "The Domain could not be vaildated. Check the Link please or contact the Administrator of the program."
|
||||
End If
|
||||
'Dim pg As String = Request.ServerVariables("URL")
|
||||
'MsgBox("/" + ServPort + Request.ServerVariables("URL"))
|
||||
@@ -529,7 +543,8 @@ Partial Class ForgotPW
|
||||
Else
|
||||
'MsgBox("Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen.", vbAbort, "Error07")
|
||||
lblMessage_M.ForeColor = Color.OrangeRed
|
||||
lblMessage_M.Text = "Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen!"
|
||||
VERAG_VARIABLES.seterrorcount(7)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen!"
|
||||
End If
|
||||
lblMessage_M.ForeColor = Color.Green
|
||||
lblMessage_M.Text = "Success" + Environment.NewLine + " Mail sent. Please check your inbox."
|
||||
@@ -537,7 +552,8 @@ Partial Class ForgotPW
|
||||
Return True
|
||||
Else
|
||||
lblMessage_M.ForeColor = Color.Red
|
||||
lblMessage_M.Text = "Error02: Mail not delivered!"
|
||||
VERAG_VARIABLES.seterrorcount(2)
|
||||
lblMessage_M.Text = VERAG_VARIABLES.geterrornumb + "Mail not delivered!"
|
||||
'MsgBox("Error02: Mail not delivered!" & vbCrLf & "New Token has been generated.")
|
||||
If Session.Item("TokenforEmail") = Nothing Then
|
||||
tokenname = genToken(username, password, email, userID, isusrnmright, iscstmIDright, isemailright, Session.IsNewSession)
|
||||
@@ -597,7 +613,8 @@ Partial Class ForgotPW
|
||||
ElseIf String.IsNullOrWhiteSpace(HttpContext.Current.Request.ServerVariables("SERVER_NAME")) = True Then
|
||||
'MsgBox("Error09:" + Environment.NewLine + "The Domain could not be vaildated. Check Link please or contact the Administrator of the program.")
|
||||
lblMessage.ForeColor = Color.OrangeRed
|
||||
lblMessage.Text = "Error09:" + Environment.NewLine + "The Domain could not be vaildated. Check the Link please or contact the Administrator of the program."
|
||||
VERAG_VARIABLES.seterrorcount(9)
|
||||
lblMessage.Text = VERAG_VARIABLES.geterrornumb + Environment.NewLine + "The Domain could not be vaildated. Check the Link please or contact the Administrator of the program."
|
||||
End If
|
||||
'Dim pg As String = Request.ServerVariables("URL")
|
||||
'MsgBox("/" + ServPort + Request.ServerVariables("URL"))
|
||||
@@ -618,7 +635,8 @@ Partial Class ForgotPW
|
||||
Else
|
||||
'MsgBox("Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen.", vbAbort, "Error07")
|
||||
lblMessage.ForeColor = Color.OrangeRed
|
||||
lblMessage.Text = "Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen!"
|
||||
VERAG_VARIABLES.seterrorcount(7)
|
||||
lblMessage.Text = VERAG_VARIABLES.geterrornumb + "Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen!"
|
||||
End If
|
||||
lblMessage.ForeColor = Color.Green
|
||||
lblMessage.Text = "Success" + Environment.NewLine + " Mail sent. Please check your inbox."
|
||||
@@ -640,7 +658,8 @@ Partial Class ForgotPW
|
||||
End If
|
||||
Catch ex As Exception
|
||||
'MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
|
||||
lblMessage.Text = "Error12: No Token could be generated! Try to contact the admin."
|
||||
VERAG_VARIABLES.seterrorcount(12)
|
||||
lblMessage.Text = VERAG_VARIABLES.geterrornumb + "No Token could be generated! Try to contact the admin."
|
||||
End Try
|
||||
Return True
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user