[VBS] controllo validita' email [era: Una delucidazione!!!!]

[Artgallery75]

Ho inserito questo script e tutto funziona correttamente, però non sono ancora soddisfatto.

<SCRIPT language=VBScript><!--
function FrontPage_Form1_onsubmit()
Set theForm = document.FrontPage_Form1

If (theForm.mailing.value = "") Then
MsgBox "Inserire un valore per il campo ""mailing"".", 0, "Validation Error"
theForm.mailing.focus()
FrontPage_Form1_onsubmit = False
Exit Function
End If

If (Len(theForm.mailing.value) < 6) Then
MsgBox "Inserire almeno 6 caratteri nel campo ""mailing"".", 0, "Validation Error"
theForm.mailing.focus()
FrontPage_Form1_onsubmit = False
Exit Function
End If

If (Len(theForm.mailing.value) > 60) Then
MsgBox "Inserire al massimo 60 caratteri nel campo ""mailing"".", 0, "Validation Error"
theForm.mailing.focus()
FrontPage_Form1_onsubmit = False
Exit Function
End If
FrontPage_Form1_onsubmit = True
End Function
--></SCRIPT>

E' possibile obbligare l'utente ad inserire il simbolo @ e il punto?

Ciao e grazie

[secan]

Una soluzione molto alla buona potrebbe essere aggiungere alla tua funzione il seguente codice javascript (non conosco VBScript, perciò dovrea modificarlo un po'):

if (theForm.mailing.value.indexOf("@") == -1 || theForm.mailing.value.indexOf(".") == -1 ) {
  window.alert("Non hai inserito uin indirizzo e-mail valido");
  theForm.mailing.focus();
}

[Artgallery75]

Ok, ti ringrazio.

Ciao

[Artgallery75]

Ti ringrazio, cmq non riesco a convertirlo!!!!

Kavoli!!!

Cmq ti ringrazio!!!

Ciao

[secan]

Ciao, ho fatto qualche ricerca e, usando VBS, il codice che ti ho postato prima dovrebbe diventare qualcosa di simile:

Dim theAddress

theAddress = theForm.mailing.value

If (InStr("@", theAddress) = 0 OR InStr(".", theAddress) = 0) Then
  Msgbox "Non hai inserito un indirizzo e-mail valido"
  theForm.mailing.focus()
  End Function ' per uscire dalla tua funzione di controllo principale (in cui devi copiare questo codice)
End If

Secan

[Artgallery75]

Non ho ancora provato.
Appena posso ti dico se questo script funziona!!

Grazie e buona giornata

[Artgallery75]

Questo è lo script che ho creato e non cicrederai ma con questo non è possibile inviare niente:

<SCRIPT language=VBScript><!--
function FrontPage_Form1_onsubmit()
Set theForm = document.FrontPage_Form1

If (theForm.mailing.value = "") Then
MsgBox "Inserire un valore per il campo ""mailing"".", 0, "Validation Error"
theForm.mailing.focus()
FrontPage_Form1_onsubmit = False
Exit Function
End If

If (Len(theForm.mailing.value) < 6) Then
MsgBox "Inserire almeno 6 caratteri nel campo ""mailing"".", 0, "Validation Error"
theForm.mailing.focus()
FrontPage_Form1_onsubmit = False
Exit Function
End If

If (Len(theForm.mailing.value) > 60) Then
MsgBox "Inserire al massimo 60 caratteri nel campo ""mailing"".", 0, "Validation Error"
theForm.mailing.focus()
FrontPage_Form1_onsubmit = False
Exit Function
End If

If (InStr("@", theForm.mailing.value) = 0 OR InStr(".", theForm.mailing.value) = 0) Then
MsgBox "Non hai inserito un indirizzo e-mail valido"".", 0, "Validation Error"
theForm.mailing.focus()
FrontPage_Form1_onsubmit = False
Exit Function
End If

FrontPage_Form1_onsubmit = True
End Function
--></SCRIPT>

Grazie lo stesso