From 20cfe148754a3f87017900c64779c8d3fcaf7eab Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 18 Nov 2021 16:40:56 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderung?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- login/Change_PW.aspx | 5 +++-- login/Change_PW.aspx.vb | 46 ++++++++++++++++++++--------------------- 2 files changed, 26 insertions(+), 25 deletions(-) diff --git a/login/Change_PW.aspx b/login/Change_PW.aspx index bfc37a0..9dafc16 100644 --- a/login/Change_PW.aspx +++ b/login/Change_PW.aspx @@ -321,7 +321,8 @@ - + diff --git a/login/Change_PW.aspx.vb b/login/Change_PW.aspx.vb index b6800b3..c457d88 100644 --- a/login/Change_PW.aspx.vb +++ b/login/Change_PW.aspx.vb @@ -235,30 +235,30 @@ Partial Class login_Change_PW End Try End If Msg = "PW erfolgreich geändert!" - Style = vbOKOnly + vbInformation + vbDefaultButton1 - Title = "Information" - regexval_txt_Pw.ForeColor = Drawing.Color.Green - regexval_txt_Pw.Text = "Passwort wurde erfolgreich geändert!" - 'MsgBox(Msg, Style, Title) - ' If MsgBox(Msg, Style, Title).Ok Then - 'Response.Redirect("login_FLEX.aspx") - 'End If + Style = vbOKOnly + vbInformation + vbDefaultButton1 + Title = "Information" + regexval_txt_Pw.ForeColor = Drawing.Color.Green + regexval_txt_Pw.Text = "Passwort wurde erfolgreich geändert!" + 'MsgBox(Msg, Style, Title) + ' If MsgBox(Msg, Style, Title).Ok Then + 'Response.Redirect("login_FLEX.aspx") + 'End If ElseIf tempstr = "Error01" Then - regexval_txt_Pw.ForeColor = Drawing.Color.MediumVioletRed - VERAG_VARIABLES.seterrorcount(2) - 'regexval_txt_Pw.Text = VERAG_VARIABLES.geterrornumb + "Passwords could not be found!" - ' Msg = "PW nicht erfolgreich geändert!" - ' Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton1 - ' Title = "Error" - 'MsgBox(Msg, Style, Title) - 'If MsgBox(Msg, Style, Title).Retry Then - 'Response.Redirect(Request.RawUrl) - 'ElseIf MsgBox(Msg, Style, Title).Abort Then - ' Response.Redirect("../newPageJulius_Sidebar.aspx") - 'ElseIf MsgBox(Msg, Style, Title).Ignore Then - ' Try - ' Catch ex As Exception - ' End Try + regexval_txt_Pw.ForeColor = Drawing.Color.MediumVioletRed + VERAG_VARIABLES.seterrorcount(2) + 'regexval_txt_Pw.Text = VERAG_VARIABLES.geterrornumb + "Passwords could not be found!" + ' Msg = "PW nicht erfolgreich geändert!" + ' Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton1 + ' Title = "Error" + 'MsgBox(Msg, Style, Title) + 'If MsgBox(Msg, Style, Title).Retry Then + 'Response.Redirect(Request.RawUrl) + 'ElseIf MsgBox(Msg, Style, Title).Abort Then + ' Response.Redirect("../newPageJulius_Sidebar.aspx") + 'ElseIf MsgBox(Msg, Style, Title).Ignore Then + ' Try + ' Catch ex As Exception + ' End Try End If End Sub Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)