diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb index a4fae58..f7d95c9 100644 --- a/login/ForgotPW.aspx.vb +++ b/login/ForgotPW.aspx.vb @@ -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