Membership Ek veriler ile Kayit ekleme mvc vb.

Membership Ek veriler ile Kayit ekleme mvc vb.
<HttpPost()> _
    Public Function Register(ByVal model As RegisterModel) As ActionResult
        If ModelState.IsValid Then
            ' Attempt to register the user
            Dim createStatus As MembershipCreateStatus
            Membership.CreateUser(model.UserName, model.Password, model.Email, Nothing, Nothing, True, Nothing, createStatus)

            If createStatus = MembershipCreateStatus.Success Then
                Dim kad = model.UserName
                Dim Uye = Membership.GetUser(model.UserName)
                Dim bilgiler = New bilgiler
                bilgiler.TCKimlikNo = model.TCKimlikNo
                bilgiler.adi = model.adi
                bilgiler.soyadi = model.soyadi
                bilgiler.okul = model.okul
                bilgiler.bolum = model.bolum
                bilgiler.il = model.il
                bilgiler.ilce = model.ilce
                bilgiler.mail = model.Email
                bilgiler.UserId = Uye.ProviderUserKey
                VT.AddTobilgilers(bilgiler)
                VT.SaveChanges()
                Dim Rol = CInt(Request.QueryString("drs"))

                If Rol = 0 Then System.Web.Security.Roles.AddUserToRole(System.Web.Security.Membership.GetUser().UserName, "Kullanıcı")
                If Rol = 1 Then System.Web.Security.Roles.AddUserToRole(System.Web.Security.Membership.GetUser().UserName, "Personel")
                If Rol = 2 Then System.Web.Security.Roles.AddUserToRole(System.Web.Security.Membership.GetUser().UserName, "Admin")

                'FormsAuthentication.SetAuthCookie(model.UserName, False) kayıt olan ögrenciyi aktif eder
                Return RedirectToAction("../Account/Register")
            Else
                ModelState.AddModelError("", ErrorCodeToString(createStatus))
            End If
        End If

Kolay Gelsinn