<%  
'Dataya bağlantı kurduğunuzu varsayıyorum 
'Burada kayıt setimizi açıyoruz. 
Set ObjRs = Server.CreateObject ("ADODB.Recordset" ) 
'Burada sql'in delete işlemi ile uyeler tarih alanını alıyoruz ve   
istenilen tarihte o üyeyi sildirtiyoruz. 
StrSql="Delete from uyeler where tarih < #6/12/2002#"   
ObjRs.Open strSql,strCon,1,3 
%>