Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 1]'

C:\WEBSITES\ESSENTIALIBIZA\HTDOCS\Y-ESSENTIALIBIZA-COM\IBIZA-CLUB-TICKETS\../../objects/party-calendar.asp, line 2877