Dato script

Hej

Jeg har et script, som jeg har anvendt i nogle dage nu... og så pludselig gider i dag det bare ikke virke mere, og jeg har ikke ændret på noget, så vidt jeg kan huske ;)

Scriptet ser således ud:

<%
    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() + 364 & "#) 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
    if not myDates = "" then
        myDates = left(myDates,len(myDates)-2)
        response.write("<script>alert('" & myDates & "')</script>")
    end if
%>
[strSQL er lig med "Select distinct datopublish from search where (datopublish between #12-11-2002# and #11-11-2003#) order by datopublish"]

Den udskriver intet, fordi myDates er tom... og det er jo meget mærkelig, fordi nede i database ligger der to datoer i et datofelt - 13-11-2002 og 14-11-2002 - og putter sig. Det skulle gerne blive udskrevet - det gjorde det i hvert fald førhen... men nu vil de sikkert have lønforhøjelse.

Hvad dællen... dytten... gør jeg forkert?