Imports System.Data
Imports System.Data.SqlClient
Partial Class BusinessAssociates_SSA_ViewReferrals
    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_ReferralID='" & Session("SSAID").ToString & "' And  SSA_IsDeleted='0' "
        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
        adp.SelectCommand = cmd
        adp.Fill(ds)

        '     If ds.Tables(0).Rows.Count > 0 Then
        gvReferral.DataSource = ds
        gvReferral.DataBind()
        ' End If

        con.Close()
        con.Dispose()

    End Sub

    Protected Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Response.Redirect("SSA_AddReferrals.aspx")
    End Sub
End Class