Questo è il codice per controllare se l'indirizzo email è sintatticamente corretto
codice:
<script language="vbscript">
function ControllaEmail(oggetto)
strMail=oggetto.value
if strMail<>"" then
if len(strMail)>6 then
CheckMail = True
pos = Instr(1,strMail, "@")
if pos >= len(strMail)-3 then
CheckMail = False
end if
if pos < 2 then
CheckMail = False
end if
dotpos = Instr(pos+1 ,strMail, ".")
if dotpos > len(strMail)-2 then
CheckMail = False
end if
if len( Mid(strMail, pos+1) ) < 5 or dotpos = 0 then
CheckMail = False
end if
else
CheckMail = False
end if
if not CheckMail then
MsgBox "L'indirizzo e-mail " & vbCrLf & "'" & strMail & "'" & vbCrLf & "è errato." & vbCrLf & str ,vbCritical,"Errore inserimento email"
oggetto.value=""
oggetto.focus()
end if
end if
end function
</script>
Per controllare invece se i due campi sono uguali
Se sono uguali richiami la funzione sopra che controlla la mail
codice:
<script>
function ConforntaMail(email,confEmail){
if (email==confEmail){
alert ("Le mail sono diverse")
}else{
ControllaEmail(email)
}
}
</script>
<input type="text" name="email">
<input type="text" name="ConfEmail" onchange="ConforntaMail(email,confEmail)">