Validare un indirizzo email

[Grinder]

Sto provando ad usare questa funzione per controllare la sintassi dell'indirizzo email inserito:

function valida(mail)
dim posAt
posAt=0
dim posPunto
posPunto=0
dim arAppo
arAppo=split(mail,"@")
dim qtAt
qtAt=ubound(arAppo)

if (qtAt=1) then
posAt=inStr(mail,"@")
posPunto=inStr(posAt+2,mail,".",0)
if(posPunto<>0)then
if(posPunto+2+posAt<len(mail)) then
valida=True
else
valida=False
end if
else
valida=False
end if
else
valida=False
end if
end function

che richiamo così se non dovesse essere corretto

dim email="pincopallino@email.it"
if (valida(email))=false then 
  Response.Redirect("errore.asp?id=3")
end if

Non capisco perchè continui a dirmi di inserire l'indirizzo email!!