fso delete
Hvad er der galt her<%
if request.form("B1") <> "" then
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
sql2 = "SELECT * FROM billeder WHERE id = "& request.form("C1") & ""
set rs2 = Conn.Execute(sql2)
Sql = "delete * from billeder where id = "& request.form("C1") & ""
Set rs = Conn.Execute(sql)
Set fso = Server.CreateObject("Scripting.FilesystemObject")
file = (Server.Mappath("brugere\"& rs2("bruger") & "\" & rs2("mappe") & "\" & rs2("fil")))
'fso.DeleteFile file
Set fso = Nothing
end if
%>
