controlla se c'e' "@"

[Sleazy]

Il file asp qui sotto esegue un controllo sul testo digitato dall'utente in un form e-mail

E' possibile modificare questo codice in modo che esegua un controllo anche su cosa viene scritto o meglio faccia una verifica sulla presenza o no di "@" in modi di essere sicuri che cio' che viene inserito sia proprio un e-mail?

Help

ps: e' la prima volta che uso asp....


<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

rem cambia questo indirizzo con un valido indirizzo SMTP del tipo mail.nomediminio
Mailer.RemoteHost = "127.0.0.1"
Mailer.FromAddress = Request.QueryString("addressfrom")
Mailer.AddRecipient "Nome destinatario","info@arkaline.com"
Mailer.Subject = "Soggetto email"

if not Mailer.SendMail then
Response.Write "errore! Inserisci nuovamente il tuo indirizzo e-mail"
else
Response.Write "grazie per esservi iscritti"
end if
%>
<%
'Verifica della correttezza di una email
function check_email(strng)
'Creazione della Regular Expression
Set regEx = New RegExp

'Definizione del pattern di validazione
regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"

'Ignoro maiuscole e minuscole nell'indirizzo email
regEx.IgnoreCase = True

'TRUE se l'email è valida
check_email = regEx.Test(strng)
end function
%>

[99eros9]

http://forum.html.it/forum/showthrea...hreadid=761919

[Roby_72]

<%
'Verifica della correttezza di una email
function check_email(strng)
	'Creazione della Regular Expression 
	Set regEx = New RegExp

	'Definizione del pattern di validazione
	regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"

	'Ignoro maiuscole e minuscole nell'indirizzo email
	regEx.IgnoreCase = True
	
	'TRUE se l'email è valida
	check_email = regEx.Test(strng)
end function
%>

Roby