Imports System.Data
Imports System.Data.SqlClient
Partial Class BusinessAssociates_SSA_Password
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            FillSSADetails()
        End If
    End Sub
    Public Sub FillSSADetails()

        Dim cmd As New Data.SqlClient.SqlCommand()
        Dim con As New Data.SqlClient.SqlConnection
        con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")

        Dim Str As String
        Str = "select * From SSA_Master Where SSA_KID='" & Session("SSAID").ToString & "'"
        If con.State = Data.ConnectionState.Open Then
            con.Close()
        End If
        con.Open()
        cmd = New SqlCommand(Str, con)
        Dim adp As New SqlDataAdapter
        Dim ds As New DataSet
        Dim Dr As DataRow
        adp.SelectCommand = cmd
        adp.Fill(ds)

        If ds.Tables(0).Rows.Count > 0 Then
            Dr = ds.Tables(0).Rows(0)
            txtSSAID.Text = Session("SSAID").ToString
            lblOldPassword.Text = Dr("SSA_Password")
        End If

        con.Close()
        con.Dispose()

    End Sub

    Protected Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)


        If Not txtOldPassword.Text.Trim = lblOldPassword.Text.Trim Then
            showmessage("Your Old Password doesn't match with our database.", lblErrorData1)
            txtOldPassword.Focus()
            Exit Sub
        End If

        If Not txtNewPassword.Text.Trim = txtConfirmPassword.Text.Trim Then
            showmessage("Password doesn't match.", lblErrorData1)
            txtNewPassword.Focus()
            Exit Sub
        End If

        Try

            Dim cmd As New Data.SqlClient.SqlCommand()
            Dim con As New Data.SqlClient.SqlConnection
            con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")

            cmd.CommandText = "Update_SSAProfile_Proc"
            cmd.CommandType = Data.CommandType.StoredProcedure
            cmd.Connection = con

            con.Open()
            cmd.Parameters.Add("@SSAID", Data.SqlDbType.VarChar).Value = txtSSAID.Text.Trim
            cmd.Parameters.Add("@FirstName", Data.SqlDbType.NVarChar, 100).Value = ""
            cmd.Parameters.Add("@LastName", Data.SqlDbType.NVarChar, 100).Value = ""
            cmd.Parameters.Add("@DateOFBirth", Data.SqlDbType.DateTime).Value = "01/01/1999"
            cmd.Parameters.Add("@Address", Data.SqlDbType.NVarChar, 100).Value = ""
            cmd.Parameters.Add("@EmailAddress", Data.SqlDbType.NVarChar, 100).Value = ""
            cmd.Parameters.Add("@Password", Data.SqlDbType.NVarChar, 50).Value = txtNewPassword.Text.Trim
            cmd.Parameters.Add("@Document1", Data.SqlDbType.NVarChar, 500).Value = ""
            cmd.Parameters.Add("@Document2", Data.SqlDbType.NVarChar, 500).Value = ""
            cmd.Parameters.Add("@Document3", Data.SqlDbType.NVarChar, 500).Value = ""
            cmd.Parameters.Add("@FormName", Data.SqlDbType.NVarChar, 100).Value = Me.Title.ToString
            cmd.Parameters.Add("@Mode", Data.SqlDbType.NVarChar, 20).Value = "UpdatePassword"

            cmd.ExecuteNonQuery()

            showmessage("Your Password has been updated.", lblErrorData1)

        Catch ex As Exception
            showmessage("Please try again later.", lblErrorData1)
        Finally
            con.Close()
            con.Dispose()
        End Try
    End Sub
End Class