Controllo sintassi

[Grinder]

Sto provando lo script preso da freeASP.it, ma mi restituisce sempre il messaggio d'errore (quello che ho messo io se uno non inserisce un email valida):

function controlla(email)
dim posAt
posAt=0
dim posPunto
posPunto=0
dim arAppo
arAppo=split(email,"@")
dim qtAt
qtAt=ubound(arAppo)

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

che richiamo così

valida = controlla(email)
if (valida = false) then 
  Response.Redirect("errore.asp?id=3")
end if

Dov'è che sbaglio?

[burruchaga]

ke eerore ricevi

[Grinder]

Di sistema nessuno, solo quello che ho creato io, e continua a dirmi di inserire l'indirizzo e-mail