Permission Denied

[Teresacris 0]

Olá, pessoal! Dia de chuva forte no Rio e eu aqui com um belo problema. Esse arquivo é de update e upload de fotos para um site...Não estou conseguindo inserir novas fotos e o erro é de Permissão negada erro na linha 134 que está sinalizada em vermelho e indicada logo abaixo. Segue parte do arquivo....Não consigo enxergar o erro. Alguém pode me ajudar? Continuo meio "burra" em Asp, mas sempre melhorando. Abs a todos e obrigado antecipadamente por qq ajuda. Cristina

 

 

' Conteudo binario dos arquivos enviados
	foto1 = UploadRequest.Item("foto1").Item("Value")
	foto2 = UploadRequest.Item("foto2").Item("Value")
	foto3 = UploadRequest.Item("foto3").Item("Value")
	foto4 = UploadRequest.Item("foto4").Item("Value")
	foto5 = UploadRequest.Item("foto5").Item("Value")
	
	' pasta onde as imagens serao guardadas
	pasta = Server.MapPath("imoveis/")
	nome_foto1 = "/"&nome_foto1
	nome_foto2 = "/"&nome_foto2
	nome_foto3 = "/"&nome_foto3
	nome_foto4 = "/"&nome_foto4
	nome_foto5 = "/"&nome_foto5
	
	' pasta + nome dos arquivos
	cfoto1 = "imoveis/" + nome_foto1
	cfoto2 = "imoveis/" + nome_foto2
	cfoto3 = "imoveis/" + nome_foto3
	cfoto4 = "imoveis/" + nome_foto4
	cfoto5 = "imoveis/" + nome_foto5
	
	' Fazendo o Upload do arquivo selecionado
	if foto1 <> "" then
	Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
	Set MyFile = ScriptObject.CreateTextFile("pasta & nome_foto1")
	For i = 1 to LenB(foto1)
	MyFile.Write chr(AscB(MidB(foto1,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
	
	if foto5 <> "" then
	Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
	___> errro nesta linha [color="#FF0000"]Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)[/color]
	For i = 1 to LenB(foto5)
	MyFile.Write chr(AscB(MidB(foto5,i,1)))
	Next
	MyFile.Close
	end if

[hargon 64]

Acima dessa linha

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)

Informe:

Response.Write pasta & nome_foto5
Response.End

Poste o resultado.

[Teresacris 0]

Acima dessa linha

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)

Informe:

Response.Write pasta & nome_foto5
Response.End

Poste o resultado.

 

 

Oi 'hargon', enquanto aguardava retorno de vcs...entrei em alguns posts e vi que deveria pedir permissão de escrita para upload. Falei com o provedor e eles fizeram lá alguma coisa....Mas como são cinco inserções de fotos será que ficou faltando, pois o erro que estava na linha 134 pulou para a 143 e eu colocque o response write acima dessa linha e não retornou nada apenas esse erro

 

 

Permission denied

 

/home/updateimovel.asp, line 143

 

 

que vai justamente para onde está a inserção de outra foto que imagino não ter permissão de escrita.....será que é isso????

[hargon 64]

Posta a linha 143.

[jrcardozo 4]

verifique se o caminho não está errado(faltando contrabarras, nivel de pasta...)

[Teresacris 0]

Segue bloco de dados ao redor da linha 143 a indicada e em vermelho

 

 

if foto2 <> "" then

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

->linha 143 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

 

verifique se o caminho não está errado(faltando contrabarras, nivel de pasta...)

 

Veriquei tudo, não consigo achar.....fiz algumas alterações de ortografia atualizei e nada....

[xanburzum 169]

verifique se as permissoes estaun todas corretas...

[Teresacris 0]

verifique se as permissoes estaun todas corretas...

 

Uma dúvida: O provedor precisa dar permissão para cada inserção de foto no doc upload????

[hargon 64]

Não, deverá ser dada permissão uma única vez na pasta onde será realizado o Upload da foto.

[Teresacris 0]

Ok já solicitei então. Estou aguardando a confirmação. Informo se conseguir fazer o upload ou se pode ser erro de programação. Obrigada a todos que me ajudaram até aqui.

[hargon 64]

Ok, mas verifique se não há erro no caminho da pasta. A primeira solicitação que fiz, foi justamente para verificar isso.

 

O erro pode ser de permissão, como também pode erro no caminho.

[xanburzum 169]

mas verifique se não há erro no caminho da pasta.

dá um response.write no caminho

pasta & nome_foto2, para ver o k realmente tem, isso pode ser erro no caminho...