Kalender skal også vælge ud fra år!

Jeg har fundet en fødselsdags kalender på nettet, som jeg nu bruger som en almindelig kalender, men problemet er at da det som sagt er en gammel fød. kalender, gentager den aftalen samme dag næste år. Jeg har indskrevet koden neden under, og vil så geren have en til at indsætte så den også laver udtrækket ud fra år så det ikke kun er dag og måned!

<%
DBQ=Server.MapPath(\"spejder.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

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd(\"d\", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>
<table cellspacing=\"0\" cellpadding=\"2\" border=\"1\" bordercolor=\"#3C9751\" valign=\"top\" width=\"600\">
<tr>
<td colspan=\"7\" bgcolor=\"#3C9751\"><span class=\"overskrift\"><%=strMonth%>&nbsp;<%=intYear%></span></td>
</tr>
<tr>
<td bgcolor=\"#224492\" align=\"center\"><span class=\"hvid\"><b>Mandag</B></span></td>
<td bgcolor=\"#224492\" align=\"center\"><span class=\"hvid\"><b>Tirsdag</B></span></td>
<td bgcolor=\"#224492\" align=\"center\"><span class=\"hvid\"><b>Onsdag</B></span></td>
<td bgcolor=\"#224492\" align=\"center\"><span class=\"hvid\"><b>Torsdag</B></span></td>
<td bgcolor=\"#224492\" align=\"center\"><span class=\"hvid\"><b>Fredag</B></span></td>
<td bgcolor=\"#224492\" align=\"center\"><span class=\"hvid\"><b>Lørdag</B></span></td>
<td bgcolor=\"#224492\" align=\"center\"><span class=\"hvid\"><b>Søndag</B></span></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 foddagbarn=oConn.Execute(\"Select * from kalender where dag=\"&day(dtmCurDate)&\" and mdr=\"&month(dtmCurDate))
          If dtmCurDate = dtmToday Then
                        If Not foddagbarn.EoF Then
                            Response.Write \"<td align=center bgcolor=#3C9751><a class=normal href=default.asp?side=kalender&subside=info&dato=\"&dtmCurDate&\"><b>\" & Day(dtmCurDate) & \"<b></a></td>\"
                        Else
                            Response.Write \"<td align=center bgcolor=#3C9751><a href=default.asp?side=kalender&subside=info&dato=\"&dtmCurDate&\"><b><span class=hvid>\" & Day(dtmCurDate) & \"</b></span></a></td>\"
                        End If
          Else
                        If Not foddagbarn.EoF Then
                            Response.Write \"<td align=center bgcolor=#224492><a href=default.asp?side=kalender&subside=info&dato=\"&dtmCurDate&\"><span class=hvid><b>\" & Day(dtmCurDate) & \"</span></b></a></td>\"
                        Else
                            Response.Write \"<td align=center><a class=normal href=default.asp?side=kalender&subside=info&dato=\"&dtmCurDate&\">\" & Day(dtmCurDate) & \"</a></td>\"
                        End If
          End If
          blnLast = False
        Else
          Response.Write \"<td align=center><span class=normal>-</td>\"
          blnLast = True
        End If
      Else
        Response.Write \"<td align=center><span class=normal>-</td>\"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write \"</span></td></tr>\"
%>
<tr>
<td bgcolor=\"#3C9751\" colspan=\"3\"><a
href=\"default.asp?side=kalender&date=<%=DateAdd(\"m\",-1,dtmFirstDate)%>\"><span class=\"normal\"><b><< Forrige måned</b></a></td>
<td bgcolor=\"#3C9751\">&nbsp;</td>
<td bgcolor=\"#3C9751\" colspan=\"3\" align=\"right\"><a
href=\"default.asp?side=kalender&date=<%=DateAdd(\"m\",1,dtmFirstDate)%>\"><span class=\"normal\"><b>Næste måned >></b></span></a></td>
</tr>
</table>
</center></div>
<p><br>
<center>
<TABLE BORDER=\"1\" bordercolor=\"#3C9751\" CELLSPACING=\"0\" class=\"tabel4\">
<TR>
<TD class=\"tabel1\" colspan=\"6\" width=\"600\" bgcolor=\"#3C9751\"><span class=\"overskrift\">Andre måneder</span></TD>
</tr>
<TR>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-01-<%=intYear%>\">Januar</a></span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-02-<%=intYear%>\">Febuar</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-03-<%=intYear%>\">Marts</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-04-<%=intYear%>\">April</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-05-<%=intYear%>\">Maj</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-06-<%=intYear%>\">Juni</span></center></td></tr>
<TR>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-07-<%=intYear%>\">Juli</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-08-<%=intYear%>\">August</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-09-<%=intYear%>\">September</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-10-<%=intYear%>\">Oktober</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-11-<%=intYear%>\">November</span></center></td>
<td width=\"100\"><center><span class=\"normal\"><a href=\"default.asp?side=kalender&date=01-12-<%=intYear%>\">December</span></center></td></tr>
</table></center>
<p><span class=\"normal\">Der taget forbehold for fejl. I øvrigt henvises der til kalenderen i Divisionsbladet.</span>
</td>