Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'i'

/shopdisplayproducts.asp, line 1005