Ugefejl i script

Har et script der har virket upåklagligt hele 2006.
Men her når vi er rundet 2007, så giver det mig problemer.

Med mit script herunder, så får jeg af vide at dagen i dag er 8-1-2007

Function weekNr(dtmDate)
    weekNr = DatePart("ww", dtmDate, vbMonday, vbFirstFourDays)
    If weekNr > 52 Then
        If DatePart("ww", int(dtmDate) + 7 , vbMonday, vbFirstFourDays) = 2 Then weekNr = 1
    End If
End Function

function Weekday2(dtmDate)
    datenr = 0
    if Weekday(dtmDate) = 1 then
        datenr = 7
    else
        datenr = Weekday(dtmDate)-1
    end if
    Weekday2 = datenr
end function

Function WeekStart(ugenr, aar)
    WeekStart = DateAdd( "ww", ugenr, "01-01-" & aar )
    if NOT weekNr(WeekStart) = ugenr then
        if weekNr(WeekStart) > ugenr then
            WeekStart = DateAdd( "ww", ugenr-(weekNr(WeekStart)-ugenr), WeekStart)
        else 'weekNr(WeekStart) < ugenr
            WeekStart = DateAdd( "ww", ugenr+(weekNr(WeekStart)-ugenr), WeekStart)
        end if
    end if
   
    MyWeekday = Weekday2(WeekStart)
    if NOT MyWeekday = 1 then
        WeekStart = Dateadd("d",1-MyWeekday,WeekStart)
    end if
End Function

myweek = weekNr(Day(Now) & "-" & Month(Now) & "-" & Year(Now))
myYear = Year(Now)
thisweek = WeekStart(myweek,myYear)

response.write thisweek