Error '80020009'

[meru-kun]

Vereis, tengo un problema un tanto extraño. Cuando pruebo un código en mi IIS local, no tengo ningún problema.

Sin embargo, cuando lo hago en el servidor, me salta:
error '80020009'
/inc_admin_func.asp, line 442

El codigo en cuestión, con la linea de error son estos:
dim vA(2)
vA(0) = 2005
vA(1) = 2004
vA(2) = 2003
for i=0 to 2
anyo = vA(i)
response.write "<tr><td colspan=2><font class=e>"&anyo&"</font></td></tr>"
strSQL = "SELECT VISTO, MES FROM WALLPAPERS WHERE ANYO="&anyo&" ORDER BY MES ASC"
set mr = mymensconn.execute(strSQL)
do while not mr.eof or mr.bof
response.write "<tr><td width=5>&nbsp;</td>"
response.write "<td><font class=n><b>"&wallM(mr("MES"))&"</b>: "&mr("VISTO")&" descargas.</font>"
response.write "</td></tr>"
mr.movenext
loop
mr.close
set mr = nothing
response.write "</tr>"
next

¿Alguna idea de qué está pasando? Gracias