Controllare email e codice

[orcim]

sql = "SELECT email, codice FROM tbl WHERE email='" &request("email")& "' and codice='" & codice & "'"
response.write sql
Set Rec = Server.CreateObject("ADODB.Recordset") 
Rec.Open sql, conn, 3, 3 

if not Rec.bof and not Rec.eof then 
Response.write "procedura KO"

else

response.write "procedura OK"

questo code dovrebbe controllare l'esistenza in un dbase di un email e di un codice personale assegnato automaticamente ad ogni utente; quando si cerca di inserire un email o un codice già presenti nel dbase la procedura dovrebbe dare KO... invece restituisce sempre OK...
dove sbaglio?
Grazie