hvad gør jeg forkert her password check(email)

Jeg har følgende kode: Når jeg kalder functionen skal den tjekkee om emailen allerede er oprette i systemet, hvis den er det skal functionen returnerer false, men hvis den ikke er oprette skal den returnerer true. Jeg kan ikke rigtig få det til at virke.

<%
Function Connect ()
    set ObjConn = Server.Createobject("ADODB.Connection")
    objConn.Open  "DSN=news1;DataBase=news;UID=;PWD=;"
    set Connect = objConn   
    Set objConn = nothing
End Function

sub sendMail()
    set obj = Connect()
    dim SQLString
    SQLString = "INSERT INTO membersaccount(email) VALUES('"+ Request("email")+"')"
    obj.Execute SQLString
    set obj = nothing
End sub

Function checkMail()
    set obj = Connect()
    dim SQLString
    SQLString = "SELECT email FROM membersaccount" 'WHERE email = '" + Request("email") + "'"
    Set RS = obj.Execute (SQLString)
   
   
        If RS("email") <> Request ("email")  Then
            Response.Write "forskellig fra" 'returnere false
        end if


checkMail = false
End Function

%>