errore invio mail

**zeweb** · 10-10-2005, 20:13

Che cosa sbaglio nel recuperare questi dati?

Errore di compilazione di Microsoft VBScript error '800a0401'

Prevista fine istruzione

/email.asp, line 132

var azienda= new String(Request.Form("azienda"));
-----------------------^

codice:

                <%

// Recupero i dati dal modulo
   var azienda= new String(Request.Form("azienda"));
   var cognome = new String(Request.Form("cognome"));
   var nome= new String(Request.Form("nome"));
   var telefono= new String(Request.Form("telefono"));
   var fax= new String(Request.Form("fax"));
   var email = new String(Request.Form("email"));
   var richiesta= new String(Request.Form("richiesta"));
   var trovato = new String(Request.Form("trovato"));

	// Recupero il campo Email
   var email = new String(Request.Form("email"));

   // Imposto l'espressione regolare per un indirizzo email
   var controlla = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;

   // Effettuo il controllo vero e proprio
   if (!controlla.test(email)) {
        Response.Write("<span class='testo'>L'indirizo email non &egrave; corretto!</span> <span class='link'>...torna al modulo<span>");
        Response.End;
   }

   // Effettuo un banale controllo sulla validit&agrave; dei campi
   if (cognome == "" || azienda == "" || email == "" || messaggio == "" || trovato == "") {
	   Response.Write("<span class='testo'>Tutti i campi sono obbligatori</span> <span class='link'>...torna al modulo<span>");
       Response.End;
   }

messaggio = "Azienda: " &azienda& vbcrlf & vbcrlf &_
"Cognome: " &cognome& vbcrlf & vbcrlf &_
"Nome: " &nome& vbcrlf & vbcrlf &_
"Telefono: " &telefono& vbcrlf & vbcrlf &_
"Fax: " &fax& vbcrlf & vbcrlf &_
"E-mail: " &email& vbcrlf & vbcrlf &_
"Ci ha trovato: " &trovato& vbcrlf & vbcrlf &_
"Richiesta: " &richiesta&

Dim Mail

Mail = Server.CreateObject("CDO.Message") 
Mail.From = email 
Mail.To = "s.martini@webbiz.it" 
Mail.Subject = "Richiesta info dal sito" 
Mail.TextBody = messaggio
Mail.Send() 

Mail=null 

Response.Write("Email inviata con successo! Vi risponderemo al più presto.");
%>

**Eas** · 10-10-2005, 20:16

Sbagli linguaggio :-)

non
Var nomevariabil = new String(Request.Form("azienda"));

Ma

nomevariabile = Request.Form("azienda")

Cia'

**zeweb** · 10-10-2005, 20:21

adesso me lo da nel controolo email

codice:

                <%

// Recupero i dati dal modulo
   azienda = Request.Form("azienda")
   cognome = Request.Form("cognome")
   nome = Request.Form("nome")
   telefono = Request.Form("telefono")
   fax = Request.Form("fax")
   email = Request.Form("email")
   richiesta = Request.Form("richiesta")
   trovato = Request.Form("trovato")

	// Recupero il campo Email
   email = Request.Form("email")

   // Imposto l'espressione regolare per un indirizzo email
   var controlla = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;

   // Effettuo il controllo vero e proprio
   if (!controlla.test(email)) {
        Response.Write("<span class='testo'>L'indirizo email non &egrave; corretto!</span> <span class='link'>...torna al modulo<span>");
        Response.End;
   }

   // Effettuo un banale controllo sulla validit&agrave; dei campi
   if (cognome == "" || azienda == "" || email == "" || messaggio == "" || trovato == "") {
	   Response.Write("<span class='testo'>Tutti i campi sono obbligatori</span> <span class='link'>...torna al modulo<span>");
       Response.End;
   }

messaggio = "Azienda: " &azienda& vbcrlf & vbcrlf &_
"Cognome: " &cognome& vbcrlf & vbcrlf &_
"Nome: " &nome& vbcrlf & vbcrlf &_
"Telefono: " &telefono& vbcrlf & vbcrlf &_
"Fax: " &fax& vbcrlf & vbcrlf &_
"E-mail: " &email& vbcrlf & vbcrlf &_
"Ci ha trovato: " &trovato& vbcrlf & vbcrlf &_
"Richiesta: " &richiesta&

