If-sats med datumproblem

Felmeddelande?
Vad ligger i result2("NewsEndDate"?

:)

Kör detta:

If result2("NewsEndDate") > Date() AND NOT len(result2("NewsEndDate")) = 0  Then

If cdate(result2("NewsEndDate")) < date() and result2("NewsEndDate") <> ""  then

hmm, inget funkade, NewsEndDate är ett datumfält som innehåller ett datum alt är tomt i en Accessdatabas.

LarsGs svar gav detta:

Körningsfel i Microsoft VBScript fel '800a005e' 
Ogiltig användning av Null: 'cdate' 

/projekt/show_news.asp, rad 74

Ekströms gav ingen skillnad alls!

nått mer förslag?

Du kan inte köra en cdate på någonting som är tomt, då är det inget datum...
Jag skulle delat upp det du vill göra i två delar men det finns säkert en bättre lösning...

:)

If NOT cdate(recset-kod) is null Then
' Här har du din kod
End If

eller?

:)

Thomasa: Mitt förslag skulle inte göra nån skillnad eftersom jag bara snyggade till koden lite.

Men felet är alltså att datumet är null. Då är det bara ändra det i databasen.

Trexter: Isf.: If not IsNull(result2("NewsEndDate")) Then

If result2("NewsEndDate") > date() and result2("NewsEndDate") <> "" then 

    'Skriv ut nyheten i listan
Else
    'Skriv ut nyheten rödmarkerad i listan
End If

Sådär ser det ut nu.,

men den skriver ut de som är tomma i rödmarkering också!

redmark = false
if not isnull(rs2("NewsEndDate")) then
   if cdate(result2("NewsEndDate")) < date() then redmark = true
end if
if redmark then
'skriv nyhet rödmarkerad
else
'skriv nyhet som vanligt
end if

bortred. :)

tackar bugar och bockar :)