Partial Class includes_change_password_inc
    Inherits System.Web.UI.UserControl
    Private _user As MembershipUser
    Private _commonFunctions As CommonFunctions = New CommonFunctions()

    Private _originator As String
    Public Property Originator() As String
        Get
            Return _originator
        End Get
        Set(ByVal value As String)
            _originator = value
        End Set
    End Property

    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnUpdate.Click
        Dim _resultMessage As String = ""
        Dim _success As Boolean = True
        If Page.IsValid = True Then
            Try
                Dim _resetPassword As String = Membership.Provider.ResetPassword(_user.UserName, DBNull.Value.ToString())
                Membership.Provider.ChangePassword(_user.UserName, _resetPassword, NewPasswordTextBox.Text)
                _resultMessage = GetLocalResourceObject("SuccessMessage")
            Catch ex As Exception
                _resultMessage = GetLocalResourceObject("FailedMessage") & ex.Message
                _success = False
            End Try
        End If

        If Me.Originator = "Admin" Or Me.Originator = "HeadOffice" Then
            'InjectScript.Text = "<script type='text/javascript'>CloseAndRebind()</" + "script>"
        Else
            CompleteFormDiv.Visible = False
            ResultDiv.Visible = True
            ResultLabel.Text = _resultMessage

            Try
                Dim _headTag As New HtmlGenericControl
                _headTag = CType(Me.Page.Master.FindControl("MasterHeadTag"), HtmlGenericControl)
                Dim _metaRefreshTag As LiteralControl = New LiteralControl(_commonFunctions.MetaTag("change_password.aspx"))
                _headTag.Controls.Add(_metaRefreshTag)
            Catch ex As Exception
            End Try
        End If
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnCancel.Click
        NewPasswordTextBox.Text = Nothing
        ConfirmPasswordTextBox.Text = Nothing
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Page.DataBind()
        Dim _userProfile As ProfileCommon
        Dim _storeId As Integer

        If Me.Originator = "Admin" Or Me.Originator = "HeadOffice" Then
            Dim _guid As Guid = New Guid(Request.QueryString("uid"))
            _user = Membership.GetUser(_guid)
            _userProfile = Profile.GetProfile(Membership.GetUser().UserName)
            _storeId = _userProfile.StoreId
        Else
            _user = Membership.GetUser()
            _userProfile = Profile.GetProfile(_user.UserName)
            _storeId = _userProfile.StoreId
        End If

        If (_user.UserName).Substring(0, _storeId.ToString.Length + 1) = _storeId.ToString & "_" Then
            UserNameLabel.Text = (_user.UserName).Substring(_storeId.ToString.Length + 1)
        Else
            UserNameLabel.Text = _user.UserName
        End If

    End Sub

End Class