Imports BVSoftware.BVC.Core Public Class People_Users_Edit_Address Inherits BaseAdminPage #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents msg As BVSoftware.WebControls.WebPageMessage Protected WithEvents btnCancel As System.Web.UI.WebControls.ImageButton Protected WithEvents btnSave As System.Web.UI.WebControls.ImageButton 'NOTE: The following placeholder declaration is required by the Web Form Designer. 'Do not delete or move it. Private designerPlaceholderDeclaration As System.Object 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 #End Region Protected WithEvents AddressControl1 As AddressControl Private Property CreateMode() As Boolean Get If ViewState("CreateMode") Is Nothing Then Return False Else Return ViewState("CreateMode") End If End Get Set(ByVal Value As Boolean) ViewState("CreateMode") = Value End Set End Property 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 AddressControl1.RequireAddress = False AddressControl1.RequireCity = False AddressControl1.RequireCompany = False AddressControl1.RequireFax = False AddressControl1.RequireFirstName = False AddressControl1.RequireLastName = False AddressControl1.RequirePhone = False AddressControl1.RequirePostalCode = False AddressControl1.RequireRegion = False AddressControl1.RequireWebSiteURL = False AddressControl1.ShowCompanyName = True AddressControl1.ShowFaxNumber = True AddressControl1.ShowMiddleInitial = True AddressControl1.ShowPhoneNumber = True AddressControl1.ShowWebSiteURL = True If Not Page.IsPostBack Then Dim userID As String If Not Request.Params("UserID") Is Nothing Then userID = Request.Params("UserID") ViewState("UserID") = userID End If If Not Request.Params("DOC") Is Nothing Then ViewState("DOC") = 1 End If If Not Request.Params("CreateMode") Is Nothing Then Me.CreateMode = True End If If CreateMode = False Then Dim editIndex As Integer = -1 If Not Request.Params("index") Is Nothing Then editIndex = Request.Params("index") ViewState("EditIndex") = editIndex Else msg.ShowWarning("No address ID was found") End If LoadAddressForUser(userID, editIndex) End If End If End Sub Private Sub LoadAddressForUser(ByVal userID As String, ByVal addressIndex As Integer) Dim u As Membership.UserAccount = MembershipServices.GetUserByID(userID) If Not u Is Nothing Then If Not u.Addresses Is Nothing Then If u.Addresses.Count > addressIndex Then AddressControl1.LoadFromAddress(u.Addresses(addressIndex)) End If End If End If u = Nothing End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnCancel.Click If Not ViewState("DOC") Is Nothing Then Dim editIndex As Integer = -1 editIndex = ViewState("EditIndex") Dim u As Membership.UserAccount = MembershipServices.GetUserByID(ViewState("UserID")) If Not u Is Nothing Then If Not u.Addresses Is Nothing Then If u.Addresses.Count > editIndex Then If editIndex >= 0 Then u.Addresses.RemoveAt(editIndex) MembershipServices.UpdateUser(u) End If End If End If End If End If Response.Redirect("people_Users_edit.aspx?id=" & ViewState("UserID")) End Sub Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnSave.Click If AddressControl1.Validate = True Then Dim a As Contacts.Address = AddressControl1.GetAsAddress If Not a Is Nothing Then Dim u As Membership.UserAccount = MembershipServices.GetUserByID(ViewState("UserID")) If Not u Is Nothing Then If Not u.Addresses Is Nothing Then If Me.CreateMode = True Then u.Addresses.Add(a) Else Dim editIndex As Integer = -1 editIndex = ViewState("EditIndex") If u.Addresses.Count > editIndex Then u.Addresses(editIndex) = a End If End If MembershipServices.UpdateUser(u) Response.Redirect("people_Users_edit.aspx?id=" & ViewState("UserID")) End If End If End If End If End Sub End Class