Tjekke om data findes

Jeg skal lave en afmelding af nyhedsbrev, hvor brugeren skal udfylde sin mailadresse.

Der skal så tjekkes om den findes i databasen. Hvis den gør skal den slettes, hvis ikke så ......

Kender nogen en funktion til dette?

Jeg har prøvet med dette, men det virker ikke rigtigt:

function Tjekemail(mail)
        Set DBConn = Server.CreateObject(\"ADODB.Connection\")
        DBConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"data/newsletter.mdb\")
        sqlString=\"SELECT userid FROM users WHERE useremail = \'\"& mail & \"\'\"
        Set RS = DBConn.Execute(sqlString)
       
        if RS.EOF then
        Tjek=1 \'hvis den ikke findes
        else
        Tjek=0 \'mailen findes
        end if
End function

\'Sletter bruger

function sletbruger(mail)
        Set DBConn = Server.CreateObject(\"ADODB.Connection\")
        DBConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"data/newsletter.mdb\")
   
        DBConn.Execute \"DELETE FROM users WHERE useremail = \'\"& mail & \"\'\"
        DBConn.Close
        Set DBConn = Nothing
end function

mail=request.form(\"mail\")
if mail=\"\" then
message=\"Du skal skrive en emailadresse!\"
else

Tjekemail(mail)
if Tjek=1 then
message=\"Det angivne emailadresse eksisterer ikke\"
else
if Tjek=0 then
message=\"Du vil nu ikke længere modtage vores nyhedsbrev\"
sletbruger(mail)
end if   
end if
end if