Slet fil på web-server

<% if request("mode") = "gem" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Conn.Open DSN

set rskunder = server.createobject("adodb.recordset")
rskunder.open ("delete * FROM salgsliste WHERE id=" & request("id")), DSN, 1, 3


set rskunder = Nothing
Response.Redirect("?liste=" & request("liste") & "")
rskunder.Close
end if
%>

<% if request("mode") = "slet" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Conn.Open DSN

set rskunder = server.createobject("adodb.recordset")
sql = "select * from salgsliste where liste=" & request("liste")
set rs = Conn.execute(sql)

'*** Sletter filen (her skal rettes lidt)***
set filesys = CreateObject ("Scripting.FileSystemObject")
set file = filesys.GetFile(server.mappath(rs.fields("billede")))
file.Delete

set rs = nothing

rskunder.open ("delete * FROM salgsliste where liste=" & request("liste")), DSN, 1, 3

set rskunder = Nothing
Response.Redirect("slet-alt_auktion_liste.asp")
rskunder.Close
end if
%>

Husk at rette denne linie til..
set file = filesys.GetFile(server.mappath(rs.fields("billede")))
Skal der slettes både i mode=gem og mode=slet ..?

hvad skal der rettes til....

altså så skal rette til med hensyn til stien i databasen..
Ved ikke hvordan den ser ud, men den skal passe i forhold til server.mappath, og samtidig skal du rette navnet på feltet i databasen..

Server.MapPath("../../db/auktion.mdb")
feltet hedder billede...

hvor ligger billedet i forhold til den fil du vil slette fra..?

db området har jeg kun adgang til via asp kode, ellers ikke.
billedet ligger i en mappe under root ../img/ hvor jeg har skrive og slette rettigheder.

<% if request("mode") = "gem" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Conn.Open DSN

set rskunder = server.createobject("adodb.recordset")
rskunder.open ("delete * FROM salgsliste WHERE id=" & request("id")), DSN, 1, 3


set rskunder = Nothing
Response.Redirect("?liste=" & request("liste") & "")
rskunder.Close
end if
%>

<% if request("mode") = "slet" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Conn.Open DSN

set rskunder = server.createobject("adodb.recordset")
sql = "select * from salgsliste where liste=" & request("liste")
set rs = Conn.execute(sql)

'*** Sletter filen (her skal rettes lidt)***
set filesys = CreateObject ("Scripting.FileSystemObject")
set file = filesys.GetFile(server.mappath("../img/" & rs.fields("billede")))
file.Delete

set rs = nothing

rskunder.open ("delete * FROM salgsliste where liste=" & request("liste")), DSN, 1, 3

set rskunder = Nothing
Response.Redirect("slet-alt_auktion_liste.asp")
rskunder.Close
end if
%>

Så vil jeg tro det her virker..

hej Hede
Virkede det..?

Lidt response ville måske være på sin plads..?

lukker