hvad gør jeg galt ?

Jeg tror jeg har fået stirret mig blind på det, nogen som kan fortælle hvad faen der egentlig er galt.

Når jeg har en dato i databasen (15-08-2003) så skal flaget op på den dag det nu er i dag, men det gør den bare ikke :(


<%   
Set ConnFS= Server.CreateObject("ADODB.Connection")
Set rsFS = Server.CreateObject("ADODB.RecordSet")

ConnFS.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("DATABASE")
str_sql2 = "SELECT * FROM kalender"
rsFS.Open str_sql2, ConnFS, 1
%>

<table border="0" cellpadding="0" cellspacing="0" width="100" align="right">
<tr><td width="100%">
<% if day(rsFS("dato"))=day(now) and month(rsFS("dato"))=month(now) then %>
<img border="0" src="/GFX/DK/Flag/FlagOp.gif" width="150" height="151">
<% else %>
<img border="0" src="/GFX/DK/Flag/FlagNed.gif" width="150" height="151">
<% end if %>
</td></tr>
<tr><td width="100%"><center><a href="flag">Skal flaget hejses?</a></center></td></tr>
<%
if day(rsFS("dato"))=day(now) and month(rsFS("dato"))=month(now) then
%>
<tr><td width="100%">
<%
response.write "<b>I dag er flaget hejst:</b><br>For " & rsFS("navn") & " har fødselsdag<br>"
%>
</td></tr>
<% end if %>