Hi all,

I have an issue with my calendar where if I select the next month (feb) my calendar gives the following error message.

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '32'
/ccl/default.asp, line 156

I am able to view all other months with the exception of moving from january to february. The following code is from the where the error message says it is occuring. Any help would be appreciated.

do until objRs.EOF
    if day(objRs("dte")) = tmpDay then
            lnk = "<a href=diary_view.asp?id=" & objRs("id") & " style='color:" & objRs("colour") & _
                "; background:" & objRs("BgColour") & ";" & "font-family:verdana;font-size:8pt;line-height:15px' title='" & cdate(objRs("dte")) & "'>" &_
                objRs("text_field") & "</a>"

            dictDte(intCount-1, 1) = dictDte(intCount-1, 1) & "<br>" & lnk
               tmpDay = day(objRs("dte"))
            objRs.Movenext
    Else
        if Day(objRs("dte")) = intCount + 1 then
            lnk = "<a href=diary_view.asp?id=" & objRs("id") & " style='color:" & objRs("colour") & _
                "; background-color:" & objRs("BgColour") & ";" & "font-family:verdana;font-size:8pt;line-height:15px' title='" & cdate(objRs("dte")) & "'>" &_
                objRs("text_field") & "</a>"
            dictDte(intCount, 1) = lnk
            tmpDay = day(objRs("dte"))
            objRs.Movenext
            intCount = intCount + 1
        Else
            dictDte(intCount, 1) = " "
            intCount = intCount + 1
        End If
        dictDte(intCount, 2) = intCount + 1 <------Line 156
    End if
loop

again, any help, please.

Thanks

Mike

__________________
Mike

I have EXACTLY the same problem....I hope you/we get an answer!!

Yes found problem, unfortunately it has to do with calendar having problem with SQL. Set back to using MS Access and it is working fine for me.
My guess it is february having only 28 days. Calendar set to add or subtract a day and it is trying to add a day to a month it thinks has 31 days.

Mike