Kalender script. Skift farve

Jeg har et kalender script, som skal skiftet farve på en pågældende hvis den finder en post i databasen der relaterer sig til denne dag.

Min kode ser sådan ud, lige pt:

<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
DataConn.Open DSN

Set show = Server.CreateObject("ADODB.RecordSet")
show.open "Select * From [Kalender] order by ID desc", DataConn
if not show.EOF then
show.MoveFirst
end if
do while not show.EOF
%>

<%if int(datecounter) = show("Dag") and int(navmonth) = show("Maaned") and int(navyear) = show("Aar") then%>
    <td height="20" bgcolor="#157A3D" valign="top">
    <font face="Verdana" size="1" color="#FFFFFF"><center>
    <a href="default.asp?side=VisDag&dag=<%=show("dag")%>&maaned=<%=show("maaned")%>&aar=<%=show("aar")%>"><b><%=dateCounter%></b></a><br>
    </center></font>
<%else%>
    <td height="20" bgcolor="#220B01" valign="top">
    <font face="Verdana" size="1" color="#FFFFFF"><center>
    <a href="default.asp?side=VisDag&dag=<%=dateCounter%>&maaned=<%=navmonth%>&aar=<%=navyear%>"><b><%=dateCounter%></b></a><br>
    </center></font>
<%end if%>

<%
show.MoveNext
loop
show.Close
set show = nothing
Dataconn.Close
%>

Men her poster den jo bare alt. hvad gør jeg?