verification mail avec split [Résolu]

[boss_gama]

Salut à tous,
je récupères une série de mails en provenance d'une base de données et je voudrais tester leurs validités avant de les utiliser.

J'ai déja fait cette fonction qui m'enlève 98% des mails invalides, en vérifiant que l'adresse comporte bien un seul '@', et la partie de droite de l'email comporte bien un seul '.':

Code :

1
2
3
4
5
6
7
8
 
arr = split(rcdst("SocEmail"),"@")
if Ubound(arr) = 1 then
	arr2 = split(arr(1),".")
	if Ubound(arr2) = 1 then
		response.write rcdst("SocEmail") & "<br>"
	end if
end if

Je pense avoir géré toutes les erreurs les plus courantes là? Vous en voyez d'autres? Au fait qu'est censé renvoyé split si il ne trouve pas le caractère?

[malbaladejo]

tu aurais pu utiliser une expression régulière pour tester que la chaine de caractères correspond bien a un e-mail.
Si tu cherches des patterns pour tester une adresse mail tu en trouveras ici :
http://www.regexlib.com/Search.aspx?k=email

[boss_gama]

C'est parfait, c'est exactement ce que je cherchais. il est nickel cet objet.
thx malbaladejo

[boss_gama]

en fait j'ai un souci...
Je croyais que mon code marchait mais ce n'est pas le cas.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
rcdst.open "SELECT * FROM table_fiches WHERE SocCorb <> -1",conn	count = 0
Set RegEx = New RegExp
RegEx.Pattern = "^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$"
do while not rcdst.eof
        if RegEx.IsMatch(rcdst("SocEmail")) then
		response.write rcdst("Socnum") & " |" & rcdst("SocEmail") & "|<br>"
		count = count + 1
	end if
        rcdst.movenext
 
loop

J'ai une erreur qui revient de temps en temps:
Classe non définie: 'RegEx'

[Immobilis]

Salut,
Je crois que la regex en question est a utiliser au moment de la saisie avec du javascript.
A+

[boss_gama]

la méthode tu veux dire?
Ou bien tu veux dire que l'on ne peut pas utiliser les expressions regulières avec asp???