Correttezza sintattica e-mail

Questo semplice script permette di effettuare un controllo sulla sintassi di un indirizzo e-mail:

<%
function controlla(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
controlla=True
else
controlla=False
end if
else
controlla=False
end if
else
controlla=False
end if
end function
dim strMail
strMail="webmaster@innovatel.it"
response.write controlla(strMail) 'Restituisce True o False a seconda 
della correttezza o meno dell'indirizzo email specificato
%>