Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Erro ao deletar


Thiago Top

Pergunta

Olah,

estou tentando deletar um arquivo utilizando asp

no meu servidor windows 2003, e esta sendo gerado o seguinte erro:

Erro de tempo de execução do Microsoft VBScript erro '800a0046'

Permissão negada

/adm/JAgenda-cinemager-rem-fim.asp, line 33

A parte do meu codigo que deleta é:

id = Request.QueryString ("id")

     SQL = "Select * from NOME_TABELA where id = "& id &" "
     Set RS = conn.Execute (SQL)

     if RS.EOf = false then '--- b

      arquivo = RS("Foto")

     if arquivo <> "" then '--- c

    '  Caminho
    '  ******* 
       caminho = Session ("caminho")

    '---------------------------------- deletando arquivos ---------------------------------
     Set objArquivos = Server.CreateObject("scripting.FileSystemObject")
     Set Arquivo = objArquivos.GetFile(caminho & arquivo)
     Arquivo.Delete 'LINHA 33
     Set Arquivo = Nothing
     Set objArquivos = Nothing 
    '--------------------------------------------------------------------------------------- 
    
    end if '--- c  

    end if '--- b


     SQL = "Delete from Agenda where id = "& id &" "
     Set RS = conn.Execute (SQL)  
   
   
%>

Editado por Thiago Top
Link para o comentário
Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

  • 0

tenta assim:

id1 = Request.QueryString ("id")

     SQL = "Select * from NOME_TABELA where id = "& id1 
     Set RS = conn.Execute (SQL)

     if RS.EOf = false then '--- b

      arquivo = RS("Foto")

     if arquivo <> "" then '--- c

    '  Caminho
    '  ******* 
       caminho = Session ("caminho")

    '---------------------------------- deletando arquivos ---------------------------------
     Set objArquivos = Server.CreateObject("scripting.FileSystemObject")
     Set Arquivo = objArquivos.GetFile(caminho & arquivo)
     Arquivo.Delete 'LINHA 33
     Set Arquivo = Nothing
     Set objArquivos = Nothing 
    '--------------------------------------------------------------------------------------- 
    
    end if '--- c  

    end if '--- b


     SQL = "Delete * from Agenda where id = "& id1 
     Set RS = conn.Execute (SQL)  
   
   
%>
Caso não de certo poste a página q antecede essa, e o q você quer excluir todos os dados da tabela ou apenas o campo Foto se for apenas o campo altere essa linha
SQL = "Delete * from Agenda where id = "& id1
para
SQL = "Delete foto from Agenda where id = "& id1

, pois não axo viável deletar apenas o campo ... Qualquer coisa posta ae ... Abraçossss

Link para o comentário
Compartilhar em outros sites

  • 0

Agora esta dando outro erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

[Microsoft][ODBC SQL Server Driver][sql Server]Line 1: Incorrect syntax near '='.

/adm/JAgenda-cinemager-rem-fim.asp, line 18

SQL = "Select * from Agenda where id = "& id1

Set RS = conn.Execute (SQL) 'Linha 18

Link para o comentário
Compartilhar em outros sites

  • 0

O erro é de permissao, com a migração da aplicação pode ser que a pasta que contenham as fotos não te da permissao de deletar, sendo assim o erro de permissao o seu primeiro script esta certo, pois como você mesmo falou tudo funcionava até a migração.

De permissao de deletar ao usuario que volta a funcionar.

ABS

Link para o comentário
Compartilhar em outros sites

  • 0

Bom dia,

Para o esclarecimento do mesmo ficar mais claro, vou explicar como o codigo voltou a funcionar:

Peguei o codigo que estava no outro servidor, que é exatamente o codigo que estava

dando erro no inicio, aquele postado la em cima, e o meu script simplesmente funcionou.

Funcionou normalmente assim como funcionava antes da migracao de servidores.

Enfim, este para mim é mais um caso obscuro no mundo da informatica.

não tem explicacao.

Obrigado.

[]s, Thiago

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...