Der mangler et LOOP men jeg ved ikke hvor?

Hej

Jeg har det her kalender system som jeg er ved at udbygge. Det henter fra en database og hvis der er en dato i databasen for den pågældene måned gør den en ting ellers noget andet.

Men den tager kun den første post i databasen.

I kan se det her: http://bs.jtponline.dk Kalenderen er til højre.
Der er to datoer grønne. Men det er kun den første post i databasen. Den tager ikke alle post'ne..

Her er koden:

<br><font color="#000080"><b>Udlejning af materialegården</b></font>
<%
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)
%>

<div align="center">
<table cellspacing="0" cellpadding="2" border="0" valign="top" style="border: 1px solid rgb(0,0,0)">
<tr>
<td colspan="7" align="center" bgcolor="#000080"><b><font color=#ffffff><%=Ucase(left((strMonth),1))&Mid(strMonth,2)%></font></b></td>
</tr>
<tr>
<td align="center">Man</td>
<td align="center">Tir</td>
<td align="center">Ons</td>
<td align="center">Tor</td>
<td align="center">Fre</td>
<td align="center">Lør</td>
<td align="center">Søn</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
       
          SQL = "SELECT * FROM bs_kalender"
          Set rs = Conn.Execute(SQL)
         
          If NOT(Rs.BOF AND Rs.EOF) Then
         
          start = rs("start")
          slut = rs("slut")
       
          If dtmCurDate = dtmToday Then
            Response.Write "<strong>"
          End If
         
          if rs("godkendt") = "1" then
              if dtmCurDate >= cdate(start) AND dtmCurDate <= cdate(slut) then
              Response.Write "<font color=#00CC00><a href='java script:alert(""Beklager men materielgården er desværre udlejet i den pågældende periode. Kontakt venligst viseværten på 38 87 51 95, hvis du har spørgsmål."")' class=calender2>"&Day(dtmCurDate)&"</a></font>"
              else
              Response.Write "<a href='udlej.asp' class=calender>"&Day(dtmCurDate)&"</a>"
              end if             
          else
              if dtmCurDate >= cdate(start) AND dtmCurDate <= cdate(slut) then
              Response.Write "<font color=#ff0000><a href='java script:alert(""Beklager men materielgården er desværre udlejet i den pågældende periode. Kontakt venligst viseværten på 38 87 51 95, hvis du har spørgsmål."")' class=calender1>"&Day(dtmCurDate)&"</a></font>"
              else
              Response.Write "<a href='udlej.asp' class=calender>"&Day(dtmCurDate)&"</a>"
              end if 
          end if

            else
              Response.Write Day(dtmCurDate)
          end if
       
          Response.Write "</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 "</font></td></tr>"
%>
<tr>
<td bgcolor="#000080" colspan="3"><b>
<font color=#ffffff>
<a href="?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></td>
<td bgcolor="#000080">&nbsp;</td>
<td bgcolor="#000080" colspan="3" align="right"><b><a
href="?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></b>
</font>
</td>
</tr>
</table>
</div>

Er der en der kan se hvor der mangler noget?