Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'TotalPercorreNome'

/bjai/include/inc_funcao.asp, line 238