edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderung Einführung Fehlernummern

Browse Source
This commit is contained in:
ja
2021-11-11 11:23:47 +01:00
parent 6fd4649f5c
commit 4147c7c40b
1 changed files with 38 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
login/ForgotPW.aspx.vb
View File

@@ -280,7 +280,8 @@ Partial Class ForgotPW
regexval_txt_Email_M.Validate() regexval_txt_Email_M.Validate()
If regexval_txt_Email_M.IsValid = True Then If regexval_txt_Email_M.IsValid = True Then
regexval_txt_Email_M.ForeColor = Drawing.Color.OrangeRed 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() regexval_2_txt_Email_M.Validate()
If regexval_2_txt_Email_M.IsValid = True Then If regexval_2_txt_Email_M.IsValid = True Then
email = txtEmail_M.Text email = txtEmail_M.Text
@@ -304,7 +305,8 @@ Partial Class ForgotPW
customerID = txt_CustomerID_M.Text customerID = txt_CustomerID_M.Text
Else Else
lblMessage_M.ForeColor = Drawing.Color.Red 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
End If End If
@@ -313,7 +315,8 @@ Partial Class ForgotPW
check_UserName_regex_M.Validate() check_UserName_regex_M.Validate()
If check_UserName_regex_M.IsValid = False Then If check_UserName_regex_M.IsValid = False Then
check_UserName_regex_M.ForeColor = Drawing.Color.Red 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 Else
username = txt_Username_M.Text username = txt_Username_M.Text
lblMessage_M.ForeColor = Drawing.Color.Lime lblMessage_M.ForeColor = Drawing.Color.Lime
@@ -360,11 +363,13 @@ Partial Class ForgotPW
customerID = txt_CustomerID_M.Text customerID = txt_CustomerID_M.Text
lblMessage_M.ForeColor = Color.Green lblMessage_M.ForeColor = Color.Green
isuserIDright = True 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 Else
lblMessage_M.ForeColor = Color.Red lblMessage_M.ForeColor = Color.Red
isuserIDright = False 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 Return
End If End If
Catch ex As Exception Catch ex As Exception
@@ -382,7 +387,8 @@ Partial Class ForgotPW
Else Else
lblMessage_M.ForeColor = Color.Red lblMessage_M.ForeColor = Color.Red
isuserEmailright = False 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 Return
End If End If
Catch ex As Exception Catch ex As Exception
@@ -400,7 +406,8 @@ Partial Class ForgotPW
Else Else
lblMessage_M.ForeColor = Color.Red lblMessage_M.ForeColor = Color.Red
isusernameright = False 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 End If
Catch ex As Exception Catch ex As Exception
Dim Msg, Style, Title As String Dim Msg, Style, Title As String
@@ -431,7 +438,8 @@ Partial Class ForgotPW
'MsgBox("Token generated successfully.") 'MsgBox("Token generated successfully.")
Else Else
lblMessage_M.ForeColor = Color.Red 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!") 'MsgBox("Token is not valid anymore. Please generate a new one by sending a new e-mail!")
If Session.Item("TokenforEmail") = Nothing Then If Session.Item("TokenforEmail") = Nothing Then
@@ -450,23 +458,28 @@ Partial Class ForgotPW
lblMessage_M.ForeColor = Color.Red lblMessage_M.ForeColor = Color.Red
If String.IsNullOrWhiteSpace(username) = True Then If String.IsNullOrWhiteSpace(username) = True Then
lblMessage_M.ForeColor = Drawing.Color.Red 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 ElseIf String.IsNullOrWhiteSpace(email) = True Then
lblMessage_M.ForeColor = Drawing.Color.Red 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 ElseIf String.IsNullOrWhiteSpace(password) = True Then
lblMessage_M.ForeColor = Drawing.Color.Red 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
End If End If
Else Else
lblMessage_M.ForeColor = Drawing.Color.Red 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 End If
Catch Exc As Exception Catch Exc As Exception
lblMessage.ForeColor = Drawing.Color.Red lblMessage.ForeColor = Drawing.Color.Red
lblMessage_M.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 Try
End Sub End Sub
@@ -508,7 +521,8 @@ Partial Class ForgotPW
ElseIf String.IsNullOrWhiteSpace(HttpContext.Current.Request.ServerVariables("SERVER_NAME")) = True Then 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.") '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.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 End If
'Dim pg As String = Request.ServerVariables("URL") 'Dim pg As String = Request.ServerVariables("URL")
'MsgBox("/" + ServPort + Request.ServerVariables("URL")) 'MsgBox("/" + ServPort + Request.ServerVariables("URL"))
@@ -529,7 +543,8 @@ Partial Class ForgotPW
Else Else
'MsgBox("Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen.", vbAbort, "Error07") 'MsgBox("Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen.", vbAbort, "Error07")
lblMessage_M.ForeColor = Color.OrangeRed 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 End If
lblMessage_M.ForeColor = Color.Green lblMessage_M.ForeColor = Color.Green
lblMessage_M.Text = "Success" + Environment.NewLine + " Mail sent. Please check your inbox." lblMessage_M.Text = "Success" + Environment.NewLine + " Mail sent. Please check your inbox."
@@ -537,7 +552,8 @@ Partial Class ForgotPW
Return True Return True
Else Else
lblMessage_M.ForeColor = Color.Red 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.") 'MsgBox("Error02: Mail not delivered!" & vbCrLf & "New Token has been generated.")
If Session.Item("TokenforEmail") = Nothing Then If Session.Item("TokenforEmail") = Nothing Then
tokenname = genToken(username, password, email, userID, isusrnmright, iscstmIDright, isemailright, Session.IsNewSession) 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 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.") '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.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 End If
'Dim pg As String = Request.ServerVariables("URL") 'Dim pg As String = Request.ServerVariables("URL")
'MsgBox("/" + ServPort + Request.ServerVariables("URL")) 'MsgBox("/" + ServPort + Request.ServerVariables("URL"))
@@ -618,7 +635,8 @@ Partial Class ForgotPW
Else Else
'MsgBox("Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen.", vbAbort, "Error07") 'MsgBox("Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen.", vbAbort, "Error07")
lblMessage.ForeColor = Color.OrangeRed 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 End If
lblMessage.ForeColor = Color.Green lblMessage.ForeColor = Color.Green
lblMessage.Text = "Success" + Environment.NewLine + " Mail sent. Please check your inbox." lblMessage.Text = "Success" + Environment.NewLine + " Mail sent. Please check your inbox."
@@ -640,7 +658,8 @@ Partial Class ForgotPW
End If End If
Catch ex As Exception Catch ex As Exception
'MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt '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 End Try
Return True Return True
Else Else