Imports System.Data

Partial Class Registeration
    Inherits System.Web.UI.Page

    Dim ds As DataSet
    Dim da As New DataAccess
    Dim tabNom As String = "aspnet_users"
    Dim i As Integer

    Protected Sub CreateUserWizard1_ActiveStepChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CreateUserWizard1.ActiveStepChanged

        RoleList.DataSource = Roles.GetAllRoles
        RoleList.DataBind()
    End Sub

    Protected Sub CreateUserWizard1_NextButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles CreateUserWizard1.NextButtonClick
        For i = 0 To RoleList.Items.Count - 1
            If RoleList.Items(i).Selected = True Then
                Roles.AddUserToRole(CreateUserWizard1.UserName, RoleList.Items(i).Value)
            End If
        Next
    End Sub

    Protected Sub CreateUserWizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles CreateUserWizard1.FinishButtonClick
        For i = 0 To cmbRegion.Items.Count - 1
            If cmbRegion.Items(i).Selected = True Then
                ds = da.updateDBAvecSqlConnection(tabNom, "UPDATE " & tabNom & " SET Regions = " & cmbRegion.SelectedValue & " WHERE ( UserName = '" & CreateUserWizard1.UserName & "')")
            End If
        Next
    End Sub

    Sub ActiveUser()


    End Sub

End Class