Skal ikke ske fejl når der intet er i DB

Set rs = conn.Execute(SQL)
if rs.eof then
  'Ingen aktivitet
else
  do while not rs.eof
    ...
    ...
    rs.MoveNext
  loop
end if

sådan her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(".mdb")
SQL = "SELECT * FROM events where cDate(aar&'-'&maaned&'-'&dag) = date() "&_
  "union "&_
  "SELECT top 5 * FROM (select * from  events where cDate(aar&'-'&maaned&'-'&dag) > date() order by aar, maaned, dag) "&_
  "order by aar, maaned, dag"
Set rs = conn.Execute(SQL)
if rs.eof then
  'Ingen aktivitet
else
  do while not rs.eof
%>

              <tr><%
                bgskift=0
                do while not RS.EOF
                      bgskift=bgskift + 1

                    if bgskift = 2 then
                    bgskift = 0
                end if

                    if bgskift = 0 then
                    color="bgcolor=''"
                    else
                  color="bgcolor='#f2f7fc'"
                end if
              %>
                <td width="20"></td>               
                <td>
                  <table border="0" width="100%" cellspacing="0" cellpadding="2">
                    <tr>
                      <td width="60" <%=Color%> valign="top"><b><% response.write RS("Dag") %>/<% response.write RS("Maaned") %>-<% response.write RS("Aar") %></b></td>
                      <td <%=Color%> valign="top">: <% response.write RS("Beskrivelse") %></td>
                    </tr>
                  </table>
                </td>
              </tr><%
RS.MoveNext
loop
%>

Du skal lige huske end if til sidst :-)

sådan her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(".mdb")
SQL = "SELECT * FROM events where cDate(aar&'-'&maaned&'-'&dag) = date() "&_
  "union "&_
  "SELECT top 5 * FROM (select * from  events where cDate(aar&'-'&maaned&'-'&dag) > date() order by aar, maaned, dag) "&_
  "order by aar, maaned, dag"
Set rs = conn.Execute(SQL)
if rs.eof then
  'Ingen aktivitet
else
  do while not rs.eof
end if
%>

              <tr><%
                bgskift=0
                do while not RS.EOF
                      bgskift=bgskift + 1

                    if bgskift = 2 then
                    bgskift = 0
                end if

                    if bgskift = 0 then
                    color="bgcolor=''"
                    else
                  color="bgcolor='#f2f7fc'"
                end if
              %>
                <td width="20"></td>               
                <td>
                  <table border="0" width="100%" cellspacing="0" cellpadding="2">
                    <tr>
                      <td width="60" <%=Color%> valign="top"><b><% response.write RS("Dag") %>/<% response.write RS("Maaned") %>-<% response.write RS("Aar") %></b></td>
                      <td <%=Color%> valign="top">: <% response.write RS("Beskrivelse") %></td>
                    </tr>
                  </table>
                </td>
              </tr><%
RS.MoveNext
loop
%>

nej, sådan her (din løkke skal jo hænge sammen, hvis der er data :-)):

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(".mdb")
SQL = "SELECT * FROM events where cDate(aar&'-'&maaned&'-'&dag) = date() "&_
  "union "&_
  "SELECT top 5 * FROM (select * from  events where cDate(aar&'-'&maaned&'-'&dag) > date() order by aar, maaned, dag) "&_
  "order by aar, maaned, dag"
Set rs = conn.Execute(SQL)
if rs.eof then
  'Ingen aktivitet
else
  do while not rs.eof
%>

              <tr><%
                bgskift=0
                do while not RS.EOF
                      bgskift=bgskift + 1

                    if bgskift = 2 then
                    bgskift = 0
                end if

                    if bgskift = 0 then
                    color="bgcolor=''"
                    else
                  color="bgcolor='#f2f7fc'"
                end if
              %>
                <td width="20"></td>               
                <td>
                  <table border="0" width="100%" cellspacing="0" cellpadding="2">
                    <tr>
                      <td width="60" <%=Color%> valign="top"><b><% response.write RS("Dag") %>/<% response.write RS("Maaned") %>-<% response.write RS("Aar") %></b></td>
                      <td <%=Color%> valign="top">: <% response.write RS("Beskrivelse") %></td>
                    </tr>
                  </table>
                </td>
              </tr><%
RS.MoveNext
loop
end if
%>

Husk i øvrigt at bruge din forgrening til noget aktivt, for ellers kan du lige så godt undlade at lave den. Det giver altså ingen mening at lave denne kode:

if rs.eof then
  'Ingen aktivitet
else


...men man må antage at du f.eks. vil give brugeren en besked om at der ikke er data i udtrækket, eller sådan noget (hvilket du bruger denne forgrening til)... :-)

Tak for det.

det er en aktivitets kalender til en golfklub, og i vinermånederne er der ikke aktiviteter, så er det at jeg vil have ingen aktivitet i kalender udtrækket

er det nogle der skal have points så jeg kan lukke

Velbekomme :)

Tak for point :)