Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'TotalPercorreNome'

\\WINDOWS-PD-0001.FS.LOCAWEB.COM.BR\WNFS-0002\ARQUIVOSDEORL1\WEB\ADDITIONAL\../inc_funcao.asp, line 127