Fra slet en til slet alle

Hvordan får jeg denne her til at slette alle poster der har nået slette dato?
Nu sletter den en af gangen

<!-- #include file="ADOVBS.inc" -->
<!-- #include file="DB.asp" -->
<%
function FDate(V) ' Formatér dato til Access-SQL-syntax MM-DD-YYYY
  FDate = Month(V) & "-" & Day(V) & "-" & year(V)
end function
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN
slet = date()
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Annoncer", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rs.find "slettes < #" & FDate(date) & "#"
Kategori = rs("Kategori")
uKategori = rs("uKategori")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM Kategori WHERE Description = '" & Kategori & "'"
rs2.Open SQL, strDSN, adOpenKeyset, adLockOptimistic
antal = rs2("antala")
rs2("antala") = antal-1
rs2.Update
Set rs3 = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM ukategori WHERE Description = '" & Kategori & "' and udescription = '" & uKategori & "'"
rs3.Open SQL, strDSN, adOpenKeyset, adLockOptimistic
antal = rs3("antala")
rs3("antala") = antal-1
rs3.Update
rs.delete
rs.close
set rs = Nothing
rs2.close
set rs2 = Nothing
rs3.close
set rs3 = Nothing
%>

jeg havde denne kode før men den kan jeg ikke få til at tælle ned.

<!-- #include file="DB.asp" -->
<%
function FDate(V) ' Formatér dato til Access-SQL-syntax MM-DD-YYYY
  FDate = Month(V) & "-" & Day(V) & "-" & year(V)
end function
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN
slet = date()
strSQL = "DELETE FROM Annoncer where slettes < #" & FDate(date) & "#"
Conn.Execute strSQL,lngRecords
Conn.close
Set Conn = nothing
%>