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