DELETE

Hej!

Jag vill Delita äldre annonser en 60 dagar och bilden, men den koden funkar inte 
Kan Ni se vad felet är. 

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "DELETE FROM items WHERE dateCreated < #" & dateAdd("d",-60,Date & "bilder/" & RecSet("filename")) & "#" 
RecSet.Open SQL, Connect,1,2

Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/Ivar

För att ta bort posterna från databasen

SQL = "DELETE FROM items WHERE dateCreated < date() - 60"
connect.execute sql,,128

Vad menar du med "och bilden"?

Ok så här jag vill ta bort också bilderna som är i mappen bilder.
Om jag tar bort bara posterna från databasen då blir det massa onödiga filer(bilder) kvar.
/Ivar

Det var väl det jag anade.

set fso = server.createobject("scripting.filesystemobject") 
sql = "select filename from items where dateCreated < date() - 60"
set rs = connect.execute(sql)
while not rs.eof
    fso.DeleteFile rs("filename")
    rs.movenext
wend
rs.close
set rs = nothing
set fso = nothing
SQL = "DELETE FROM items WHERE dateCreated < date() - 60"
connect.execute sql,,128

Du kanske behöver lägga till någon path när du gör deletefile.

Tack LarsG   jag la till sökvägen till  mappen och vips funkar perfekt.

set fso = server.createobject("scripting.filesystemobject") 
sql = "select filename from items where dateCreated < date() - 60"
set rs = connect.execute(sql)
while not rs.eof
    fso.DeleteFile(Server.MapPath("bilder/" & rs("filename")))
    rs.movenext
wend
rs.close
set rs = nothing
set fso = nothing
SQL = "DELETE FROM items WHERE dateCreated < date() - 60"
connect.execute sql,,128
/Ivar