From c2d7e10bbdfe43004ffd5f891e22f144b55ea27e Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Thu, 18 Nov 2021 16:27:19 +0100
Subject: [PATCH] Fixen des bugs

---
 login/Change_PW.aspx    |  3 +-
 login/Change_PW.aspx.vb | 81 +++++++++++++++++++++--------------------
 2 files changed, 42 insertions(+), 42 deletions(-)

diff --git a/login/Change_PW.aspx b/login/Change_PW.aspx
index 40f27b5..bfc37a0 100644
--- a/login/Change_PW.aspx
+++ b/login/Change_PW.aspx
@@ -321,8 +321,7 @@
                                      <ul style="list-style:circle;margin-left:48px">
                                          <li>
                                               <asp:Label ID="Label3" runat="server" style="color:#003680;margin-left:2px">1 Uppercase</asp:Label>
-                                         </li>                                     
-                                    
+                                         </li>                                  
                                          <li>
                                              <asp:Label ID="Label4" runat="server" style="color:#003680;margin-left:2px">1 Downcase </asp:Label>
                                          </li>                           
diff --git a/login/Change_PW.aspx.vb b/login/Change_PW.aspx.vb
index 1f5bdb5..b6800b3 100644
--- a/login/Change_PW.aspx.vb
+++ b/login/Change_PW.aspx.vb
@@ -193,47 +193,48 @@ Partial Class login_Change_PW
                 txt_Pw_WH.Enabled = True
                 regexval_txt_Pw.Validate()
             End If
+            If regexval_txt_Pw.IsValid = True Then
+                Try
+                    Dim ConnectionString = ""
+                    Dim usrname As String = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2"))
+                    Dim UsrID As String = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
+                    If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
+                        'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
+                        ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
+                    Else
+                        ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
+                        'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
+                    End If
+                    If regexval_txt_Pw.IsValid = True Then
+                        Using con As New SqlConnection(ConnectionString)
+                            Using cmd As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET [Password]=@Password WHERE [Username]=@Username AND [UserId]=@UserId")
+                                ' cmd.CommandType = CommandType.StoredProcedure
+                                cmd.Parameters.AddWithValue("@Username", usrname)
+                                cmd.Parameters.AddWithValue("@Password", txt_Pw_WH.Text)
+                                cmd.Parameters.AddWithValue("@UserId", UsrID)
+                                cmd.Connection = con
+                                con.Open()
+                                If String.IsNullOrEmpty(usrname) = False Then
+                                    cmd.ExecuteNonQuery()
+                                    btn_submitpw.Visible = True
+                                Else
+                                    VERAG_VARIABLES.seterrorcount(25)
+                                    lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb() + "Fehler bei der Behebung des Passwortwechsels."
+                                End If
+                            End Using
+                            con.Close()
+                        End Using
 
-            Try
-                Dim ConnectionString = ""
-                Dim usrname As String = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2"))
-                Dim UsrID As String = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
-                If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
-                    'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
-                    ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
-                Else
-                    ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
-                    'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
-                End If
-                If regexval_txt_Pw.IsValid = True Then
-
-                    Using cmd As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET [Password]=@Password WHERE [Username]=@Username AND [UserId]=@UserId")
-                        ' cmd.CommandType = CommandType.StoredProcedure
-                        cmd.Parameters.AddWithValue("@Username", usrname)
-                        cmd.Parameters.AddWithValue("@Password", txt_Pw_WH.Text)
-                        cmd.Parameters.AddWithValue("@UserId", UsrID)
-                        cmd.Connection = con
-                        con.Open()
-                        If String.IsNullOrEmpty(usrname) = False Then
-                            cmd.ExecuteNonQuery()
-                            btn_submitpw.Visible = True
-                        Else
-                            VERAG_VARIABLES.seterrorcount(25)
-                            lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb() + "Fehler bei der Behebung des Passwortwechsels."
-                        End If
-                    End Using
-                    con.Close()
-                    End Using
-                End If
-                Else
-                VERAG_VARIABLES.seterrorcount(22)
-                    'lbl_messagetext_M.ForeColor = Drawing.Color.Red
-            'lbl_messagetext_M.Text = VERAG_VARIABLES.geterrornumb() + "Error bei der Validierung des Kennwortes."
-        End If
-        Catch ex As Exception
-        lbl_messagetext.Text = ex.Message
-        End Try
-        Msg = "PW erfolgreich geändert!"
+                    Else
+                        VERAG_VARIABLES.seterrorcount(22)
+                        'lbl_messagetext_M.ForeColor = Drawing.Color.Red
+                        'lbl_messagetext_M.Text = VERAG_VARIABLES.geterrornumb() + "Error bei der Validierung des Kennwortes."
+                    End If
+                Catch ex As Exception
+                    lbl_messagetext.Text = ex.Message
+                End Try
+            End If
+            Msg = "PW erfolgreich geändert!"
         Style = vbOKOnly + vbInformation + vbDefaultButton1
         Title = "Information"
         regexval_txt_Pw.ForeColor = Drawing.Color.Green