Correttezza sintattica e-mail

Grazie al seguente script è possibile effettuare un proprio controllo sulla sintassi di un indirizzo di posta elettronica.

<%

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

%>