Imports LYB.VB
Imports LYB.VB.CLASSES

Partial Class components_ChangePasswordForm
    Inherits System.Web.UI.UserControl
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'PanelPassword.Style.Add("position", "absolute")
        'PanelPassword.Style.Add("top", "200px")
        'PanelPassword.Style.Add("left", "380px")
        'PanelPassword.Style.Add("z-index", "210")
        If Session("ChangePasswordClicked") = False Then
            Me.Visible = False
        End If
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim data As New DataUtils
        Dim member As Member = CType(Session("member"), Member)
        Dim memberid As Integer
        Dim userIDCookie As String() = {"", "", ""}
        Try
            userIDCookie = data.GetUserIDCookie(Request)
            memberid = CType(userIDCookie(0), Integer)
        Catch ex As Exception
            If InStr(ex.Message, "not set to an instance") > 0 Then
                memberid = member.MemberID
            Else
                Throw New System.Exception("Fel vid läs cookie")
            End If
        End Try
        If Page.IsValid Then
            Dim result As String = data.UpdatePassword(memberid, txtPassword1.Text)
            If Left(result, 5) = "ERROR" Then
                data.AddToErrorLog(userIDCookie(0), 0, 0, result, Session.SessionID, 1)
                lblMessage.Text = Resources.Resource.passwUpdateMessage1
            Else
                Session("ChangePasswordClicked") = False
                Me.Visible = False
            End If
            'Else
            '    PanelPassword.Style.Add("height", "240px")
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Session("ChangePasswordClicked") = False
        Me.Visible = False
    End Sub


End Class