Udskriv bestemte datoer, sorteret

Hej

Jeg har et script, som danner en sorteret liste af datoer fra dags dato og 60 dage frem (uden dato-gentagelser). Men desværre bliver der intet udskrevet, fordi der ikke bliver fundet nogle datoer, og det er til trods for, at der ligger masser af datoer i databasen, som den skulle have udskrevet.

_________________________________________

<%
    Set myConn=Server.CreateObject("ADODB.Connection")
    myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))
    strSQL = "Select distinct datopublish from search where (datopublish between " & date() & " and " & date() + 60 & ") order by datopublish"
    'strSQL = "Select * from search where (datopublish >= " & Date() & ") order by datopublish"
    set rs = myConn.execute(strSQL)
   
    do while not rs.EOF
        if isDate(rs("datopublish")) then
            myDates = myDates & rs("datopublish") & ","
        End If
    rs.MoveNext
    Loop
    myDates = left(myDates,len(myDates)-1)
    response.write "*** " & myDates
    response.write strSQL
%>

Den udskrevne myDates er tom!

Den udskrevne strSQL er:
Select datopublish from search where (datopublish between 27-10-2002 and 26-12-2002) order by datopublish