Saber Si Un Campo Es Un Email Urgentisimooooo

[Manoloweb]

Esta pequeña funcion la hice para comprobar la validez de correos electronicos, en la ultima parte del correo solo valido que sea un campo de 2 a 6 caracteres despues del punto, para que pueda validar TLD's como .info .cl .museum etc...

Código:

	Dim miXR, malMail
	set miXR = new RegExp
	miXR.Global =True
	miXR.Pattern = ("(^[\w\.]{1,})@([\w\.]{1,})\.([a-z,A-Z]{2,6})$")
	If Not miXR.Test (request.form("email")) Then
  		malMail="si"
	End If

Lo unico que debes hacer es checar si malMail="si", entonces quiere decir que el mail esta incorrecto.


Saludos