Fejl ved udtræk where dato

Hej,

Jeg har lavet to scripts som tæller besøgende på en side, på baggrund af data i en Access database. Den viser så total besøgende og unikke besøgende. baseret på ip.

Det virker for "I DAG" og "I GÅR" og "7 DAGE" .. men "14 DAGE" går helt galt. Den viser ALLE poster.. og der er records helt tilbage fra Septemper.

mit script som virker (7 dage)

<%
    weekDate = Date() -8
    set weekTotal = Myconn.execute("SELECT count(*) as varWeekCount FROM VisitLog WHERE dato > #"& weekDate &"#")

    Set dataWeek = Server.CreateObject ("ADODB.Recordset")
    dataWeek.Open "SELECT * From VisitLog WHERE dato > #"& weekDate &"# ORDER BY ip", MyConn
    tmpIp = ""
    tmpWeekCount = 0

    while NOT dataWeek.EOF
    if dataWeek("ip") <> tmpIp Then
        tmpIp = dataWeek("ip")
        tmpWeekCount = tmpWeekCount + 1
    end if
    dataWeek.MoveNext
    Wend
%>
                                    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Unik: <% = tmpWeekCount %><br/>
                                    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Total: <% = weekTotal("varWeekCount") %>



Hvis jeg laver
weekDate = Date() -8
om til
weekDate = Date() -15
så henter den alt.. hvad gør jeg forkert?