Slette funktion

Hvad skal rettes i nedenstående, før at slette funktionen virker.....


<% 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
%>