Malingliste og ASP

Nogen der kan se hvad fejlen er her?
Første gang jeg tilføjer en email, virker det, anden gør det ikke.
Men efter 3 - 4 min. virker det igen, er der fejl i mit ASP script, eller er problemet min database?
Scriptet kan måske laves bedre?

<%

    if request.form("email") = "" then
    response.redirect ("default.asp")
    end if

Function ParseDate(strDate)
  ParseDate = Month(strDate) & "-" & Day(strDate) & "-" & Right(Year(strDate),2)
End Function

on error resume next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("malingliste.mdb")

     
Set rs = Conn.Execute("SELECT email FROM liste WHERE email = '"&replace(request.form("email"), "'", "''")&"'")

if not rs.eof then
    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing
   
response.redirect ("http://www.minwebside.dk/main/default.asp?mode=return")
else

    Conn.execute "INSERT INTO liste (dato, email) VALUES (#"&ParseDate(date())&"#, '"&replace(request.form("email"), "'", "''")&"')"

end if

    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

    response.redirect("http://www.minwebside.dk/main/default.asp?mode=tilmeldt")
   
if err <> 0 then
response.redirect("http://www.minwebside.dk/main/default.asp?mode=error")
end if
%>