controllo email

[gianni80]

Salve ragazzi, scusatemi se vi porgo una domanda, sperando in una vostra gentile risposta. Sto creando una form con vari campi e voglio che vbscript controlli che l'email sia valida cioè che sia formata da un pezzo di testo, una chiocciola, un altro pezzo di testo ed una estensione (.it . co.uk etc.), io ho usato questo codice semplicemente per verificare che è stata inserita un email e non un email valida, sapreste modificarmelo.. grazie mille ("inserimento" sta per il id del form)

<script Language="Vbscript">
function Inizio()
inserimento.ciao.focus
end function
//-->
<!--
Function inserimento_OnSubmit()


If len(document.inserimento.email.value) = 0 then
msgbox "Non hai inserito un email valida"
inserimento.email.focus
inserimento_onsubmit = false
exit function
end if


end function
//-->
</script>

[fraude]

Ciao.

Cerca sul forum (anche quello javascript) per Regular expression; comunque questo è un esempio, prova ad adattarlo:

<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function emailCheck(emailStr) {

var emailPat = /^(\".*\"|[A-Za-z]\w*)@(\[\d{1,3}(\.\d{1,3}){3}]|[A-Za-z]\w*(\.[A-Za-z]\w*)+)$/;
var matchArray = emailStr.match(emailPat);
if (matchArray == null) {
alert("Email non corretto");
return false;
}

return true;
}
//  End -->
</script>


<center>
<form name=emailform onSubmit="return emailCheck(this.email.value);">
Email:  <input type=text name="email">

<input type=submit value="Submit">
</form>
</center>

[gianni80]

Grazie per la risposta, ma se integro il vbscript con il javascriptche controlla la email , il secondo non funziona. Se qualcuno riesce a modificarmi quella funzione ne sarò grato.grazie mille

[santino83_11_04]

mi dispiace ma sotto mano non ho quella che usa le regExp

'funzione per validare un indirizzo email (no regexp)
'Se Torna False la Mail è Valida
'Se torna True la Mail Non è valida
Function Valida_Email(Var_Email)
'Se Torna False la Mail è Valida
'Se torna True la Mail Non è valida

bolError = False

If len(Var_Email) < 10 Then
	bolError = True
ElseIf len(Var_Email) >= 10 Then	
	x = 1
	y = 0
	bolNotExt = False
	Do Until x = Len(Var_Email)
		If Mid(Var_Email,x,1) = "@" Then
			y = y + 1
		Else
			y = y
		End If
		x = x + 1
	Loop
	If Len(Mid(Var_Email,(InStrRev(Var_Email, ".") + 1),Len(Var_Email))) < 2 Then
  		bolNotExt = True
	End If  
	If y <> 1 Or bolNotExt Then
		bolError = True
	End If
End If
Valida_Email=bolError
END FUNCTION

[gianni80]

niente non va mannaggia... grazie lo stesso... se qualcuno puo' aiutarmi ne saro' sempre grato

[santino83_11_04]

Originariamente inviato da gianni80
niente non va mannaggia... grazie lo stesso... se qualcuno puo' aiutarmi ne saro' sempre grato

mah a me funziona come funzione

[gianni80]

Ti ringrazio, ma io la devo integrare o falla coesistere con laltra funzione che ho postato all'inizio, ti ringrazio cmq.. gianni