Permission Denied

[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!

[Deividy]

você tem permissão de escrita nesta pasta?