<%

' Veritabanına bağlandığınızı varsayıyorum.

tarih1=Request.Form("tarih1")
tarih2=Request.Form("tarih2")

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "tabloadi where tarih between #"&tarih1&"# and #"&tarih2&"# ",db,1,3

If Rs.eof then
Else

While Not.Rs Eof

Response.Write " "&Rs("tarih")&" <br>"

Rs.Movenext
Wend

End If

%>

kaynak : http://www.aspindir.com/goster/1882