İki tarih arası veri listeleme

Şöyle bşr kodum var ama bana iki tarih arasını listelemiyor kodda yanlışlık uyarısıda vermiyor çalışıyor ama listelemiyor acaba gözden kaçırdığım ne olabilir.

Function Oantarih(tarih)
Aspstmyil =  Year(tarih)& "-" & format_zeros(month(tarih), 2) & "-" & format_zeros(Day(tarih), 2)
Oantarih = Aspstmyil
END Function

arayil="2018"
araay="04"
aragun="01"
tarih2=arayil&"-"&araay&"-"&aragun

habermap= "SELECT * FROM haber where onay=1 and tarih between "&Oantarih(date())&" and "&tarih2&"  ORDER BY id DESC"
set rc=Connect.execute(habermap)
Do While Not rc.Eof
idim=rc("id")
seolink=""&siteurl&"/haber-"&idim&"-"&seobas&".html"
%>
<%=idim%>-<%=seolink%>eeeeeeee<br>
<%
rc.Movenext
Loop
rc.Close
%>

habermap= "SELECT * FROM haber where onay=1 and tarih between "&Oantarih&" and "&tarih2&" ORDER BY id DESC"
set rc=Connect.execute(habermap)

sağ olun Oantarih bir fonksiyon o an tarihi mysql formatına çeviriyor böyle yaparsam hiç bir şey olmaz. Çözüm başka yoldan sağladım.