<%  
tarih1 = DateAdd('d',0,'"& Date &" ')   
tarih2 = DateAdd('d',5,'"& Date &" ')   
' veya 
' StrSql ;     
' Select * From tablo where tarih between #"& tarih1 &" # and #"& tarih2 &" #"   
' yada   
' Select * From tablo where tarih >#" & tarih1 &"# and tarih < #" & tarih2 & "#"    
%>