Imports BVSoftware.BVC.Core Public Class Users Inherits BaseAdminPage #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub Protected WithEvents AddUserButton As System.Web.UI.WebControls.ImageButton Protected WithEvents DeleteButton As MetaBuilders.WebControls.ConfirmedImageButton Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents btnEdit As System.Web.UI.WebControls.ImageButton Protected WithEvents ConfirmedImageButton1 As MetaBuilders.WebControls.ConfirmedImageButton Protected WithEvents UserPicker1 As UserPicker Protected WithEvents msg As BVSoftware.WebControls.WebPageMessage #End Region Private tempUser As Membership.UserAccount Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BVC2004Store.CheckThisPage(Security.RolePermission.LoginToAdmin) BVC2004Store.CheckThisPage(Security.RolePermission.AccessPeopleArea) If Not Page.IsPostBack Then MetaKeywordsControl.Content = WebAppSettings.MetaKeywords MetaDescriptionControl.Content = WebAppSettings.MetaDescription End If tempUser = New Membership.UserAccount ' Get alphabetical start and end if needed If Not Request.Params("StartCharacter") Is Nothing Then ViewState("StartCharacter") = Request.Params("StartCharacter") End If If Not Request.Params("EndCharacter") Is Nothing Then ViewState("EndCharacter") = Request.Params("EndCharacter") End If End Sub Private Sub AddUserButton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles AddUserButton.Click Response.Redirect("people_Users_Create.aspx", True) End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnEdit.Click msg.Clear() If Me.UserPicker1.SelectedUsers.Count < 1 Then msg.ShowWarning("Please select a user from the list first.") Else For i As Integer = 0 To Me.UserPicker1.SelectedUsers.Count - 1 Response.Redirect("people_Users_Edit.aspx?id=" & UserPicker1.SelectedUsers(i)) Next End If End Sub Private Sub ConfirmedImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ConfirmedImageButton1.Click msg.Clear() If Me.UserPicker1.SelectedUsers.Count < 1 Then msg.ShowWarning("Please select a user from the list first.") Else For i As Integer = 0 To Me.UserPicker1.SelectedUsers.Count - 1 MembershipServices.DeleteUserByID(UserPicker1.SelectedUsers(i)) Next UserPicker1.LoadLastSearch() End If End Sub End Class