Erro no delete (FSO)

[Michel_ 0]

Rapaziada, é o seguinte, fiz um sistema para deletar imagens do servidor , ele funciona perfeitamente no meu pc, mas quando coloco no servidor não funciona.

 

O seguinte erro aparece:

 

Microsoft VBScript runtime error '800a0034'

 

Bad file name or number

 

/admin/del.asp, line 18

 

 

código:

 

<!--#include file="db.asp"--><% id = Request.Querystring("id")Set ObjRs = ObjConn.Execute("SELECT *FROM carro WHERE id="&id)Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Criar objeto FSO para deletar  arqDel = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_1")  arqDel2 = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_2")  arqDel3 = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_3")  arqDel4 = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_4") objFSO.DeleteFile arqDel, True objFSO.DeleteFile arqDel2, True objFSO.DeleteFile arqDel3, True objFSO.DeleteFile arqDel4, TrueObjConn.Execute("DELETE *FROM carro WHERE id="&id) 'Exclui do DBSet objFSO = Nothing 'Fecha ObjetoSet ObjRs = Nothing response.Redirect("exclui.asp?msg=exclui")	  %>

O que será que acontece?

[-_KIKO_- 0]

Ao invés de utilizar caminhos externos arqDel = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_1") arqDel2 = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_2") arqDel3 = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_3") arqDel4 = "http://www.autoveis.com.br/fotos/"&ObjRs("foto_4")utilize caminhos internos (físicos)como d:\websites\automoveis.com.br\fotos\nomedafoto.jpgentende?Se você nao sabe o caminho fisico do seu servidor utilize o response.write request.servermappath(".")Dai utilize apenas caminhos fisicosAte mais

[Michel_ 0]

olá KIKO , usei caminho fisico, contia dando erro, e na minha maquina roda perefeitamente, ja testei em dois servidores e nada.

[Azevedo 0]

Cara esse erro é de permissão....olha como esta a configuração do servidor....se realmente o usuario tem a posibilidade de fazer o que você quer....tem que da acesso.....no seu computador da certo pq você esta logado com admin

[Salgado 4]

Mostre como está seu código atual. Como o KIKO disse deve-se usar o caminho físico e não o virtual do arquivo.

[Michel_ 0]

A pasta no servidor ja esta com a permissão de leitura e escrita..

 

Mudei o caminho .:

 

mas ta dando o mesmo erro, como seria com o server.mapath?

 

<% On error resume nextid = Request.Querystring("id")Set ObjRs = ObjConn.Execute("SELECT *FROM carro WHERE id="&id)Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Criar objeto FSO para deletar  arqDel = "https://ssl197.locaweb.com.br/autoveis/fotos/"&ObjRs("foto_1")  arqDel2 = "https://ssl197.locaweb.com.br/autoveis/fotos/"&ObjRs("foto_2")  arqDel3 = "https://ssl197.locaweb.com.br/autoveis/fotos/"&ObjRs("foto_3")  arqDel4 = "https://ssl197.locaweb.com.br/autoveis/fotos/"&ObjRs("foto_4") objFSO.DeleteFile arqDel, True objFSO.DeleteFile arqDel2, True objFSO.DeleteFile arqDel3, True objFSO.DeleteFile arqDel4, TrueObjConn.Execute("DELETE *FROM carro WHERE id="&id) 'Exclui do DBSet objFSO = Nothing 'Fecha ObjetoSet ObjRs = Nothing response.Redirect("exclui.asp?msg=exclui")	  %>

 

O caminho eu acesso e da certo eu vizualizo as fotos que tem na pasta.

[Azevedo 0]

server.mapath="nomedo arquivo" ' com o diretorio....ex: meu aquivo esta em uma pasta img...ficaria assim...server.mapath="img/nomedoarquivo"

[Salgado 4]

Testa esse:

id = Request.Querystring("id")

Set ObjRs = ObjConn.Execute("SELECT *FROM carro WHERE id="& id &";")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Criar objeto FSO para deletar

 arqDel = Server.MapPath("/autoveis/fotos/"& ObjRs("foto_1"))
 arqDel2 = Server.MapPath("/autoveis/fotos/"& ObjRs("foto_2"))
 arqDel3 = Server.MapPath("/autoveis/fotos/"& ObjRs("foto_3"))
 arqDel4 = Server.MapPath("/autoveis/fotos/"& ObjRs("foto_4"))

If ObjFSO.FileExists(arqDel) Then
objFSO.DeleteFile arqDel, True
End If
If ObjFSO.FileExists(arqDel2) Then
objFSO.DeleteFile arqDel2, True
End If
If ObjFSO.FileExists(arqDel3) Then
objFSO.DeleteFile arqDel3, True
End If
If ObjFSO.FileExists(arqDel4) Then
objFSO.DeleteFile arqDel4, True
End If

ObjConn.Execute("DELETE *FROM carro WHERE id="&id) 'Exclui do DB

Set objFSO = Nothing 'Fecha Objeto
Set ObjRs = Nothing

[Michel_ 0]

É rapaziada estou me debatendo aqui, tenho que entrega o site para o cliente , e esse erro não deixa, agora aparece o erro:na linha 8linha 8: arqDel = Server.MapPath("/autoveis/fotos/"& ObjRs("foto_1"))

[Salgado 4]

QUal erro?

[speedoli 0]

Tente verificar se o Server.MapPath("/autoveis/fotos/"& ObjRs("foto_1")) estah retornando o caminho correto do arquivo, se naum estiver e pq ele não existe ou naum estah recuperando do banco d dados os valores corretos