Microsoft VBScript runtime error '800a0009'

Subscript out of range: '0'

/PROC/ordina.asp, line 661