slet indlæg via dato.

Jeg bruger følgende til at trække en dato og en begivenhed fra database,


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kalender.mdb")
Conn.Open DSN
strSQL = "Select * from test Order By Dato"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
Response.Write "<b>" & "<FONT COLOR=ff0000>"&rs("Dato") & "&nbsp;</FONT></b>"

Response.Write "</b>" & rs("Beskrivelse") & "</b>"


Response.Write "<b>" & "<FONT COLOR=ff0000>"&rs("underskrift") & "&nbsp;</FONT></b></tr>"

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Jeg vil gerne have den til at slette begivenheden når datoen er passeret, har prøvet mage måder men uden held
Er der en af jer der har løsningen? ( hvis du også gider sætte koden ind i min kode, er der 200 point.)