Räkna ner till datum

<%
 dim strdagar
 strdagar = datediff("d", date, "2002-06-20")
 response.write strdagar
%>

kommer att skriva ut 7
ngt sånt kanske...

hur gör man för den t.ex ska skriva ut timmar till kl 2 på den dagen oxå?

<%
 dim strdagar
 strdagar = datediff("h", date, "2002-06-20")
 response.write strdagar
%>

men då skriver den ju inte ut dagar och den skriver ur hu många timmar d är till 00.00 o inte till 14.00.

<% response.write datediff("h", now(), "2002-06-20 14:00:00") %>

fortfarande skriver den bara ut timmar och inte dagar och timmar till datumet

<%
datumet = 2002-10-24 14:00:00
dagar = datediff("d", datumet, now())
timmar = datediff("h", right(datumet, 9), now())
response.write "Det är " & dagar & " och " & timmar & "kvar!"
%>

<% @language = vbscript LCID = 1053 %>
<% Option Explicit

'Variables
Dim DateAndTime, NameOfEvent, Font, FontSize, DaysLeft, HoursLeft, MinutesLeft, SecondsLeft

'Settings
DateAndTime = #2005-12-12 16:32:15#
NameOfEvent = "Quid fyller 25 år"
Font = "verdana"
FontSize = 2

Response.Write "<FONT FACE="& Font &" SIZE="& FontSize &">"
DaysLeft = DateDiff("d", now(), DateAndTime)
If DaysLeft < 2 Then
	HoursLeft = DateDiff("h", now(), DateAndTime)
	If HoursLeft < 2 Then
		MinutesLeft = DateDiff("n", now(), DateAndTime)
		If MinutesLeft < 2 Then
			SecondsLeft = DateDiff("s", now(), DateAndTime)
			If SecondsLeft < 1 Then
				Response.Write NameOfEvent &" pågår nu."
			Else
				IF SecondsLeft = 1 Then
					SecondUnit = " sekund"
				Else
					SecondUnit = " sekunder"
				End If
				Response.Write "Det är "& SecondsLeft & SecondUnit &" kvar till "& NameOfEvent &"."
			End If
		Else
			Response.Write "Det är "& MinutesLeft &" minuter kvar till "& NameOfEvent &"."
		End If
	Else
		Response.Write "Det är "& HoursLeft &" timmar kvar till "& NameOfEvent &"."
	End If
Else
	Response.Write "Det är "& DaysLeft &" dagar kvar till "& NameOfEvent &"."
End If
Response.Write "</FONT>"
%>

Duger detta då?