PW ändern Logik funktioniert. DB Anbindung fehlt noch,

login/ChangePW.aspx.vb

@@ -6,6 +6,10 @@ Partial Class login_ChangePW
         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)
@@ -20,9 +24,41 @@ Partial Class login_ChangePW
 
     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("ChangePW.aspx")
+            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
 
@@ -31,14 +67,12 @@ Partial Class login_ChangePW
 
         If regexval_txt_Pw.IsValid Then
             txt_Pw_WH.ReadOnly = False
-            txt_Pw_WH.Enabled = True
             regexval_txt_Pw_WH.Enabled = True
-            MsgBox("PW erfolgreich geändert!")
+
+
         Else
             txt_Pw_WH.ReadOnly = True
-            txt_Pw_WH.Enabled = False
             regexval_txt_Pw_WH.Enabled = False
-            MsgBox("PW nicht erfolgreich geändert!")
         End If
 
     End Sub