Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'mid'

/rutas.asp, line 30