Quanti giorni

Uno script che permette di calcolare il numero di giorni tra due date:

<% 
Oggi = Now() 
DataFinale = CDate ("31/7/2002") 
GiorniRestanti = DateDiff("d", Oggi, DataFinale) 
Response.Write "Al " & DataFinale & "mancano 
" & GiorniRestanti & "giorni"
%>