Runtime Error On Asp Calendar To Fix

I get this message when an event is posted to calendar:
Microsoft VBScript runtime error ‘800a0009’

Subscript out of range: ‘1’

/calendar/default.asp, line 294