(Resolvido) Erro ao deletar

[Thiago Top]

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 Julho 16, 2008 por Thiago Top

[jow]

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

[Thiago Top]

Ixi, o erro continua o mesmo

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

Permissão negada

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

[]s

[jow]

você está passando o id ??

[Thiago Top]

Sim.

Esse script sempre funcionou, comecou a dar essa mensagem de erro a partir do momento em que

eu migrei a minha pagina do windows server 2000 para o server 2003.

O que sera ein?

[jow]

estranho, isso ... está testando na sua máquina ???

[Thiago Top]

Estou testando do proprio servidor

[Thiago Top]

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

[Notax]

Tente assim:

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

[]'s Notax

Editado Julho 15, 2008 por Notax

[jow]

Bom dia, como q você está passando o seu id posta ae ... a página onde você passa o valor do id !!!

[raphanasc]

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

[Thiago Top]

Agora não esta dando nenhum erro, inclusive é finalizado o meu script

"Cadastro removido com sucesso!!"

Mas não esta removendo do banco, como eu dou um eco na tela para ver se ele esta

pegando a variavel?

[jow]

Legal meio caminho andado hauhuahua .... echo no ASP só no PHP kkkk ...

response.write(SQL)    response.end

... Posta como está sua página que deleta os registro ai

[raphanasc]

posta qual a string impressa quando você da

response.write(sql)
response.end()

[Thiago Top]

Boa tarde,

Funcionou, mas o problema não foi identificado, mas o importante é que esta funcionando.

Obrigado pela ajuda pessoal.

[]s, Thiago

[Thiago Top]

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