here is my code. it seems it adds the wrong portal definitions to the user.
I am correctly setting the portalid for the user and portal settings.
what am I missing?
we have several portals and it used other portal definitions to assign to them.


Dim oUserInfo As New DotNetNuke.Entities.Users.UserInfo
oUserInfo.FirstName = oUser.Ektron_FirstName
oUserInfo.LastName = oUser.Ektron_LastName
oUserInfo.PortalID = iPortal
oUserInfo.Email = oUser.Ektron_Email
oUserInfo.Username = oUser.Ektron_Username
oUserInfo.DisplayName = oUser.Ektron_DisplayName
oUserInfo.Membership.Password = "xxxxxxx"
oUserInfo.IsSuperUser = False

'Fill MINIMUM Profile Items (KEY PIECE)
Dim p_Settings As New DotNetNuke.Entities.Portals.PortalSettings(iPortal)

oUserInfo.Profile.PreferredLocale = p_Settings.DefaultLanguage
oUserInfo.Profile.TimeZone = p_Settings.TimeZoneOffset
oUserInfo.Profile.FirstName = oUser.Ektron_FirstName
oUserInfo.Profile.LastName = oUser.Ektron_LastName

'Set Membership
Dim oNewMembership As UserMembership = New UserMembership()
oNewMembership.Approved = True
oNewMembership.CreatedDate = System.DateTime.Now
oNewMembership.Email = oUser.Ektron_Email
oNewMembership.IsOnLine = False
oNewMembership.Username = oUser.Ektron_Username
oNewMembership.Password = oUserInfo.Membership.Password 'oExternalUserAccount.Password

'Bind membership to user
oUserInfo.Membership = oNewMembership

Dim createStatus As DotNetNuke.Security.Membership.UserCreateStatus = DotNetNuke.Security.Membership.UserCreateStatus.AddUser
Dim memberProvider As DotNetNuke.Security.Membership.MembershipProvider = DotNetNuke.Security.Membership.MembershipProvider.Instance()

createStatus = memberProvider.CreateUser(oUserInfo)
If createStatus = DotNetNuke.Security.Membership.UserCreateStatus.Success Then
UserList.Text = "success"

thx that looks good to add into my code