Nedtælling i ASP?

Here is a simple script that gives the amount of time remaining until the year 2002.
<%
CountdownDate = #1/1/2002 12:00:00AM#
If Date >= CountdownDate Then
    Response.Write \"Happy New Year!\"
    Response.End
End If

theDate    = Now
DaysLeft    = DateDiff(\"d\",theDate,CountdownDate) - 1
theDate    = DateAdd(\"d\",DaysLeft,theDate)
HoursLeft  = DateDiff(\"h\",theDate,CountdownDate) - 1
theDate    = DateAdd(\"h\",HoursLeft,theDate)
MinutesLeft = DateDiff(\"n\",theDate,CountdownDate) - 1
theDate    = DateAdd(\"n\",MinutesLeft,theDate)
SecondsLeft = DateDiff(\"s\",theDate,CountdownDate) - 1
%>

<HTML>
<BODY>
According to the system time of: <%= Now %>
<p>
There are <%= DaysLeft%> Days, <%= HoursLeft %> Hours,
<%= MinutesLeft %> Minutes, <%= SecondsLeft %> Seconds
left until the year 2002.
</BODY>
</HTML>

The Result is:
Happy New Year

Tak