Formula controllo mail

[fruttosio79]

Con la seguente formula controllo la corretta digitazione della mail in un form di registrazione; il problema riguarda il fatto che se si inserisce una mail del tipo "nome.cognome@dominio" il controllo la convalida anche se manca il punto nella seconda parte ("nome.cognome@dominio.it" sarebbe corretta)

  
FUNCTION invalidEmail( email )
  IF INSTR( email, "@" ) = 0 OR INSTR( email, "." ) = 0 OR INSTR( email, " " ) <> 0 THEN
    invalidEmail = TRUE
  ELSE
    invalidEmail = FALSE
  END IF
END FUNCTION

Ciao e grazie in anticipo !!

[maximum]

Prova così:

FUNCTION invalidEmail( email )
  IF INSTR( email, "@") = 0 OR INSTR( email, ".", 1, 2) = 0 OR INSTR( email, " ") <> 0 THEN
    invalidEmail = TRUE
  ELSE
    invalidEmail = FALSE
  END IF
END FUNCTION

[imente]

<%FUNCTION invalidEmail( email )

  invalidEmail = True

  Dim Reg
  Set Reg = New RegExp 	'inizializzo la regexp
  Reg.Global = True
  Reg.Ignorecase = True
  Reg.pattern = "^[^\@ ]+\@[^\@ ]+\.[^\@ ]+$"

  if Reg.Test(email) then invalidEmail = False

END FUNCTION%>

questo sarebbe il nonplusultra

utilizzando le regexp puoi fare un controllo più preciso della validità

con questo algoritmo controlli che la forma sia la seguente

XXXXX@XXXXX.XXX

volendo si può anche restringere il campo...

---

a differenza della tua questa obbliga a scrivere almeno un PUNTO dopo l'@... almeno un carattere fra @ e il punto... almeno un carattere prima dell'@... almeno un carattere dopo il punto

e tutto ciò senza scrivere più di una volta il carattere @ o inserire degli spazi

---

il tuo script invece accetterebbe valori come

MIAMAIL@CIAO@PIPPO@BAH.IT

---

spero ti sia utile

ciao

[fruttosio79]

Grazie mille ragazzi !!

[imente]

ciao figurati

[paolo bosani]

Originariamente inviato da imente

<%FUNCTION invalidEmail( email )

  invalidEmail = True

  Dim Reg
  Set Reg = New RegExp 	'inizializzo la regexp
  Reg.Global = True
  Reg.Ignorecase = True
  Reg.pattern = "^[^\@ ]+\@[^\@ ]+\.[^\@ ]+$"

  if Reg.Test(email) then invalidEmail = False

END FUNCTION%>

Ciao imente, interessante questa funzione con RegExp, però non riesco a farla funzionare, c'è da definire qualche variabile o cosa?

[fruttosio79]

niente

[paolo bosani]

Originariamente inviato da fruttosio79
niente

cioè, forse va inserita da qualche parte specifica?

[fruttosio79]

devi crearti il campo email e poi richiamare la funzione con dentro email

[paolo bosani]

Originariamente inviato da fruttosio79
devi crearti il campo email e poi richiamare la funzione con dentro email

Scusa fruttosio79, io ho questo campo:

            <input name="Email" type="text" id="Email" onfocus="if(this.value=='Inserire un indirizzo Email')this.value='';"  onmouseover="if(this.value=='Inserire un indirizzo Email')this.value='';" value="Inserire un indirizzo Email" size="35" />

come richiamo la funzione?