Auto-delete från databas

Hej,

Sökte runt lite och hittade denna kod:

dim strTime
strTime = date() -14
dSql = "delete from tabell where datum < #" & strTime & "# "
connection.execute(dSql)

Tar bort recordset efter 14 dagar.
Men om jag vill att besökaren själv ska bestämma tiden och även ska kunna ändra/förlänga tiden hur kan man göra då?

Mvh Jimpa

Menar du...

dim strTime, antalDagar
[b]antalDagar = 15
strTime = date() - antalDagar[/b]
dSql = "delete from tabell where datum < #" & strTime & "# "
connection.execute(dSql)

------------------
Peter D