holas...
de esta manera puedes saber si tu server soporta o no CDO
Cita: dim objCDO,objCDOConfig,objFields
Set objCDO = CreateObject("CDO.Message")
Set objCDOConfig = CreateObject("CDO.Configuration")
response.write isobject(objCDO)
response.write isobject(objCDOConfig)
de todas maneras , comenta el on error resume next y ve que error te arroja.