ops !! piccola dimenticanza.... :rollo:

<%
function valido(indirizzo)
valido = true
if len(indirizzo) = 0 then exit function

dim nome, parte, i, c

nome = Split(indirizzo, "@")
if UBound(nome) <> 1 then
valido = false
exit function
end if
for each parte in nome
if Len(parte) <= 0 then
valido = false
exit function
end if
for i = 1 to Len(parte)
c = Lcase(Mid(parte, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
valido = false
exit function
end if
next
if Left(parte, 1) = "." or Right(parte, 1) = "." then
valido = false
exit function
end if
next
if InStr(nome(1), ".") <= 0 then
valido = false
exit function
end if
i = Len(nome(1)) - InStrRev(nome(1), ".")
if i <> 2 and i <> 3 then
valido = false
exit function
end if
if InStr(indirizzo, "..") > 0 then
valido = false
end if
end function
%>