Dato fejl...

Jeg har stykket et nyheds/kaldendermodul sammen, men har pludselig fået problemer med kalenderdelen.
Koden kan ses nedenfor og der er et screenshot af databasen i design-visning <a href=\"http://www.hygind.dk/3y/db.htm\">her</a>.

Af en eller anden grund viser den ikke de indførsler der har en kalenderdato om relativt kort tid. Tilgengæld kan den godt vise et kalenderpunkt i fx. oktober,november og december (dvs. de mdr. der ikke har et foranstillet nul), samt indførsler med kalenderdato i år 2002.

<body>
<div class=\"ramme\">
<div class=\"rammetop\"><h3>Kalender</h3></div>
<div class=\"rammeindhold\">
<%
Dim Connect, OnMenu, ThisDay, Query, DayNum
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"fpdb/nyhedka.mdb\")
ThisDay = (Date)
Query = \"SELECT * FROM news WHERE kalenderdato >= #\" & ThisDay & \"# ORDER BY kalenderdato\"
Set OnMenu = Connect.Execute(Query)
DayNum = 1
do until OnMenu.EOF Or DayNum > 6
%>
<div class=\"nyhedsover\"><%=OnMenu(\"kalenderdato\")%><br>
<a href=\"nyhedsdel/se_nyhed.asp?id=<%=OnMenu(\"ID\")%>\"><%=OnMenu(\"kalendertitel\")%></a></div><br>

<%
  DayNum = DayNum + 1
  OnMenu.MoveNext
loop %>
 
  </div>
</div>
</body>