Erro no upload

[Elô 0]

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")

preco = UploadRequest.Item("preco").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,preco,foto,foto2,foto3,foto4) values ('"& cod &"','"& nome &"','"& localizacao &"','"& informacao &"','"& terreno &"','"&construcao &"','"& preco &"','"& 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> </p>

 

 

 

</body>

</html>

<%

end if

%>

 

 

O que pode ser?

 

Desde já agradeço!

 

Eloisa Dias

[Patricia 0]

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")arruma o nome das suas variaveis, creio que não seja esse o problema, mas é um erro

[Elô 0]

Obrigada Patricia!Não resolveu não mas realmente já é um erro!

[Elô 0]

A linha 161 onde está dando erro é a linha:RequestBin = Request.BinaryRead(byteCount)