Microsoft VBScript runtime error '800a0009'

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

/cgi-sys/2afriend.asp, line 5