<% if (CStr(Date()) >=CStr("12/26/" & Datepart("yyyy", date())) and DateDiff("d", Date(), "12/25/" & DatePart("yyyy", Date()))<=0) then
response.Write Cstr(DateDiff("d", Date(), "12/25/" & DatePart("yyyy", Date())+1)) & " Days until Christmas!"
else
response.Write Cstr(DateDiff("d", Date(), "12/25/" & DatePart("yyyy", Date()))) & " Days until Christmas!"
end if %>
