Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'curDay'

/zj/inc/funcs_calendar.asp, line 328