Server.CreateObject("ADODB.Stream")

pessoal

esses comenados abaixo não funcionam de jeito nenhum em meu novo host

será qeu pode ser algo do host que esteja desabilitado ??

antigamente funcionava em outro host

if hour(time)>8 and hour(time)<22 then
IDProduto="img1"
else
IDProduto="img2"
end if
Set Objstr = Server.CreateObject("ADODB.Stream")
ObjStr.Type = 1 'adtext
ObjStr.Open
Objstr.LoadFromFile Server.MapPath(IDProduto&".gif")
mytextFile = ObjStr.Read
Set ObjStr = Nothing
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment;filename=Imagem"
Response.AddHeader "Content-Length", lenb(mytextFile)
Response.BinaryWrite mytextFile
Response.End