problem with Assigning Profile and Role values during createduser event of createuserwizard

Hello,

I have a create user wizard in an asp.net website.  I added the following code to the createduser event of the wizard:

but the line: "CreateUserWizard1.UserName.ToString" returns empty strings every time.  But in another website i have built this code works perfectly.  I can not figure out why this will not produce the username here.

thanks

Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.CreatedUser

        Dim RegentDB As New RegentSignsDataContext
        Dim intError As Integer
        Dim intCompID As Integer
        Dim RGTProfile As ProfileCommon = ProfileCommon.Create(CreateUserWizard1.UserName.ToString, True)

        ''assign profile values
        Dim CustCompID = RegentDB.RGT_Customer_COMPID(hfCustID.Value, intCompID)
        RGTProfile.intCompanyID = intCompID
        RGTProfile.intCustomerID = hfCustID.Value
        RGTProfile.Email = CreateUserWizard1.Email
        RGTProfile.FullName = hfFirstName.Value + " " + hfLastName.Value
        RGTProfile.OldUserID = hfOldUserID.Value
        ''save profile
        RGTProfile.Save()

        ''assign role membership
        Dim chrUser As String
        chrUser = CreateUserWizard1.UserName.ToString
        If hfAdmin.Value = "YY" Then
            Roles.AddUserToRole("kingnolan", "RgtAdmin")
        ElseIf hfManager.Value = "y" Then
            Roles.AddUserToRole(chrUser, "ErManager")
        Else
            Roles.AddUserToRole(chrUser, "Erequest")
        End If

        ''update RgtTable user to be activated = 1
        Dim CustActivated = RegentDB.RGT_User_ACTIVATED(hfCustID.Value, intError)

    End Sub

Open in new window

LVL 1
jordankingAsked:
Who is Participating?
 
jordankingAuthor Commented:
I figured out a solution:

get the username value the same way I set it programically in the page load event(by using findcontrol).  Also, I needed to add an update user call to the membership class after assigning the profile and roles to ensure the user is logged in after the wizard completes and redirects the page.

final working code follows:


Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.CreatedUser

        Dim RegentDB As New RegentSignsDataContext
        Dim intError As Integer
        Dim intCompID As Integer
        Dim tbUserName = CType(CreateUserWizard1.CreateUserStep.ContentTemplateContainer.FindControl("UserName"), TextBox)
        Dim strUser As String
        Dim tbEmail = CType(CreateUserWizard1.CreateUserStep.ContentTemplateContainer.FindControl("Email"), TextBox)
        Dim chrEmail As String

        strUser = tbUserName.Text
        chrEmail = tbEmail.Text

        Dim RGTProfile As ProfileCommon = ProfileCommon.Create(strUser, True)

        ''assign profile values
        Dim CustCompID = RegentDB.RGT_Customer_COMPID(hfCustID.Value, intCompID)
        RGTProfile.intCompanyID = intCompID
        RGTProfile.intCustomerID = hfCustID.Value
        RGTProfile.Email = chrEmail
        RGTProfile.FullName = hfFirstName.Value + " " + hfLastName.Value
        RGTProfile.OldUserID = hfOldUserID.Value
        ''save profile
        RGTProfile.Save()

        ''assign role membership
        If hfAdmin.Value = "YY" Then
            Roles.AddUserToRole(strUser, "RgtAdmin")
        ElseIf hfManager.Value = "y" Then
            Roles.AddUserToRole(strUser, "ErManager")
        Else
            Roles.AddUserToRole(strUser, "Erequest")
        End If

        Dim mUser As MembershipUser = Membership.GetUser(strUser)
        Membership.UpdateUser(mUser)
        FormsAuthentication.SetAuthCookie(strUser, False)
        ''update RgtTable user to be activated = 1
        Dim CustActivated = RegentDB.RGT_User_ACTIVATED(hfCustID.Value, intError)

    End Sub

Open in new window

0
 
Jesus RodriguezIT ManagerCommented:
An if you get the Usernae from RGTProfile?? Get an empty string too??
0
 
jordankingAuthor Commented:
RGTPRofile is not being created properly because there is no username being passed to its arguments "ProfileCommon.Create(username, isAuthenticated)", so it does not create a profile object and therefore has no username information.

The code i have work in another project I have, but something is not working in this specific situation.
0
 
jordankingAuthor Commented:
so I am narrowing down the issue, but still no solution.  The create user wizard has the following fields:  username, password, confirm password, email, security question, and answer.  The email and username fields are set programically in the page load event as follows:

Dim tbUserName = CType(CreateUserWizard1.CreateUserStep.ContentTemplateContainer.FindControl("UserName"), TextBox)
                tbUserName.Text = customer.chrUser

the "customer.chrUser" is from a recordset.field object that gets its information from sql server via LINQ.

As a result, the field values in the create user wizard that I set in the page load event are providing empty strings to the createdUser event.  The other fields that the user completes (ie password, security question, and answer) all work.

Therefore
CreateUserWizard1.UserName = "" an empty string
but
CreateUserWizard1.Question, CreateUserWizard1.Answer, CreateUserWizard1.Password all work and give the string value from the associated text boxes in the wizard


i can't figure out why this is hapening
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.