Microsoft VBScript runtime error '800a0009'

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

C:\WEBSITE\MRSH.SE\WWW\BETALA\../functions/shopfunctions.asp, line 83