Mærkelig dato ved årsskifte

Hej,

Jeg har lavet et meget simpelt statistik system for min webside.
Men efter vi skrev 2006 virkede den ikke længere.. nu gør den dog.. delvist.
De sidste 4 dage kan den godt finde ud af, men derfra og så til og med 1/1-2006 viser den 0.
Jeg har en anden side som udskriver de besøg jeg har haft med dato, og der er mindst 4 på en dag, HVER dag.. men alligevel skriver den nul ved 7dage og 14dage.

Her er min kode..



<%
    Set rs = Server.CreateObject ("ADODB.Recordset")
    rs.Open "SELECT TOP 1 * From VisitLog ORDER BY id desc", MyConn
    todayDateDb = rs("dato")
%>
DB MAX DATE : <% = todayDateDb %><br/>
<h2>I DAG</h2>
<%
    tdate = Date()
       
    set todayTotal = Myconn.execute("SELECT count(*) as varTodayCount FROM VisitLog WHERE dato = #"& tdate &"#")

    Set dataToday = Server.CreateObject ("ADODB.Recordset")
    dataToday.Open "SELECT * From VisitLog WHERE dato = #"& tdate &"# ORDER BY ip", MyConn
    tmpIp = ""
    tmpTodayCount = 0

    while NOT dataToday.EOF
        if dataToday("ip") <> tmpIp Then
            tmpIp = dataToday("ip")
            tmpTodayCount = tmpTodayCount + 1
        end if
    dataToday.MoveNext
    Wend



%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Unik: <% = tmpTodayCount %><br/>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Total: <% = todayTotal("varTodayCount") %><br/>

<h2>I GÅR</h2>

<%
    tdate = Date() - 1
    set rsTotalCount = Myconn.execute("SELECT count(*) as varResult FROM VisitLog WHERE dato = #"& tdate &"#")

    Set rs = Server.CreateObject ("ADODB.Recordset")
    rs.Open "SELECT * From VisitLog WHERE dato = #"& tdate &"# ORDER BY ip", MyConn
    tmpIp = ""
    tmpCount = 0

    while NOT rs.EOF
    if rs("ip") <> tmpIp Then
        tmpIp = rs("ip")
        tmpCount = tmpCount + 1
    end if
    rs.MoveNext
    Wend
%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Unik: <% = tmpCount %><br/>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Total: <% = rsTotalCount("varResult") %><br/>


<h2>7 DAGE</h2>
<%
    tdate = Date() - 7
       
    set todayTotal = Myconn.execute("SELECT count(*) as varTodayCount FROM VisitLog WHERE dato > #"& tdate &"#")

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

    while NOT dataToday.EOF
        if dataToday("ip") <> tmpIp Then
            tmpIp = dataToday("ip")
            tmpTodayCount = tmpTodayCount + 1
        end if
    dataToday.MoveNext
    Wend

    Set rs = Server.CreateObject ("ADODB.Recordset")
    rs.Open "SELECT TOP 1 * From VisitLog ORDER BY id desc", MyConn
    todayDateDb = rs("dato")

%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Unik: <% = tmpTodayCount %><br/>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Total: <% = todayTotal("varTodayCount") %><br/>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ref. date: <% = tdate %><br/>



<h2>14 DAGE</h2>

<%
    tdate = Date() - 14
    set rsTotalCount = Myconn.execute("SELECT count(*) as varResult FROM VisitLog WHERE dato > #"& tdate &"#")

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

    while NOT rs.EOF
    if rs("ip") <> tmpIp Then
        tmpIp = rs("ip")
        tmpCount = tmpCount + 1
    end if
    rs.MoveNext
    Wend
%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Unik: <% = tmpCount %><br/>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Total: <% = rsTotalCount("varResult") %><br/>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ref. date: <% = tdate %><br/>



Det her er bare lige en test jeg har lavet, så koden er vist lidt rodet. :)