modificare codice per email

[andy_s]

ciao a tutti
come posso modificare questo codice (mantenendolo la forma)
in modo che mi faccia un controllo sulla corettezza del
indirizzo email (@ ecc)
--------------------------
If IsEmpty(request.form("Email")) or request.form("Email")="" then
response.write "<center><font face='arial' size=4>"
response.write "


Devi inserire un indirizzo Mail valido.</font>"
response.write "<form>"
response.write "<input type='button' value='Indietro' onclick=history.back()>"
response.write "</form>"
response.end
Else
Email = request.form("Email")
End If

----------------

ciao

[weppos]

Usa le regular expressions http://www.weppos.com/asp/script/scr....asp?script=13

[andy_s]

si avevo già visto questo sito,
ma non so come integrare il codice con questo.

ti spiego: questo codice fa parte di altro codice
e quindi bisognerebbe mantenere questa forma per non andare
a cambiare tutto

riesci a modificare il mio mettendo quello che mi hai postato??

ciao

[andy_s]

up

[andy_s]

c'è nessuno che mi riesce a modicare il codice....

ciao

[Roby_72]

If IsEmpty(request.form("Email")) or request.form("Email")="" or IsEmail(request.form("Email")) = false then 
response.write "<center><font face='arial' size=4>" 
response.write "


Devi inserire un indirizzo Mail valido.</font>" 
response.write "<form>" 
response.write "<input type='button' value='Indietro' onclick=history.back()>" 
response.write "</form>" 
response.end 
Else 
Email = request.form("Email") 
End If 

function IsEmail(strEmail) 
Dim objRegExp 
Set objRegExp = New RegExp 
objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z0-9]{2,4}$" 
objRegExp.IgnoreCase = True 
IsEmail = objRegExp.Test(strEmail) 
end function

Roby

[andy_s]

funziona...
però passa direttamente al controllo successivo senza ritornare al form (come faceva prima, ossia tornava al form in modo che si potesse inserire un altro campo)
adesso mi fa direttamente il controllo sul campo successivo
senza darmi la possibilità di inserire


ciao

[Roby_72]

E allora non funziona.
Dovrebbe passare per il pulsante.
Non ci va?

Roby