Imports System.Data
Imports System.Data.SqlClient
Partial Class BusinessAssociates_CRM_Discussion
    Inherits System.Web.UI.Page
    Dim qid As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        qid = Request.QueryString("qidCRM")
        fillChild(qid)
        BtnChildClose.Attributes.Add("onclick", "javascript:if(popupclose()){return true; }")
    End Sub

    Protected Sub fillChild(ByVal qryid As String)
        Dim cn As New System.Data.SqlClient.SqlConnection(ConfigurationManager.AppSettings("Connection4Voffice"))
        Dim objAdapter As SqlDataAdapter
        Dim ObjDS As DataSet

        cn.Open()

        Try
            objAdapter = New SqlDataAdapter("Select_CRMDiscussionThreadByDiscussionID_Proc", cn)
            objAdapter.SelectCommand.CommandType = CommandType.StoredProcedure

            objAdapter.SelectCommand.Parameters.Add(New SqlParameter("@DiscussionID", SqlDbType.VarChar))

            objAdapter.SelectCommand.Parameters("@DiscussionID").Value = qryid

            ObjDS = New DataSet
            objAdapter.Fill(ObjDS, "DiscussionThread")

            If ObjDS.Tables(0).Rows.Count > 0 Then
                txtDiscussion.Text = ObjDS.Tables(0).Rows(0).Item("V_CRM_Discussion")
            End If

        Catch ex As Exception

        Finally
            cn.Close()
            cn.Dispose()
        End Try
    End Sub
End Class