Lille kode fejl

Hejsa, jeg er ved at lave en lille nyhedsbrev funktion...


<%
if Request.Form("email") <> "" then
        email = Request.Form("email")
    If Valider(email) Then
        set conn = Server.CreateObject("ADODB.Connection")
        conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database/bramsborg.mdb")
        If Request.Form("RADIO") = "false" Then
        conn.Execute("DELETE * FROM maillingliste WHERE email='" & email & "'")
        if BOF AND EOF then
        V_Status    = "E-mail adressen findes ikke på listen."
        else
        V_Status    = "E-mail adressen er nu slettet fra listen."
        end if
        else
        on Error Resume Next
        conn.Execute("insert into maillingliste (email) values ('" & email & "')")
        On Error GoTo 0
        V_Status    = "E-mail adressen er nu tilføjet til listen."
        end if
        conn.Close
        set conn = nothing
    end if
end if
%>

Fejlen kommer når man prøver at slette ens e-mail adresse, koden skal nemlig vurdere om e-mailen er der i forvejen... Lidt hjælp...