Hello,



I'm trying to display mulitple recordsets in a calendar based on a date 

field in Access, but when multiple entries are in the database for the 

same date I get this error message:



Subscript out of range: '32'



=========This is the code==========

intCount= 0

   

' populate array with days of month

   

do while not rs.EOF

if Day(rs("dte")) = intCount + 1 then 

     dictDte(intCount, 1) = rs("title")

       rs.Movenext

else

     dictDte(intCount, 1) = ""

End If

     dictDte(intCount, 2) = intCount + 1

     intCount = intCount + 1

loop



I'm new to ASP/VBScript, so any help is appreciated



Thanks,



Scott