VIl ikke slette fil fra Serveren med hjælp af ASP

Jeg har denne sætning her, men den bliver ved med at sige:

-----------------------------------------------------------------
Microsoft VBScript runtime  error '800a0046'
Permission denied
/admin/picture_deleted.asp, line 36
-----------------------------------------------------------------
Hvilket vil sige at det er linjen:
  fso.DeleteFile(fil)
Der er noget galt med....

Her er hele koden:
-----------------------------------------------------------------
Dim ADO_Connection
Dim rsPicture
Dim SQL_STRING
Dim DeletePicture

DeletePicture= CLng(Request.QueryString("ID"))
set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../cgi-data/db.mdb")

set rsPicture= server.Createobject("ADODB.Recordset")
SQL_STRING= "SELECT images .* FROM images WHERE ID=" & DeletePicture

rsPicture.LockType = 3
rsPicture.Open SQL_STRING, ADO_Connection


Set fso=Server.CreateObject("Scripting.FileSystemObject")
'Her vælges hilken fil der skal slettes
fil = Server.Mappath("../images/" & rsPicture("name") & "")
'Tjek om filen findes før den slettes for at undgå fejl
if fso.FileExists(fil) then
  fso.DeleteFile(fil)
end if
set fso=nothing

rsPicture.Delete

rsPicture.close
set rsPicture= Nothing
set ADO_Connection = Nothing
Response.Redirect "pic_show.asp"%>