เช็คว่าเป็นกระทู้วันนี้แล้วดึงรูปมา show ใน datalist ทำอย่างไร ช่วยหน่อย

  For i = 0 To DataList1.Items.Count
            _baseDate = FormatDateTime(DataBinder.Eval(e.Item.DataItem, "date_post"))
            _chengDate = CDate(_baseDate.Date)
            _nowDate = Now.Date
            If _chengDate = _nowDate Then

                DataList1.Items("Image1").Enabled = False
                'Dim ImgPic As Image
                'ImgPic.ImageUrl = "~/picture/icon_new (1).gif"
                '    If Not IsNothing(ImgPic) Then
                '        ImgPic.ImageUrl = "~/picture/icon_new (1).gif"
                '    End If
            End If

        Next