Udtræk fra database skal vises i kalender

Hej alle

Jeg har fundet en ASP-kalender som jeg har tilrettet en smule.

Nu mangler jeg bare at de poster i databasen skal vises i kalenderen.
Som det er nu vises kalenderen lidt á lá Outlook's månedsvisning.
Den viser også (med rød skrift) hvilken dag der er dags dato, men jeg vil gerne udvide den, så den også markerer (med fed eller en anden skriftfarve) hvilke datoer der er events på.

Jeg har følgende kode:

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

sql = "SELECT * FROM Kalender WHERE KMonth = "&Month(Now)
set rs = Conn.Execute(sql)
if not (rs.bof or rs.eof) then
    entry = true
end if
%>

<table cellspacing="0" cellpadding="0" border="0" valign="top" width="175">
    <tr>
        <td height="20">
        <%'=entry%>
        </td>
    </tr>
   
    <tr>
        <td align="center">M</td>
        <td align="center">T</td>
        <td align="center">O</td>
        <td align="center">T</td>
        <td align="center">F</td>
        <td align="center">L</td>
        <td align="center">S</td>
    </tr>
        <%
        For y = 1 to 6
          If blnLast <> True Then
            Response.Write "<tr>"
            For x = 1 to 7
              Response.Write "<td align=center>"
              intLoopDay = intLoopDay + 1
              If intLoopDay >= intFirstDay Then
                dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
                If Month(dtmCurDate) = Month(dtmFirstDate) Then
                  If dtmCurDate = dtmToday Then
                    Response.Write "<strong><a href=?side=Kalender>"
                  End If
                  Response.Write Day(dtmCurDate)
                  Response.Write "</a></strong></td>"
                  blnLast = False
                Else
                  Response.Write "-</td>"
                  blnLast = True
                End If
              Else
                Response.Write "-</td>"
                blnLast = True
              End if
            Next
          End If
        Next
        Response.Write "</td></tr>"
        %>
    <tr>
        <td colspan="7" align="right">
            <a href="?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><img src="images/prev.jpg" width="11" height="10" border="0" title="Forrige måned"/></a> <a href="?side=Forsiden"><img src="images/home_cal.jpg" width="11" height="10" border="0" title="Dags dato"/></a> <a href="?date=<%=DateAdd("m",1,dtmFirstDate)%>"><img src="images/next.jpg" width="11" height="10" border="0" title="Næste måned"/></a>
        </td>
    </tr>
</table>