You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
2.5 KiB
56 lines
2.5 KiB
Public Class KontoInformationen
|
|
Inherits System.Web.UI.Page
|
|
|
|
Dim pw As String = ""
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
Dim clsdata As New clsDatahandling
|
|
Dim dt As New DataSet
|
|
dt = clsdata.Get_Tabledata("Select * from web_user where eintragnr=" + Session.Item("UserID").ToString, False, True)
|
|
Me.txtBenutzername.Text = dt.Tables(0).Rows(0).Item("Username")
|
|
Me.txtPasswort.Text = dt.Tables(0).Rows(0).Item("Passwort")
|
|
Me.txtPasswort.Attributes.Add("Value", dt.Tables(0).Rows(0).Item("Passwort"))
|
|
Me.txtPasswort1.Text = dt.Tables(0).Rows(0).Item("Passwort")
|
|
Me.txtPasswort1.Attributes.Add("Value", dt.Tables(0).Rows(0).Item("Passwort"))
|
|
Me.txtEMail.Text = dt.Tables(0).Rows(0).Item("Email")
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Function Check_Userid(source As Object, args As ServerValidateEventArgs)
|
|
Dim dh As New clsDatahandling
|
|
Dim ds As New DataSet
|
|
ds = dh.Get_Tabledata("Select * from web_user where Username='" + Me.txtBenutzername.Text + "' and eintragnr <> " + Session("UserID").ToString, False, True)
|
|
If ds.Tables(0).Rows.Count > 0 Then
|
|
args.IsValid = False
|
|
Else
|
|
args.IsValid = True
|
|
End If
|
|
End Function
|
|
|
|
Public Function Check_Captcha(source As Object, args As ServerValidateEventArgs)
|
|
If Me.RadCaptcha1.IsValid = False Then
|
|
Me.ValidationSummary1.Visible = True
|
|
args.IsValid = False
|
|
Else
|
|
args.IsValid = True
|
|
End If
|
|
End Function
|
|
|
|
Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
If Page.IsValid Then
|
|
Dim dh As New clsDatahandling
|
|
Try
|
|
dh.UpdateTable("Web_User", "Username", Me.txtBenutzername.Text, True, "eintragnr", Session("Userid"))
|
|
dh.UpdateTable("Web_User", "Passwort", Me.txtPasswort.Text, True, "eintragnr", Session("Userid"))
|
|
dh.UpdateTable("Web_User", "EMail", Me.txtEMail.Text, True, "eintragnr", Session("Userid"))
|
|
dh.UpdateTable("Web_User", "Mutiert_am", Now, False, "eintragnr", Session("Userid"))
|
|
dh.UpdateTable("Web_User", "Mutierer", Session("Userid"), False, "Eintragnr", Session("Userid"))
|
|
Response.Redirect("~/User/Bestaetigung_Kontoinformationen.aspx")
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
|
|
End Class |