<% Dim DateToCompareTo DateToCompareTo = #10/9/2007# 'DateToCompareTo = CDate("January 1, " & (Year(Now()) + 1)) If Month(Now()) = 1 And Day(Now()) = 1 Then %>

Happy New Year!!!

<% Else %>

Countdown to <%= DateToCompareTo %>!
There are <%= DateDiff("d", Now(), DateToCompareTo) %> days left till the date <%= Year(DateToCompareTo) %>!

<% End If %>

If you are curious it is currently <%= Time() %> on <%= Date() %>.