'*** Picture ***'
Dim ImgPic As Image = DirectCast(e.Row.FindControl("ImgPic"), Image)
If Not IsNothing(ImgPic) Then
ImgPic.ImageUrl = e.Row.DataItem("FilePath")
End If
Protected Sub Page_load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
Connect_server()
If (Not (IsPostBack)) Then
Dim sqlSelect As String = ""
Dim DSW As DataSet
If Request.QueryString("group") <> "" Then
v_sql = " EXEC WBI1000_Q"
v_sql += " @ITYPE ='I3',@GROUP = '" & Request.QueryString("group") & "'"
SqlDataAp = New SqlDataAdapter(v_sql, nDBCON.sys_SqlConnection)
SqlDataAp.Fill(DSW, "WBTOPIC")
GridView1.DataSource = DSW.Tables("WBTOPIC")
GridView1.DataBind()