ASP.NET

<br />
Protected Sub EditMode_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EditMode.Click<br />
        Dim Conn As New ClanDataConnection()<br />
<br />
        Dim UID = Request.QueryString("UID")<br />
<br />
        Dim Query = From user In Conn.aspnet_Memberships _<br />
                    Where user.UserId.ToString() = UID _<br />
                    Select user, user.aspnet_Users<br />
<br />
        Dim newUserName As TextBox = dvUserDetails.FindControl("tbUserNameEdit")<br />
        Dim newEmail As TextBox = dvUserDetails.FindControl("tbEmailEdit")<br />
        Dim newMemberSince As TextBox = dvUserDetails.FindControl("tbCreateDateEdit")<br />
        Dim newLastOnline As TextBox = dvUserDetails.FindControl("tbLastActiveDateEdit")<br />
        Dim newIsApproved As CheckBox = dvUserDetails.FindControl("cbIsApprovedEdit")<br />
<br />
        For Each usr In Query<br />
            usr.user.aspnet_Users.UserName = newUserName.Text<br />
            usr.user.aspnet_Users.LoweredUserName = newUserName.Text.ToLower<br />
            usr.user.Email = newEmail.Text<br />
            usr.user.CreateDate = newMemberSince.Text<br />
            usr.user.aspnet_Users.LastActivityDate = newLastOnline.Text<br />
            usr.user.IsApproved = newIsApproved.Checked<br />
        Next<br />
<br />
        Try<br />
            Conn.SubmitChanges()<br />
        Catch ex As Exception<br />
            lbl.Text = ex.Message<br />
        End Try<br />
<br />
        Server.Transfer("./Screens/SelectUser.aspx")<br />
<br />
    End Sub<br />