curdate = Date
curjj = day(Date)
curmm = Month(date)
curyy = Year(date)
curdat1=curjj & "/" & curmm & "/" & curyy
curdat= curyy & right(100+curmm,2) & right(100+curjj,2)
curday = datepart("w",date)
dim tbJours(7)
tbJours(0) = "Dimanche"
tbJours(1) = "Lundi"
tbJours(2) = "Mardi"
tbJours(3) = "Mercredi"
tbJours(4) = "Jeudi"
tbJours(5) = "Vendredi"
tbJours(6) = "Samedi"
mydate = tbJours(curday-1) & ", le " & curdat1 
myTitle = ""
if right(curdat,4) > "1215" then
   myTitle = "Joyeux Noël et bonne année " & curyy+1 & " !"
end if  
if right(curdat,4) > "1225"  then
   myTitle = "Meilleurs voeux pour " & curyy+1 & " !"
end if  
if right(curdat,4) < "0120" then
   myTitle = "Bonne année !"
end if
document.write (mydate & "<br>" & mytitle)