Ingen poster i tabellen eller over dato!

Hejsa

Jeg har følgende kode:

<HTML>
<HEAD>
<TITLE>Fagseminar</TITLE>
</HEAD>

<BODY text=#000000 vLink=#000000 aLink=#000000 link=#000000 rightMargin=0>
        <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=Fagseminar.mdb"
        Conn.Open "DBQ=" & Server.Mappath("Fagseminar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT Fagseminar, FagseminarId, Dato FROM Fagseminar ORDER BY Fagseminar"

        rs.Open SQL, Conn

        x = 0
        For x = 1 to 9999
        If rs.eof then
        Exit For
        Else

  'URL Convert
  Fagseminar = "<a style='text-decoration:none' href='info.asp?Fagseminar=" & rs("Fagseminar") & "'>" & rs("Fagseminar") & "</a>"
  'End URL Convert

        %>
     
     
        <% =Fagseminar %>
        <br>       
        <%
        rs.MoveNext
        End If
        Next
        %>
               
</BODY></HTML>


Hvordan gør jeg sådan at hvis den ikke finder nogen fagseminar i databasen, ja så skriver den at der ikke er nogen, og hvis fagseminarens er overstået (altså hvis den dato der høre til fagseminaren ligger før den dato vi har i dag), så viser den den ikke? Håber det kan forståes.