7 replies to this topic

[Elo]

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>&nbsp;</p>



</body>
</html>
<%
end if
%>


O que pode ser?

Desde já agradeço!

Eloisa Dias

[Generation]

Verificou junto ao servidor se voce tem permissao de escrita nessa pasta no servidor ?

[Elo]

Olá!

Já verifiquei sim!

Eles falaram que deram essas permissões pra mim.

[Elo]

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

RequestBin = Request.BinaryRead(byteCount)

[ibreak]

Oi Elo também estou com o mesmo problema quando tento enviar um arquivo de vídeo. Eu estou usando o componente de envio aspSmartUpload. Já verifiquei também permissão de escrita na pasta e o servidor fala a mesma coisa que eo seu disse... mas o erro continua. Assim que conseguir resolver o meu problema, postarei aqui o que me disseram... blz... abraço.

[Elo]

Obrigada ibreak!

Se eu tb descobrir o erro eu posto aqui!

Abraços!

[leanjo]

meu erro é exatamente esse
por acaso qual seria seu host?
sera que é o mesmo?

[Fernando_Ramos]

esse erro não pode ser devido ao tamanho do arquivo...q pode ser grande??

"ELOISA..VAI TRABALHAR...njs...rs..."