HELP need help with listing records date

so you want to filter catagories that are 20 days or newer two... in your admin panel set the date along with the new catagory. When you open your database in your catagory page, add something like my jokes site example select statement, you should get a good idea from this,

   Dim lm
   lm = Dateadd("m", -1, date())
  
   'Open connection to database
   Dim conn
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.provider = "Microsoft.Jet.OLEDB.4.0"
   conn.open "c:\mfolder\accesslevel1\jokesdatabase.mdb"
  
   'Create Recordset
   Dim rs
   Set rs = Server.CreateObject("ADODB.RecordSet")
   rs.open "SELECT * FROM list WHERE additiondate >= #" & lm & "#", conn

this piece of code displays all the records added within the last month, the additiondate is located in the field 'additiondate' in my jokes database...