Server.CreateObject("ADODB.Stream")

[#Felipe# 0]

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

[hargon 64]

Apresenta alguma mensagem de erro?

[Ted k' 126]

pode ser as permissões!

[#Felipe# 0]

pode ser as permissões!

abre a página de erro de página não encontrada

 

como é esse lance de permissões ?

 

poderia me explicar para que eu tente resolver ?

[hargon 64]

Posta a página de erro toda.

[#Felipe# 0]

A página não pode ser exibida

Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

 

--------------------------------------------------------------------------------

 

Tente o seguinte:

 

Abra a www.superideia.com home page, e procure os links para as informações desejadas.

Clique no botão Atualizar ou tente novamente mais tarde.

 

Clique em Pesquisar para procurar informações na Internet.

Você também pode ver uma lista de sites relacionados.

 

 

 

 

HTTP 500 - erro interno do servidor

Internet Explorer

 

essa é a pagina de erro que abri

[hargon 64]

Desabilita no navegador a Opção "Mostrar mensagens de erro amigáveis" ou algo do tipo... e poste na nova página de erro exibida.