Originariamente inviato da Girogio
Ragazzi mi potreste spiegare perchè questa funzione lato server non mi funonzia???
Mi sfugge qualcosa....



codice:
<%
Function IsMail(sEmail)
	Dim objRegExp
	Set objRegExp = New RegExp 
	objRegExp.Pattern = "^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$" 
	objRegExp.IgnoreCase = True 
	IsMail = objRegExp.Test(sEmail)
End Function 
%>
	
	<%
	DIM NewEmail
NewEmail = Request.Form("EMAIL")
privacy = Request.Form("privacy")

if privacy &"[]" <> "[]" then
    'Apri connesssione!!!!!!!!!!!!!!!!!!!!!!
E processo i dati...................
Non mi funzione nel senso che anche se inserisco nel campo mial pippo mi accetta la scrittura e lo salva nel db..
Grazie.
codice:
<%
Function IsMail(sEmail)
	Dim objRegExp
	Set objRegExp = New RegExp 
	objRegExp.Pattern = "^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$" 
	objRegExp.IgnoreCase = True 
	IsMail = objRegExp.Test(sEmail)
End Function 
%>
	
	<%
	DIM NewEmail
NewEmail = Request.Form("EMAIL")
if IsEmail(NewEmail) then
privacy = Request.Form("privacy")

if privacy &"[]" <> "[]" then
    'Apri connesssione!!!!!!!!!!!!!!!!!!!!!!
E processo i dati...................
end if