Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'mid'

/particomuni/scriptMobileFisso.asp, line 8