Valdazione indirizzo e-mail

[Grinder]

Per validare un indirizzo email uso questo script:

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

ind_email = request.querystring("txtEmail")

if valida(ind_email) = false then
response.redirect("notifica.asp?id=2")
end if

Non so bene perchè ma con TRUE accetta qualsiasi cosa si immetta, con FALSE non accetta mai niente! Come si spiega questa cosa?

[Fichico]

non ne sono sicurissimo ma prova con:

if not(valida(ind_email)) then
response.redirect("notifica.asp?id=2")
end if

ma cmq imho è molto più semplice farli iscrivere e mandare un link per confermare l'iscrizione, e se non confermano entro un tot di gg segare

[Grinder]

Ma così si rischia di avere indirizzi fasulli nel database

[Roby_72]

'************* 'Controllo email *****************************
function check_email(strng)                                                     ' Per verificare la correttezza della mail
	Set regEx = New RegExp                                                      ' Creo una regular Expression 
	regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"    ' Determino il pattern di validazione 
	regEx.IgnoreCase = True                                                     ' Nessuna differenza tra maiuscole e minuscole
	check_email = regEx.Test(strng)                                             ' torna TRUE se la stringa è valida
end function
'************************************************************

Roby

[Grinder]

Controlla anche la posizione del punto e la presenza della "@"?

[Roby_72]

Controlla tutto.

Roby

[Grinder]

Grazie

[Barman@83]

http://freeasp.html.it/articoli/view...olo.asp?id=238

[weppos]

Meglio usare le regexp come segnalato da Roby.

[Gio&Ste]

C'è qualcosa che non mi va:

Wrong number of arguments or invalid property assignment: 'check_email'