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

Es wird sich jetzt wieder mit der Kundenummer eingeloggt. die Übersetzungen werden getätigt.

Browse Source
This commit is contained in:
ja
2021-11-16 08:06:27 +01:00
parent 8ee7acbd20
commit 8b10e82db3
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
login/Change_PW.aspx
View File

@@ -198,7 +198,7 @@
<table id="tbl_main_M" cellpadding="0" style="margin: 2px 4px 1px 2px;border:none"> <table id="tbl_main_M" cellpadding="0" style="margin: 2px 4px 1px 2px;border:none">
<tr style="color:#003680;height:38px;"> <tr style="color:#003680;height:38px;">
<td> <td>
<asp:Label ID="lbl_Ueberschrift_M" runat="server" Text="Passwort-Wechsel:" style="margin-left:35px;font-weight:700;color:#003681;font-size:26px"></asp:Label> <asp:Label ID="lbl_Ueberschrift_M" runat="server" Text="Password-Change:" style="margin-left:35px;font-weight:700;color:#003681;font-size:26px"></asp:Label>
</td> </td>
</tr> </tr>
<tr style="border:0.5px solid #003680; background-color:rgba(255,255,255,0.5);height:12px; width:80%"> <tr style="border:0.5px solid #003680; background-color:rgba(255,255,255,0.5);height:12px; width:80%">

4
login/ForgotPW.aspx.vb
View File

@@ -294,13 +294,13 @@ Partial Class ForgotPW
If regexval_2_txt_Email_M.IsValid = True Then If regexval_2_txt_Email_M.IsValid = True Then
email = txtEmail_M.Text email = txtEmail_M.Text
lblMessage_M.ForeColor = Drawing.Color.Lime lblMessage_M.ForeColor = Drawing.Color.Lime
lblMessage_M.Text = "E-mail Adresse ist validiert.." lblMessage_M.Text = "E-Mail Adresse ist validiert.."
End If End If
Else Else
regexval_txt_Email.Validate() regexval_txt_Email.Validate()
If regexval_2_txt_Email_M.IsValid = True Then If regexval_2_txt_Email_M.IsValid = True Then
lblMessage_M.ForeColor = Drawing.Color.Lime lblMessage_M.ForeColor = Drawing.Color.Lime
lblMessage_M.Text = "E-mail Adresse ist korrekt." lblMessage_M.Text = "E-Mail Adresse ist korrekt."
email = txtEmail_M.Text email = txtEmail_M.Text
End If End If
End If End If

4
login/login_FLEX.aspx.vb
View File

@@ -187,11 +187,11 @@ Partial Class login_FLEX
dr.Close() dr.Close()
con.Close() con.Close()
End Using End Using
Using cmd2 As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET [LastLoginDate]=@Date WHERE [Username]=@Username AND [UserId]=@UserId AND Password=@Password") Using cmd2 As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET [LastLoginDate]=@Date WHERE [Username]=@Username AND [KundenNr]=@KundenNr AND Password=@Password")
cmd2.Parameters.AddWithValue("Date", Date.Now.ToString) cmd2.Parameters.AddWithValue("Date", Date.Now.ToString)
cmd2.Parameters.AddWithValue("Username", UserNaMe) cmd2.Parameters.AddWithValue("Username", UserNaMe)
cmd2.Parameters.AddWithValue("KundenNr", Customer_ID) cmd2.Parameters.AddWithValue("KundenNr", Customer_ID)
cmd2.Parameters.AddWithValue("Password",passw) cmd2.Parameters.AddWithValue("Password", passw)
cmd2.Connection = con cmd2.Connection = con
con.Open() con.Open()
cmd2.ExecuteNonQuery() cmd2.ExecuteNonQuery()