Validare indirizzo mail

[djavex]

Buonasera a tutti ho un problema che non riesco a risolvere da giorni... devo validare un indirizzo e-mail all'iscrizione di un form per newsltter ma non mi funziona... poto i codici:

<form action="newsletter/from_form.asp" Method="Post" name="modulo2">



<table style="width: 867px" align="center" class="style2">
	<tr>
		<td>
		<form action="http://www.xxx.com/newletter/from_form.asp" Method="Post">

	
<table border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="000000">
<table cellpadding="5" cellspacing="3" align="center" class="style8">
<tr>
<td class="style9" style="width: 362px"><span class="style1">Tuo indirizzo 
e-mail</span><font face="Verdana" size="1" color="000000">:<span class="style5">

</span><input type="text" name="Email" size="15" maxlength="255" style="border-style: solid; border-color: inherit; border-width: 1px; color : #000000; background : #FFFFFF; font-family : Verdana,tahoma,Arial; width: 288px;" class="style9">
<span class="style5">


<span class="style11">Nome:</span>

</span><input type="text" name="Name_First" size="15" maxlength="255" style="border-style: solid; border-color: inherit; border-width: 1px; color : #000000; background : #FFFFFF; font-family : Verdana,tahoma,Arial; width: 168px;">
<span class="style5">


<span class="style12">Cogno</span><span class="style11">me:</span>

</span><input type="text" name="Name_Last" size="15" maxlength="255" style="border-style: solid; border-color: inherit; border-width: 1px; color : #000000; background : #FFFFFF; font-family : Verdana,tahoma,Arial; width: 169px;" class="style9">
<span class="style5">


<span class="style4"><input type="radio" name="Join_Quit" value="Join" checked></span> 
<span class="style12">Iscriviti</span>

</span><span class="style4"><span class="style5"><input type="radio" name="Join_Quit" value="Quit"> 
<span class="style12">Annulla Iscrizione</span>



 </span></span>
<input type="submit" size="20" value="Invia" style="border-style: solid; border-color: inherit; border-width: 1px; color: #000000; background-color: #EEEEEE; font-family : Verdana,tahoma,Arial; width: 72px;" class="style6"></font></td>

</tr>
<tr>
<td class="style9" style="width: 362px">

<p class="style6">Iscrivi alla Nostra Newsletter per ricevere tutte le 
informazioni </p>
</td>

Di seguito pagina "from_form.asp" :

<%
Dim useraction
Dim Email
Dim Action
Dim SQL

Email = lcase(request.form("Email"))
useraction = request.form("Join_Quit")

set RS = server.createobject("adodb.recordset")
SQL = "SELECT * FROM List WHERE Email = '" & Email & "'"
RS.open SQL, conn, 2, 2

If (request("Email") = "") Then
	Action = "Indirizzo e-mail non valido. Riprovare."
Else
	select case useraction
	case "Join"
		if RS.bof and RS.eof then
			RS.addnew
			RS("Email") = request("Email")
			RS("Name_Last") = request("Name_Last")
			RS("Name_First") = request("Name_First")
			RS("Date_In") = Date
			RS.update			
			Action = "Grazie per esserti iscritto alla Nostra Newsletter"
		else
			Action = "Sei gia' iscritto alla Nostra Newsletter!"
		end if
	case "Quit"
		if RS.bof and RS.eof then
			Action = "Non sei iscritto regolarmente al Nostra Newsletter!"
		else			
			sql2="DELETE FROM List WHERE Email = '" & Email & "'"
			conn.execute(sql2)
			
			Action = "Sei stato Rimosso dalla Nostra Newsletter"
		end if
	end select
End If

RS.close
set RS = nothing
%>

Come posso implementare e quindi post processare nella pagina "from_form.asp" la validazione della mail facendo restituire il messaggio come per campo vuoto: "Indirizzo e-mail non valido. Riprovare."

