Sæt felt fra database ind i kalenderen

Jeg har nedstående kode, som er en kalender. Hvis der sker nogle arrangementer på dagene bliver baggrunden i cellen blå. Den søger databasen igennem for at finde ud af om der sker nogen de forskellige dage. Hvis der sker nogen en dag, vil jeg gerne at den under datoen indsætter overskriften(overskrifterne) fra databasen på de arrangementer som den pågældende dag. Der kan godt være flere arrangemnter samme dag, så de skal stå neden under hinanden.

---------------------------------------------
<td valign=\"top\">
<span class=\"uoverskrift\"><IMG SRC=\"images/punkt.gif\" >&nbsp;<a class=\"uoverskrift\" href=\"default.asp?\"> Forsiden</a> <IMG SRC=\"images/punkt.gif\"> Kalender - Arrangementer i Troldhøj Division</span><br><br>
<p>
<%
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)&\" \" & \"and aar =\"&intYear )
          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>
<a class=\"normal\" href=\"default.asp?side=kalender&subside=komplet\"><b>Kompelt liste over arrangementer i kalenderen</a></b><br>
<span class=\"normal\">Der taget forbehold for fejl. I øvrigt henvises der til kalenderen i Divisionsbladet.<p>
</span>
</td>
------------------
Feltet der skal indsættes hedder overskrift