Hjælp til kalender i Web Wiz Forum

Jeg har downloaded en kalender til Web Wiz Forum, men datoer virker ikke!! Har efterhånden forsøgt på deres forum mange gange, men uden resultat....

Er der nogen her som kan hjælpe???

Problemet er at kalenderen ikke viser rigtige dage i forhold til dato/år og derudover virker frem/tilbage funktionen heller ikke.

Koden med datofunktioner er her:
<%
Function GetDay()
    GetDay = 1
End Function

Function GetMonth(strFormat)
    If IsDate("25/" & Request.QueryString("m") & "/" & Year(Date)) = True then
        If strFormat = "MonthName" then
            GetMonth = MonthName(Request.QueryString("m"))
        Else
            GetMonth = Request.QueryString("m")
        End If
    Else
        If strFormat = "MonthName" then
            GetMonth = MonthName(Month(Date))
        Else
            GetMonth = Month(Date)
        End If
    End If
End Function

Function GetYear()
    If Request.QueryString("y") > "" then
        GetYear = Request.QueryString("y")
    Else
        GetYear = Year(Date)
    End If
End Function

Function GetCalendarDate
    GetCalendarDate = GetMonth("Number") & "/" & GetDay() & "/" & GetYear()
End Function

Function GetNextMonth
    If DatePart("d", GetCalendarDate) > 28 then
        GetNextMonth = DateAdd("m", +1, DateAdd("d",-5,GetCalendarDate))
    Else
        GetNextMonth = DateAdd("m", +1, GetCalendarDate)
    End If
End Function

Function GetPreviousMonth
    GetPreviousMonth = DateAdd("m", -1, GetCalendarDate)
End Function

Function GetDaysInMonth(m, y)
    GetDaysInMonth = Day(DateAdd("d", -1, DateSerial(y, m + 1, 1)))
End Function

Function GetWeekdayMonthStartsOn()
    GetWeekdayMonthStartsOn = Weekday(DateAdd("d", -(Day(GetCalendarDate) - 0), GetCalendarDate),0)
End Function

Function GetEvents(m, d, y)
    For i = 1 to UBound(SpecialEvents)
        If InStr(SpecialEvents(i),"[" & m & "/" & d & "]") then
            Response.write(Replace(SpecialEvents(i),"[" & m & "/" & d & "] ","") & "<br />")
        End If
    Next

    If blnShowBirthdays = True then

        strSQL = "SELECT * FROM " & strDbTable & "Author WHERE Month(DOB) = " & m & " AND Day(DOB) = " & d
        set rsCalendar = adoCon.Execute(strSQL)
        do until rsCalendar.EOF
        Response.Write " " & rsCalendar("username") & "'s Bday<br>"
        rsCalendar.MoveNext
        Loop
    End If

    strSQL = "SELECT * FROM " & strDbTable & "Calendar"
    set rsCalendar = adoCon.Execute(strSQL)

    do until rsCalendar.EOF
    If CDate(rsCalendar("end_date")) => CDate(m & "/" & d & "/" & y) and CDate(rsCalendar("start_date")) =< CDate(m & "/" & d & "/" & y) then
        Response.write "<a href=""java script:window.open('calendar_event.asp?ID=" & rsCalendar("ID") &  "','calendar_event','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=400,height=400'); void('');""> " & rsCalendar("Event") & "</a><br>"
    End If
    rsCalendar.MoveNext
    Loop

End Function

Function GetIsEvents(m, d, y)

    strSQL = "SELECT * FROM " & strDbTable & "Calendar"
    set rsCalendar = adoCon.Execute(strSQL)

    do until rsCalendar.EOF
    If CDate(rsCalendar("end_date")) => CDate(m & "/" & d & "/" & y) and CDate(rsCalendar("start_date")) =< CDate(m & "/" & d & "/" & y) then
        GetIsEvents = True
    End If
    rsCalendar.MoveNext
    Loop

End Function
%>

Hvis i ønsker andre filer kan jeg maile dem!!!!