Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[string: "4"]'

/functions/fun_urlcontrol.asp, line 8