Imports System.Data
Imports System.Data.SqlClient
Partial Class BusinessAssociates_SSA_Home
    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
            If Not Session("SSAID") = Nothing Then
                FillSSADetails()
            End If
        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 & "'"

        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)
            lblName.Text = Dr("SSA_FirstName") & " " & Dr("SSA_LastName")
            lblName1.Text = lblName.Text
            lblAddress.Text = Dr("SSA_ContactAddress")
            lblEmailAddress.Text = Dr("SSA_EmailAddress")
        End If

        con.Close()
        con.Dispose()

    End Sub
End Class