Find dag, måned og år udfra dato i DB

jeg har en kalender, denne er bygget så man skal have et felt i databasen med dag måned og år ! og det er jo lidt trals ! nu har jeg en base hvor jeg kun har et felt der heder next_date, og så vil jeg gerne have vist disse datoer i kalenderen.
Koden  til min kalender er denne:
<!--#include file=\"protect.inc\"-->
<%
Response.expiresAbsolute = Now() - 10
Response.expires = 0


       
Set oConn = Server.CreateObject(\"ADODB.Connection\")
oConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"min_db.mdb\")








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)
%>


<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1352\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"default.css\">
<class=\"lille\">
<class=\"bgcol\">


</head>

<TABLE width=\"20\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\" valign=\"top\"
style=\"border: 1px solid rgb(0,0,0)\">
<tr>
<td colspan=\"7\" align=\"center\" valign=\"middle\" bgcolor=\"#000000\" ><font face=\"Verdana\"
size=\"2\" color=\"#ffffff\"><strong><span style=\"background-color: #000000\"><%=strMonth%>&nbsp;<%=intYear%></span></strong></font></td>
</tr>
<tr>
<td align=\"center\"><font face=\"verdana\" size=\"2\">Man</font></td>
<td align=\"center\"><font face=\"verdana\" size=\"2\">Tir</font></td>
<td align=\"center\"><font face=\"verdana\" size=\"2\">Ons</font></td>
<td align=\"center\"><font face=\"verdana\" size=\"2\">Tor</font></td>
<td align=\"center\"><font face=\"verdana\" size=\"2\">Fre</font></td>
<td align=\"center\"><font face=\"verdana\" size=\"2\">Lør</font></td>
<td align=\"center\"><font face=\"verdana\" size=\"2\">Søn</font></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)&\" \" & \"and aar =\"&intYear & \" \" & \"and userID=\"&Session(\"UserID\"))
          If dtmCurDate = dtmToday Then
                        If Not foddagbarn.EoF Then
                        %>

<!-- 1: baggrund = #FFCC00 skrift = #ff0000
2: baggrund = #0000ff skrift = #ffffff
3: baggrund = #ff0000 skrift = #FFCC00
4: baggrund = #42495A skrift = #FFCC00
-->
<td align=center ><input type=\"button\"  value=\"<%=Day(dtmCurDate)%>\"onClick=\"parent.basefrm.location=\'aftale.asp?event_dato=<%=dtmCurDate%>\'\"  style=\"width:23;\"  class=\"submitButton1\"> </td><%

                           
                        Else
                                                %>
<td align=center ><input type=\"button\" value=\"<%=Day(dtmCurDate)%>\"onClick=\"parent.basefrm.location=\'aftale.asp?event_dato=<%=dtmCurDate%>\'\"  style=\"width:23;\"  class=\"submitButton2\"> </td>
<%

                           
                        End If
          Else
                        If Not foddagbarn.EoF Then
                                                                        %>
<td align=center ><input type=\"button\"  value=\"<%=Day(dtmCurDate)%>\"onClick=\"parent.basefrm.location=\'aftale.asp?event_dato=<%=dtmCurDate%>\'\"  style=\"width:23;\"  class=\"submitButton3\"> </td>
<%

                           
                        Else
                                                                        %>
<td align=center ><input type=\"button\"  value=\"<%=Day(dtmCurDate)%>\"onClick=\"parent.basefrm.location=\'aftale.asp?event_dato=<%=dtmCurDate%>\'\"  style=\"width:23;\"  class=\"submitButton4\"> </td>
<%

                        End If
          End If
          blnLast = False
        Else
          Response.Write \"<td align=center><font face=verdana size=2>-</td>\"
          blnLast = True
        End If
      Else
        Response.Write \"<td align=center><font face=verdana size=2>-</td>\"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write \"</font></td></tr>\"



%>


Så er der nogen her der kan ændre følgende kode til det ønskede:

                Set foddagbarn=oConn.Execute(\"Select * from kalender where dag=\"&day(dtmCurDate)&\" \" & \" and mdr=\"&month(dtmCurDate)&\" \" & \"and aar =\"&intYear & \" \" & \"and userID=\"&Session(\"UserID\"))



                <tr>
<td colspan=\"7\" align=\"center\" valign=\"middle\" > <input type=\"button\"  value=\"<< Forrige\"onClick=\"parent.kalender.location=\'kalender.asp?date=<%=DateAdd(\"m\",-1,dtmFirstDate)%>\'\"  style=\"width:84;\"  class=\"submitButton5\"><input type=\"button\"  value=\"Næste >>\"onClick=\"parent.kalender.location=\'kalender.asp?date=<%=DateAdd(\"m\",1,dtmFirstDate)%>\'\"  style=\"width:84;\"  class=\"submitButton5\"> </td>
</tr>
</table>