Microsoft VBScript runtime error '800a000d'

Hej Jeg bruger en kalender funktion som tilsyneladende er gået i ged!

jeg får følgende fejl...


Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CDate'

/event_calender/default.asp, line 416


--------------------------------------------------
Nedenfor kan i se udsnit af script!

navmonth = request.querystring("month")
navyear = request.querystring("year")

If navmonth = "" Then
    navmonth = Month(Date)
End If

If navyear = "" Then
    navyear = Year(Date)
End If

select case navmonth
case 1 : md="jan"
case 2 : md="feb"
case 3 : md="mar"
case 4 : md="apr"
case 5 : md="maj"
case 6 : md="jun"
case 7 : md="jul"
case 8 : md="aug"
case 9 : md="sep"
case 10 : md="okt"
case 11 : md="nov"
case else : md="dec"
end select

datoen = CDate(1 & " " & md & " " & navyear)
firstday = Weekday(datoen, vbMonday)
firstDate = 1    'find så månedslængden
datoen = dateadd("m",1,datoen) 'gå til 1. i næste måned
datoen = dateadd("d",-1,datoen) 'gå en dag tilbage
lastDate = datepart("d",datoen) 'så lang er måneden

lastMonth = navmonth - 1
lastYear = navyear
If lastMonth < 1 Then
    lastMonth = 12
    lastYear = lastYear - 1
End If

nextMonth = navmonth + 1
nextYear = navyear
If nextMonth >12 Then
    nextMonth = 1
    nextYear = nextYear + 1
End If


dateCounter = 1
weekCount = 1

DateEnd = lastDate
DateBegin = firstDate


Er der nogle der kan se fejlen???

Håber på hjælp