If sætning som driller :s

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/db/data.mdb")

SQLstmt = "SELECT * FROM Events ORDER BY Dato ASC;"

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
If Not rs("on_off") = "off" Then

  %></b></td>
                <td width="82%" align="left">
    <%

  DO WHILE NOT rs.EOF
    Events = rs("Event")
    Id = rs("Id")
    Dato = rs("Dato")

    %><font color="#000000" face="Verdana" size="1"><%=Dato%> : <a href="midten_event.asp?id=<%=Id%>"><%=Events%></a><br></font>
      <%
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"

    End if

Set SQLstmt = nothing
    %>

Det er især min if-sætning som jeg ikke kan få til at virke ...
Hvis Eventen er off skal den ikke vises