Hvorfor virker "else" ikke?

Jeg har en side, som skal vise nogle poste fra en database, afhængig af datoen.. Kun poster med en dato større end datoen nu, skal vise... Det virker, men når der ikke vise nogle eks. skal der står "Ikke noget fortiden".. Men det kommer ikke frem:


<%
mode = Request.QueryString("mode")
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kalender.mdb")
Conn.Open DSN

strSQL = "Select * From kalender where check>now" ' where check>'" & FormatDateTime(Now, vbShortDate) & "'"
Set rs = Conn.Execute(strSQL)

DenneDag = FormatDateTime(Now, vbShortDate)

DO WHILE NOT rs.EOF
    check = rs("check")
    sted = rs("sted")
    dato = rs("dato")   
    if check <> FormatDateTime(Now, vbShortDate) then
        Response.Write("<TR><TD width='19%'><font size='2' face='Verdana'>&nbsp;&nbsp;" &  dato & "</td>")
        Response.Write("<TD width='81%'><font size='2' face='Verdana'>" &  sted & "</td></tr>")
    else
        Response.Write("<font size='2' face='Verdana'>Ikke noget fortiden..</font>")

    End if

    rs.MoveNext
Loop
  %>
<%
Conn.Close
Set Conn = Nothing
%>

<% if mode = "all" then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kalender.mdb")
Conn.Open DSN

strSQL = "Select * From kalender"
Set rs = Conn.Execute(strSQL)

DO WHILE NOT rs.EOF
    check = rs("check")
    sted = rs("sted")
    dato = rs("dato")
   
    Response.Write("<TR><TD width='19%'><font size='2' face='Verdana'>&nbsp;&nbsp;" &  dato & "</td>")
    Response.Write("<TD width='81%'><font size='2' face='Verdana'>" &  sted & "</td></tr>")
   
    rs.MoveNext
Loop




end if %>