Ændre udskrift af kalender

Jeg har nedenstående kalender, som hvis jeg opretter et event på eksempelvis 13-03-2003, så er eventet oprettet på 13-03-2003 + 13-03-2004 + 13-03-2005 osv. Det vil jeg gerne have lavet om, således at hvis jeg opretter et event på ovenstående dag, så bliver det kun vist i kalenderen den dag og det år!

Der er et felt i db'en der hedder aar! Således at et event kan knytte sig til en eksagt dato.

Kan nogen hjælpe med at løse det problem?

Et udpluk af min kalender:

<%
DBQ=Server.MapPath("kalender.mdb")
Set oConn = createObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBQ

dtmDate = Request.QueryString("date")
dtmToday = Date

If dtmDate = "" Then
  dtmDate = Date
Else
  dtmDate = CDate(dtmDate)
End if

thismonth = (Month(date)) & "/1/" & Year(date)
absolutemonth1 = (Month(date)) & "/1/" & (Year(date)+1)
absolutemonth = (Month(date)-1) & "/1/" & (Year(date)+1)
lastmonth = (Month(date)-1) & "/1/" & Year(date)
lastmonth = (Month(date)-1) & "/1/" & Year(date)
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)

minus = DateAdd("m",-1,dtmFirstDate)
plus = (DateAdd("m",1,dtmFirstDate))
%>

<td width="78"><div align="center" class="overskrift-fed"><strong><%=strmonth%><br>
                      <%=intyear%> </strong></div></td>
                  <td width="226"><table width="150" height="34" border="0" cellpadding="2" cellspacing="0" bgcolor="E4CCB5" valign="top">
                      <tr class="style-calender">
                        <td width="21" height="17" align="center">Man</td>
                        <td width="13" align="center">Tir</td>
                        <td width="18" align="center">Ons</td>
                        <td width="16" align="center">Tor</td>
                        <td width="15" align="center">Fre</td>
                        <td width="15" align="center">Lør</td>
                        <td width="22" align="center">Søn</td>
                      </tr>
                      <%
For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    Set rs=oConn.Execute("Select * from kalender where dag="&day(dtmCurDate)&" and mdr="&month(dtmCurDate))
        year1=("2004")
          If dtmCurDate = dtmToday Then
                        If Not rs.EoF Then
                            ' Her udskrives dags dato
                            Response.Write "<td align=center bgcolor=#FA6226 class='style-calender'>" & Day(dtmCurDate) & "</a></td>"
                        Else
                            Response.Write "<td align=center bgcolor=#FA6226 class='style-calender'>" & Day(dtmCurDate) & "</a></td>"
                        End If
          Else
                        If Not rs.EoF Then
                        ' Her udskrives de reserverede datoer
                            Response.Write "<td align=center bgcolor=#D9BC4C class='style-calender'><a href=udskrivevent.asp?dato="&dtmCurDate&" class='style-calender' target='today'>" & Day(dtmCurDate) & "</a></td>"
                        Else
                            Response.Write "<td align=center class='style-calender'>" & Day(dtmCurDate) & "</a></td>"
                        End If
          End If
          blnLast = False
        Else
          Response.Write "<td align=center> </td>"
          blnLast = True
        End If
      Else
        Response.Write "<td align=center> </td>"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write "</td></tr>"
%>