Erro No Upload

[Guest Eloisa]

Boa noite amigos!

Estou com o seguinte problema.... No meu micro eu consigo fazer o upload de 4 imagens juntas cada uma com mais ou menos 57kb.

Porém quando o site está no ar só consigo fazer o upload de 3 fotos apenas, se eu tentar fazer o upload de 4 imagens dá o seguinte erro:

Request object error 'ASP 0104 : 80004005'

Operation not Allowed

/imobiliaria/upload_form2.asp, line 161

Não sei mais o que fazer, já passei um email para o servidor e até agora eles tb não encontraram o erro.

Segue abaixo meu código:

<!-- #include file = "upload_funcoes.asp" -->

<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

cod = UploadRequest.Item("cod").Item("Value")

nome = UploadRequest.Item("nome").Item("Value")

localizacao = UploadRequest.Item("localizacao").Item("Value")

informacao = UploadRequest.Item("informacao").Item("Value")

terreno = UploadRequest.Item("terreno").Item("Value")

construcao = UploadRequest.Item("construcao").Item("Value")

preço = UploadRequest.Item("preço").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto3").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto4").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")

caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")

caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

'nome_foto = Replace(caminho_foto,".","_"& rndit &".")

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

foto2 = UploadRequest.Item("foto2").Item("Value")

foto3 = UploadRequest.Item("foto3").Item("Value")

foto4 = UploadRequest.Item("foto4").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagem/")

nome_foto = "/"&nome_foto

nome_foto2 = "/"&nome_foto2

nome_foto3 = "/"&nome_foto3

nome_foto4 = "/"&nome_foto4

' pasta + nome dos arquivos

cfoto = "imagem" + nome_foto

cfoto2 = "imagem" + nome_foto2

cfoto3 = "imagem" + nome_foto3

cfoto4 = "imagem" + nome_foto4

' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

if foto2 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)

For i = 1 to LenB(foto2)

MyFile.Write chr(AscB(MidB(foto2,i,1)))

Next

MyFile.Close

end if

if foto3 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)

For i = 1 to LenB(foto3)

MyFile.Write chr(AscB(MidB(foto3,i,1)))

Next

MyFile.Close

end if

if foto4 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)

For i = 1 to LenB(foto4)

MyFile.Write chr(AscB(MidB(foto4,i,1)))

Next

MyFile.Close

end if

' Conecta-se ao Banco de Dados

'url_conexao = Server.MapPath("dados.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("dados.mdb")

' cadastra os dados no banco de dados

sql = "Insert into fotos (cod,nome,localizacao,informacao,terreno, construcao,preço,foto,foto2,foto3,foto4) values ('"& cod &"','"& nome &"','"& localizacao &"','"& informacao &"','"& terreno &"','"&construcao &"','"& preço &"','"& cfoto &"', '"& cfoto2 &"','"& cfoto3 &"','"& cfoto4 &"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "<b><font size=3>Dados Cadastrados com Sucesso!</font></b>"

' Redireciona após 5 segundos

response.write "<br><br>Você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='5; url=default.asp'/>"

%>

<br>

</td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

</table>

<p>&nbsp;</p>

</body>

</html>

<%

end if

%>

O que pode ser?

Desde já agradeço!

Eloisa Dias

[.Andreia.]

http://www.hipermasters.com.br/forum/index...indpost&p=13994

[Guest Visitante]

Oi Andreia!

O servidor que eu hospedo meu site não conseguiu encontrar esse arquivo metabase.xml no qual o link que você me passou se refere.

[Elo]

A linha 161 onde está dando erro é a linha:

RequestBin = Request.BinaryRead(byteCount)