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

Änderung

Browse Source
This commit is contained in:
ja
2021-11-18 16:40:56 +01:00
parent c2d7e10bbd
commit 20cfe14875
2 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
login/Change_PW.aspx
View File

@@ -322,6 +322,7 @@
<li> <li>
<asp:Label ID="Label3" runat="server" style="color:#003680;margin-left:2px">1 Uppercase</asp:Label> <asp:Label ID="Label3" runat="server" style="color:#003680;margin-left:2px">1 Uppercase</asp:Label>
</li> </li>
<li> <li>
<asp:Label ID="Label4" runat="server" style="color:#003680;margin-left:2px">1 Downcase </asp:Label> <asp:Label ID="Label4" runat="server" style="color:#003680;margin-left:2px">1 Downcase </asp:Label>
</li> </li>

46
login/Change_PW.aspx.vb
View File

@@ -235,30 +235,30 @@ Partial Class login_Change_PW
End Try End Try
End If End If
Msg = "PW erfolgreich geändert!" Msg = "PW erfolgreich geändert!"
Style = vbOKOnly + vbInformation + vbDefaultButton1 Style = vbOKOnly + vbInformation + vbDefaultButton1
Title = "Information" Title = "Information"
regexval_txt_Pw.ForeColor = Drawing.Color.Green regexval_txt_Pw.ForeColor = Drawing.Color.Green
regexval_txt_Pw.Text = "Passwort wurde erfolgreich geändert!" regexval_txt_Pw.Text = "Passwort wurde erfolgreich geändert!"
'MsgBox(Msg, Style, Title) 'MsgBox(Msg, Style, Title)
' If MsgBox(Msg, Style, Title).Ok Then ' If MsgBox(Msg, Style, Title).Ok Then
'Response.Redirect("login_FLEX.aspx") 'Response.Redirect("login_FLEX.aspx")
'End If 'End If
ElseIf tempstr = "Error01" Then ElseIf tempstr = "Error01" Then
regexval_txt_Pw.ForeColor = Drawing.Color.MediumVioletRed regexval_txt_Pw.ForeColor = Drawing.Color.MediumVioletRed
VERAG_VARIABLES.seterrorcount(2) VERAG_VARIABLES.seterrorcount(2)
'regexval_txt_Pw.Text = VERAG_VARIABLES.geterrornumb + "Passwords could not be found!" 'regexval_txt_Pw.Text = VERAG_VARIABLES.geterrornumb + "Passwords could not be found!"
' Msg = "PW nicht erfolgreich geändert!" ' Msg = "PW nicht erfolgreich geändert!"
' Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton1 ' Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton1
' Title = "Error" ' Title = "Error"
'MsgBox(Msg, Style, Title) 'MsgBox(Msg, Style, Title)
'If MsgBox(Msg, Style, Title).Retry Then 'If MsgBox(Msg, Style, Title).Retry Then
'Response.Redirect(Request.RawUrl) 'Response.Redirect(Request.RawUrl)
'ElseIf MsgBox(Msg, Style, Title).Abort Then 'ElseIf MsgBox(Msg, Style, Title).Abort Then
' Response.Redirect("../newPageJulius_Sidebar.aspx") ' Response.Redirect("../newPageJulius_Sidebar.aspx")
'ElseIf MsgBox(Msg, Style, Title).Ignore Then 'ElseIf MsgBox(Msg, Style, Title).Ignore Then
' Try ' Try
' Catch ex As Exception ' Catch ex As Exception
' End Try ' End Try
End If End If
End Sub End Sub
Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs) Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)