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

Permission Denied


Guest MXPBrasil.cjb.net

Pergunta

Guest MXPBrasil.cjb.net

cara, estou com um grande problema.... É o seguinte:

Tenho um BD Access com alguns registros e no Administrador do Site opçºoes para Inserir, Atualizar e Excluir... As duas primeiras funcionam beleza.. Mas o Excluir dá um erro (eu estou hospedando no DWPI.info ou DWWS.com.br )...

O que é isso?

--------------------------------------------------------------

Microsoft VBScript runtime error '800a0046'

Permission denied

/administrador/conteudo_excluir.asp, line 135

--------------------------------------------------------------

A linha 135 é a seguinte:

--------------------------------------------------------------

<%

' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql delete statement

MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

If conteudo_1("FOTO_1") <> "" Then

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

Set Foto_1 = Arquivo_1.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_1")))

Foto_1.Delete

End If

If conteudo_1("FOTO_2") <> "" Then

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

Set Foto_2 = Arquivo_2.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_2")))

Foto_2.Delete

End If

If conteudo_1("FOTO_3") <> "" Then

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

Set Foto_3 = Arquivo_3.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_3")))

Foto_3.Delete

End If

If conteudo_1("FOTO_4") <> "" Then

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

Set Foto_4 = Arquivo_4.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_4")))

Foto_4.Delete

End If

If conteudo_1("FOTO_5") <> "" Then

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

Set Foto_5 = Arquivo_5.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_5")))

Foto_5.Delete

End If

If (Not MM_abortEdit) Then

' execute the delete

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

%>

<%

' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql delete statement

MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

If conteudo_1("FOTO_1") <> "" Then

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

Set Foto_1 = Arquivo_1.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_1")))

Foto_1.Delete

End If

If conteudo_1("FOTO_2") <> "" Then

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

Set Foto_2 = Arquivo_2.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_2")))

Foto_2.Delete

End If

If conteudo_1("FOTO_3") <> "" Then

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

Set Foto_3 = Arquivo_3.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_3")))

Foto_3.Delete

End If

If conteudo_1("FOTO_4") <> "" Then

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

Set Foto_4 = Arquivo_4.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_4")))

Foto_4.Delete

End If

If conteudo_1("FOTO_5") <> "" Then

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

Set Foto_5 = Arquivo_5.GetFile(Server.MapPath("../noticias/_img/" & conteudo_1("FOTO_5")))

Foto_5.Delete

End If

If (Not MM_abortEdit) Then

' execute the delete

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

%>

--------------------------------------------------------------------------

O que h+a de errado? Ãlgu+em tem alguma luz?

valeu!

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

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
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...