Når RecordSettet er tomt

Jeg henter nogle dat fra en query i access, der er bare ikke altid at der står noget i queryen (er sat til at udvælge på dato).

Når jeg så henter via asp får jeg exception fejl, hvilket jo også er ok - men jeg ville gerne have at man så istedet fik en besked om at den var tom. Har prøvet nedenstående uden større held:

<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN = DSN & "DBQ=" & Server.MapPath("/db/arrangement.mdb")
  Conn.Open DSN
 
  SQL = "Select * from qry_dagensarrangementer"
  Set rs = Conn.Execute(SQL)

  If rs.("arrangementDato") = "" Then
    Response.Write "Der er ingen registrerede arrangementer i dag<br><br>"
    Response.Write "<a href="arrangement_opret.htm">Opret Arrangement</a>"
  Else
    Response.Write "<h2>Dagens arrangementer: " & rs("arrangementDato")& "</h2>"
 
    Response.Write "<table border='0' cellspacing='0' width='100%'>"
    Response.Write "<tr>"
    Response.Write "<td><font size='1'><b>Tidspunkt</b></font><hr></td>"
    Response.Write "<td><font size='1'><b>Arrangement</b></font><hr></td>"
    Response.Write "<td><font size='1'><b>Sted</b></font><hr></td>" 
    Response.Write "</tr>"

    Do
      Response.Write "<tr>"
      Response.Write "<td><font size='1'>" & FormatDateTime(rs("arrangementTidspunkt"),4) & "</font></td>"
      Response.Write "<td><font size='1'>" & rs("arrangementOverskrift") & "</font></td>"
      Response.Write "<td><font size='1'>" & rs("arrangementSted") & "</font></td>"
      Response.Write "</tr>"
    rs.MoveNext

    Loop While Not rs.EOF

    Response.Write "</table>"
 
  Endif 

  Conn.Close
  Set Conn = Nothing
%>

ps.Kender i en god bog der omhandler .asp op mod access???


Bedste Hilsner
René