Flere records pr dag i kalender

Hej E
Jeg er ved at lave en kalender, den virker, men jeg kan ikke greje hvordan jeg får indsat mere end et recordset pr dag.
rs("text_field") er feltet der skrives i <td>kalenderdagen.

    StrSql = "SELECT * FROM calendar WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"
    Set rs = Conn.Execute(StrSql)
    intCount= 0
    'populate array with days of month
    Do Until rs.EOF Or intCount = 31
    If Day(rs("dte")) = intCount + 1 Then
                dictDte(intCount, 1) = "<font color=#000066>"&rs("text_field")&"</font>" & "<br>"
        rs.Movenext       
    End If
    intCount = intCount + 1
    Loop
    rs.Close

Her kreeres selve kalederen, hvor <%=formatStr(dictDte(Day(dtCurViewDay)- 1, 1))%> skriver recorden fra db'en. Denne string vil jeg gerne have til at indeholde alle de records der opfylder kriterierne.

    For iWeek = 0 To 5
    Response.Write "<tr valign=top>" & vbCrLf
        Dim sBGCOLOR
        For iDay = 0 To 6
            sBGCOLOR = "#ACCFFB"
            If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
                If dtCurViewDay = dtToday Then sBGCOLOR = "#FF9933"
            Else
            sBGCOLOR = "#CCCCCC"
            End if %>
            <td height="50px" bgcolor="<%=sBGCOLOR%>" onClick="window.location.href='default.asp?mode=sedag&amp;view_date=<%=day(dtCurViewday) & "-" & monthname(month(dtCurViewday)) & "-" & Year(dtCurViewMonth)%>'" onMouseover="this.className = 'dagover';" onMouseout="this.className = 'dagout';" >
        <%    If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
            '---- Write day of month %>
            <a href="default.asp?mode=sedag&amp;view_date=<%=day(dtCurViewday) & "-" & monthname(month(dtCurViewday)) & "-" & Year(dtCurViewMonth)%>">
            <font class="link"><%=Day(dtCurViewDay)%></font>
            <br>
            <font class="link"><%=formatStr(dictDte(Day(dtCurViewDay)- 1, 1))%></font>
            </a>
        <%    End If
   
        Response.Write "</td>" & vbCrLf
        dtCurViewDay = DateAdd("d", 1, dtCurViewDay)
        Next

    Response.Write "</tr>" & vbCrLf
    Next %>


Hvis jeg har posted flere records til én bestemt dato, udskrives kun den sidste posted record....

Hvordan ændre jeg dette til at der udskrives alle de records der er til den pågælende record.

/Skjold