Vi Ringrazio anticipatamente.

[Vincent.Zeno]

Regular Expression Validare Email

[Vincent.Zeno]

Ciao djavex, i chiarimenti si chiedono qui, non in privato.
a meno che non si intenda ingaggiare qualcuno per il lavoro o ci sia un esplicita disponibilità.

pur potendo apparire cosa complicata alla fine dell'esempio c'è l'essenziale per comprenderla:

Valida = RegExpTest("ilpattern", "la@mail.it")
response.write valida

la funzione in se la puoi anche mettere da qualche parte in cima alla pagina (giusto per non averla in giro, ma questa non è un'indicazione di rilievo)

dal form recuperi la mail e diciamo che per comodità la metti in un variabile

EmailDaControllare = request.form("Email")
'quindi la controlli:
Valida = RegExpTest("ilPatternUsato", EmailDaControllare )
'response.write valida

a questo punto hai ottenuto la valorizazzione della variabile "Valida" in true o false
true se è valida
false se non lo è

ora sta a te giocare col valore ottenuto, es:

if Valida then
'fai questo
else
'puppa!
end if

non mi metto ad integrarlo nel tuo codice perché dovrebbe essere abbastanza chiaro.
se hai domande siamo qui

NOTA
come vedi in quell'articolo, in una delle risposte, è stato suggerito un'altro pattern per via di un piccolo bug del primo.
fai tu TUTTE le prove del caso

[djavex]

Grazie mille vincent.zeno... Avevo scritto in privato poiché avevo capito così dalla tua risposta... Basta così...Aiuti in privato... :-)

[djavex]

Scusa... Potresti integrarlo perché nn mi è molto chiaro... Sono un po' ignorantotto...grazie

[cavicchiandrea]

Originariamente inviato da djavex
Buonasera a tutti ho un problema che non riesco a risolvere da giorni... devo validare un indirizzo e-mail .....

Originariamente inviato da djavex
Scusa... Potresti integrarlo perché nn mi è molto chiaro... Sono un po' ignorantotto...grazie

Non mi sembra cosi difficile almeno provaci

[djavex]

Si si ho provato ma temo di aver fatto molti pasticci...

[Vincent.Zeno]

perché non ci fai vedere qualcosa?

[Massimo61]

Ciao,

<%
Function RegExpTest(strng)                                                    
Dim regEx 
Set regEx = New RegExp                                                      
regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"
regEx.IgnoreCase = True
RegExpTest = regEx.Test(strng)                                      
End Function 
%>
<%
Dim useraction
Dim Email
Dim Action
Dim SQL

Email = lcase(request.form("Email"))
useraction = request.form("Join_Quit")

set RS = server.createobject("adodb.recordset")
SQL = "SELECT * FROM List WHERE Email = '" & Email & "'"
RS.open SQL, conn, 2, 2


if Not(RegExpTest(Email)) then 
response.write"Indirizzo e-mail non valido. Riprovare."

Else
	select case useraction
	case "Join"
		if RS.bof and RS.eof then
			RS.addnew
			RS("Email") = request("Email")
			RS("Name_Last") = request("Name_Last")
			RS("Name_First") = request("Name_First")
			RS("Date_In") = Date
			RS.update			
			response.write"Grazie per esserti iscritto alla Nostra Newsletter"
		else
			response.write"Sei gia' iscritto alla Nostra Newsletter!"
		end if
	case "Quit"
		if RS.bof and RS.eof then
			response.write"Non sei iscritto regolarmente al Nostra Newsletter!"
		else			
			sql2="DELETE FROM List WHERE Email = '" & Email & "'"
			conn.execute(sql2)
			
			response.write"Sei stato Rimosso dalla Nostra Newsletter"
		end if
	end select
End If

RS.close
set RS = nothing
%>

cambia i Response.Write con la tua variabile.

Massimo.

[djavex]

grazie mille!!!!!!!!!!!!!