顯示出三天內資料 附上NEW的圖示

Protected Sub ListView1_ItemDataBound(sender As Object, e As System.Web.UI.WebControls.ListViewItemEventArgs) Handles ListView1.ItemDataBound
        If e.Item.ItemType = ListViewItemType.DataItem Then
            Dim lvdi As ListViewDataItem = CType(e.Item, ListViewDataItem)
            Dim drv As DataRowView = CType(lvdi.DataItem, DataRowView)
            Dim Image1 As Image = CType(e.Item.FindControl("Image1"), Image)  
            Dim newsday As Integer = DateDiff(DateInterval.Day, Convert.ToDateTime(drv("online_date")), Today)
            If newsday <= 3 Then
                With Image1
                    .Visible = True
                End With
            End If
        End If
End Sub