corretto sucsa, però non mi da sempre errore

Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente

/miosito/Straordinario1/Mese.asp, line 199