Tjek om dagen er oprettet

Jeg har følgende:

<html>

<head>
<link rel="stylesheet" href="../css/stylesheet.css" type"text/css">
<title>Kalender.asp</title>
</head>

<body bgcolor="#C8C8C8" topmargin="0" leftmargin="0">

<div align="center">

<br>
<p class="headline">Kalender</p>
<br>

<%

Session.lcid = 1030

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("adresse.mdb"))

strSQL = "SELECT DISTINCT dato FROM aftaler ORDER BY dato"
set rs = Conn.Execute(strSQL)

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="0" valign="top" width="200">
  <tr>
      <td colspan="7" align="center" valign="middle" bgcolor="#373737"><font color="#FFFFFF"><b><% =strMonth%>&nbsp;<%=intYear%></b></font></td>
  </tr>
  <tr>
      <td align="center"><b>Man</b></td>
      <td align="center"><b>Tir</b></td>
      <td align="center"><b>Ons</b></td>
      <td align="center"><b>Tor</b></td>
      <td align="center"><b>Fre</b></td>
      <td align="center"><b>Lør</b></td>
      <td align="center"><b>Søn</b></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><font color='#ff0000'>"
                    End If

                    If dtmCurDate = rs("dato") Then
                        Response.write "<b><a href='aftale.asp?dato=dtmCurDate'>"
                        rs.MoveNext
                End If
                   
                        Response.Write Day(dtmCurDate)
                        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 "</td></tr>"%>

  <tr>
      <td colspan="3"><b><a href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><< Forrige</a></b></td>
      <td>&nbsp;</td>
      <td colspan="3" align="right"><b><a href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste >></a></b></td>
  </tr>
</table>

</div>
</body>
</html>
********************************************'

Jeg vil her have highlighted de datoer der er med i rs. jeg får en fejl når rs når til EOF - klart nok. Jeg ved bare ikke lige helt hvordan jeg skal indbygge While Not rs.EOF - er der nogen der kna hjælpe?