Microsoft VBScript runtime error '800a0009'

Subscript out of range: '10'

/Online_Curriculum/department_list.asp, line 89