Partial Class login_ChangePW
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs)
        btn_submitpw.Enabled = False
        txt_Pw_WH.Enabled = False
        regexval_txt_Pw_WH.Enabled = False
        If IsPostBack Then
            reqPasswtxt.Validate()
            reqPassw1txt.Validate()
        End If
    End Sub

    Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_Pw_WH.Validate()
        confirmPasswordReq.Validate()
        If confirmPasswordReq.IsValid Then
            btn_submitpw.Enabled = True
        Else
            btn_submitpw.Enabled = False
        End If
    End Sub

    Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs)
        Dim tempstr As String = ""
        Dim Msg, Style, Title, Help, Ctxt, MsgResponse, MyString
        reqPasswtxt.Validate()
        reqPassw1txt.Validate()
        If confirmPasswordReq.IsValid = True Then
            tempstr = txt_Pw.Text
        Else
            tempstr = "Error01"
        End If
        If txt_Pw.Text = tempstr Then
            Msg = "PW erfolgreich geändert!"
            Style = vbOKOnly + vbInformation + vbDefaultButton1
            Title = "Information"
            MsgBox(Msg, Style, Title)

            If MsgBox(Msg, Style, Title).Ok Then
                Response.Redirect("login_FLEX.aspx")
            End If
        ElseIf tempstr = "Error01" Then
            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 If
    End Sub

    Protected Sub txt_Pw_TextChanged(sender As Object, e As EventArgs)
        regexval_txt_Pw.Validate()

        If regexval_txt_Pw.IsValid Then
            txt_Pw_WH.ReadOnly = False
            regexval_txt_Pw_WH.Enabled = True


        Else
            txt_Pw_WH.ReadOnly = True
            regexval_txt_Pw_WH.Enabled = False
        End If

    End Sub
End Class