Ugenummer igen, igen

Jeg undre mig over at jeg ikke får dette script til at vise det samme som min outlook kalender.

Min outlook siger at der først er uge 53 i år 2004 og 2009.

men dette script, (på min computer) siger der ligger en uge 53 her: 12/29/2003 - 53 Weekday : 1


<%

    response.write vbMonday & "," & vbFirstFourDays  '2,2

    for i= 0 to 10
        response.write "<br>"
        d = dateserial(2000+i, 12, 20)
        for j=0 to 20
            response.write "<br>" & d & " - " & DatePart("ww", d, vbMonday, vbFirstFourDays) & " Weekday : " & DatePart("w", d, vbMonday, vbFirstFourDays)
            d = dateAdd("d", 1, d)
        Next
    Next
   
%>