Microsoft VBScript runtime error '800a0009'

Subscript out of range: '1'

/direct_Ad1Link.asp, line 88