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