ta bort inlägg efter x antal dagar

Tjenare, jag försöker göra så att inlägg i databasen raderas efter x antal dagar. Jag tänkte bara be er se över min kod och se ifall den är bra, eller om det är något jag har glömt som kan skapa problem för mig.

jag har följande kod:

<%
' tar bort gamla inlägg

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath(db) &" "

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM meddelande"
RecSet.Open SQL, Connect, 3,3

if recset.eof then
else
if recset("accept")="0" then
recset("datum") = strTid
strTid = date() -2
SQL = "delete from meddelande where datum < #" & strTid & "# "
connect.execute(SQL)
elseif recset("accept")="1" then
recset("datum") = strTid
strTid = date() -60
SQL = "delete from meddelande where datum < #" & strTid & "# "
connect.execute(SQL)
end if
end if
%>

tack så mycket.