error '800a000d' Type mismatch:

tenho um sistema que gera boletos mensalmente para meus clientes.

Bom o sistema funcionava certinho atpe que a empresa responsável pela hospedagem efetuou uma manutenção e ele agora dá erro, porem eles não quer se responsabilizar.

erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'adZero'

/admin/frame_pagamento_cobranca.asp, line 51

linha 51:

MesHoje = adZero(Month(Now()), 2)

alguém pode ajudar ?

obs.: procurei no fórum, mas os itens que achei não me ajudou