start date end date not working

ihaveaoneposttheniwanttosetforthispostdisplaydateanddisplayoffdatefrombackendwhenicreatepostforextitlephotoscontentdisplaystartdateanddisplayenddateinputthensaveitdisplaystartdate: 2015/10/2
displaystartdate: 2015/10/5
andfrontendwhendate 2015/10/2 mypostautomaticallyshowupandwhendateis 2015/10/5 mypostautomaticallyoff

ProtectedSub BindData(dt As Data.DataTable, SiteID AsLong)
If dt.Rows.Count > 0Then
litList.Text = ""For i AsInteger = 0To dt.Rows.Count - 1Dim Title AsString = dt.Rows(i).Item("Title").ToString
Dim Targets AsString = ""Dim Targetsdes AsString = ""Dim ImgURL AsString = ""Dim ImgURLs AsString = ""Dim now As DateTime = DateTime.Now
Dim startTime As DateTime = dt.Rows(i).Item("DisplaySDate").ToString()
Dim endTime As DateTime = dt.Rows(i).Item("DisplayEDate").ToString()
If ((startTime <= DateTime.Now) And (endTime >= DateTime.Now)) ThenMe.Visible = TrueElseMe.Visible = FalseEndIfDim URL AsString = dt.Rows(i).Item("URL").ToString
If URL = ""Then
URL = "#"ElseIf dt.Rows(i).Item("Targets").ToString = TrueThen
Targets = " target=""_blank"" "
Targetsdes = Resources.RsAll.OpenNW
EndIfEndIfIf dt.Rows(i).Item("Files").ToString <> ""Then
ImgURL = ViewState("Roots") & "WebTools/Thumbnail.ashx?Siteid="& SiteID & "&MmmID=99&fd=Benner_Files&NW=696&NW=249&Pname="& dt.Rows(i).Item("Files").ToString
EndIf
litList.Text &= "<li><a href="""& URL & """ title="""& Title & Targetsdes & """"& Targets & "><img src="""& ViewState("Roots") & ""& ImgURL & """ alt="""& Title & """ /></a></li>"'==================================
litLists.Text &= "<li>"
litLists.Text &= "<div>"If dt.Rows(i).Item("Files").ToString <> ""Then
ImgURLs = ViewState("Roots") & "WebTools/Thumbnail.ashx?Siteid="& SiteID & "&MmmID=99&fd=Benner_Files&NW=71&NW=71&Pname="& dt.Rows(i).Item("Filess").ToString
EndIf
litLists.Text &= "<a href=""#"" title="""& Title & """><img src="""& ViewState("Roots") & ""& ImgURLs & """ alt="""& Title & """ title="""& Title & """/></a>"
litLists.Text &= "<h4>"& dt.Rows(i).Item("contents").ToString & "</h4>"
litLists.Text &= "</div>"
litLists.Text &= "</li>"NextElseMe.Visible = False 
EndIf
dt.Dispose()
EndSub