login via kundenummer eller email....

Jeg har lavet et login hvor man kan vælge at bruge kundenummer eller email - Det virker også fint med kundenummer, men ikke med email...

Hvad er årsagen til det???

<!--#include file="path.asp"-->
<%
KUNDENR = Request.Form("KUNDENR")
PASS = Request.Form("PASS")

if inStr(1, KUNDENR ,"@") > 0 then
    BASEFELT = "EMAIL"
    else
    BASEFELT = "KUNDENUMMER"
    end if


Fundet = 0

ON ERROR RESUME NEXT

ERR.clear ()

' ----------------- Tjekker om personen er aktiveret i basen

Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Open db
Sql = "Select * from PERSONER WHERE (" & BASEFELT & " = " & KUNDENR & ")"
Set Record =  Rs.Execute(Sql)

BasePass = record("PASSWORD")
Record.Close
RS.Close

if ERR.number = 0 then
        If lcase(PASS) = lcase(BasePass) then
            Fundet=1
            Else
            Fundet=3
            End if
end if