Dim Mail

Mail = Server.CreateObject("CDO.Message") 
Mail.From = email 
Mail.To = "xxx@xxx.it" 
Mail.Subject = "Richiesta info dal sito" 
Mail.TextBody = messaggio
Mail.Send() 

Mail=null 

Response.Write("Email inviata con successo! Vi risponderemo al più presto.");
%>

**Dirk Pitt** · 10-10-2005, 20:21

Un mix tra Javascript e asp.
Capita a tutti

**Dirk Pitt** · 10-10-2005, 20:23

// Effettuo il controllo vero e proprio
if (!controlla.test(email)) {
Response.Write("L'indirizo email non è corretto! ...torna al modulo");
Response.End;
}

// Effettuo un banale controllo sulla validità dei campi
if (cognome == "" || azienda == "" || email == "" || messaggio == "" || trovato == "") {
Response.Write("Tutti i campi sono obbligatori ...torna al modulo");
Response.End;
}

Anche qui è un mix di linguaggi.

**zeweb** · 10-10-2005, 20:24

qui

var controlla = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;
----------------^

**Eas** · 10-10-2005, 20:25

if (cognome == "" || azienda == "" || email == "" || messaggio == "" || trovato == "")

=

if (cognome = "" or azienda = "" or email = "" or messaggio = "" or trovato = "") then

etc ...

Cia'

**Dirk Pitt** · 10-10-2005, 20:27

codice:

if cognome = "" or azienda = "" or email = "" or messaggio = "" or trovato = "" then 
Response.Write "<span class='testo'>Tutti i campi sono obbligatori</span><span class='link'>...torna al modulo<span>"
End If

**zeweb** · 10-10-2005, 20:28

Aiuto non vi sto dietro...

adesso ho corretto così ma nel controllo email mi da errore

codice:

                <%

// Recupero i dati dal modulo
   azienda = Request.Form("azienda")
   cognome = Request.Form("cognome")
   nome = Request.Form("nome")
   telefono = Request.Form("telefono")
   fax = Request.Form("fax")
   email = Request.Form("email")
   richiesta = Request.Form("richiesta")
   trovato = Request.Form("trovato")

	// Recupero il campo Email
   email = Request.Form("email")

   // Imposto l'espressione regolare per un indirizzo email
   var controlla = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;

// Effettuo il controllo vero e proprio
if (!controlla.test(email)) {
Response.Write("<span class='testo'>L'indirizo email non è corretto!</span> <span class='link'>...torna al modulo<span>");
Response.End;
}

// Effettuo un banale controllo sulla validità dei campi
if (azienda == "" || cognome == "" || nome == "" || telefono == "" || fax == "" || email == "" || richiesta == "" || trovato == "") {
Response.Write("<span class='testo'>Tutti i campi sono obbligatori</span> <span class='link'>...torna al modulo<span>");
Response.End;
} 

messaggio = "Azienda: " &azienda& vbcrlf & vbcrlf &_
"Cognome: " &cognome& vbcrlf & vbcrlf &_
"Nome: " &nome& vbcrlf & vbcrlf &_
"Telefono: " &telefono& vbcrlf & vbcrlf &_
"Fax: " &fax& vbcrlf & vbcrlf &_
"E-mail: " &email& vbcrlf & vbcrlf &_
"Ci ha trovato: " &trovato& vbcrlf & vbcrlf &_
"Richiesta: " &richiesta&

Dim Mail

Mail = Server.CreateObject("CDO.Message") 
Mail.From = email 
Mail.To = "zzz@zzz.it" 
Mail.Subject = "Richiesta info dal sito" 
Mail.TextBody = messaggio
Mail.Send() 

Mail=null 

Response.Write("Email inviata con successo! Vi risponderemo al più presto.");
%>

**Dirk Pitt** · 10-10-2005, 20:30

Leggi sopra, alcuni problemi te li abbiamo già risolti, o almeno ci abbiamo provato (almeo per quanto mi riguarda eh eh).

Comunque mescoli i linguaggi.

Discussione: errore invio mail

Strumenti discussione

Ricerca discussione

Visualizza

errore invio mail

Permessi di invio