Microsoft VBScript runtime error '800a0009'

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

D:\INETPUB\WEBS\ZAZOOMEU\ULTIMA-NEWS\../ultima-ora/blogs/inc/asp.asp, line 362