Vis næste 7 dage

Heysa, jeg skal trække alle posteringer ud fra en database der er den næste uge. Dette gør jeg med denne kode, men den virker ikke rigtig.

Session.LCID = 1030

Function datedkuk(Streng)
    datedkuk = day(Streng) & "-" & month(streng) & "-" & year(Streng)
End function

strTID = dateadd("d", 7, date)
strTID = datedkuk(strTID)

SQL = "SELECT * from tabel WHERE fradato >= '"& date &"' AND fradato < '"& strTID &"' or tildato >= '"& date &"' AND tildato < '"& strTID &"'  order by fradato ASC"
set rs = conn.execute(sql)

            if rs.eof then
response.write "<font>Der er ingen arrangementer den næste uge"
end if

Den skriver bare der ingen er.. Hvordan kan det være?

Mvh. Jacob