Id = Request.QueryString("Id")
Dim myConnection As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
Dim cmd As New SqlCommand("SELECT Username,Topic,Message FROM Topic where Id ='" & _
Request.QueryString("Id") & "'", myConnection)
cmd.CommandType = CommandType.Text
cmd.Connection.Open()
Dim myDA As New SqlDataAdapter(cmd)
Dim ds As New DataSet()
myDA.Fill(ds, "Topic")
username1 = ds.Tables(0).Rows(0).Item(0)
imgProfil.ImageUrl = "~/Handler1.ashx?image=" & username1
MyAccordion.DataSource = ds
MyAccordion.DataBind()
cmd.Connection.Close()
myConnection.Close()
myConnection.Dispose()
Dim cmd1 As New SqlCommand("SELECT Username,Comment FROM Comments where Id ='" & _
Request.QueryString("Id") & "'" ...
Go to the complete details ...