Form contatti

[zeweb]

Volevo far arrivare in email tutti i campi dei questo form ma non riesco. mi potete aiutare?

L'hosting è ARUBA

          <%

   // Recupero i dati dal modulo
   var cognome = new String(Request.Form("cognome"));
   var azienda = new String(Request.Form("azienda"));
   var email = new String(Request.Form("email"));
   var messaggio = new String(Request.Form("messaggio"));
   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;
   }

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

Mail=null 

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

Grazie

[viki1967]

L'errore?

[zeweb]

Errore di sintassi

/email.asp, line 146

if (azienda == "" || cognome == "" || nome == "" || telefono == "" || fax == "" || email == "" || richiesta == "" || trovato == "") {
-------------^

Grazie... :) 



  <%

// 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")

// 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 = "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.");
%>

[viki1967]

Ma hai messo ad inizio pagina:

<%@LANGUAGE = JScript%>

[zeweb]

ma non è in ASP il controllo?

[zeweb]

ok adesso c'è ma mi da errore quando dichiaro la viariabile Mail

Errore di compilazione di Microsoft JScript error '800a03ec'

Previsto ';'

/email.asp, line 160

Dim Mail
----^

[viki1967]

No.
La pagina puoi salvarla come asp ma il linguaggio che utilizzi è

<%@LANGUAGE = JScript%>

Se non sei convinto consulta quest'articolo: http://66.71.132.20/demo/lukemail/luke_email.zip

[viki1967]

Prendi spunto da questo:

<%@LANGUAGE = JScript%>
<%
  

   var destinatario = "tua@email.ext"; // Inserisci qui il tuo indirizzo email

   // Recupero i dati dal modulo
   var nome = new String(Request.Form("nome"));
   var cognome = new String(Request.Form("cognome"));
   var email = new String(Request.Form("email"));
   var oggetto = new String(Request.Form("oggetto"));
   var importanza = new String(Request.Form("importanza"));
   var messaggio = new String(Request.Form("messaggio"));
   var html = new String(Request.Form("html"));

   // RegExp per l'email
   var valida = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;

   // Imposto la data
   var oggi = new Date();
   var data = oggi.getDate() + "/" + (oggi.getMonth() + 1) + "/" + oggi.getYear() + " alle ore " + oggi.getHours() + ":" + oggi.getMinutes();

   // Imposto l'indirizzo IP del mittente
   var ip = Request.ServerVariables("REMOTE_ADDR");

   // Controllo la validità dei campi
   if ((nome == "") || (nome == "undefined")) Response.Redirect("errore.htm?id=1");
   if ((cognome == "") || (cognome == "undefined")) Response.Redirect("errore.htm?id=2");
   if (!valida.test(email)) Response.Redirect("errore.htm?id=3");
   if ((oggetto == "") || (oggetto == "undefined")) Response.Redirect("errore.htm?id=4");
   if ((messaggio == "") || (messaggio == "undefined")) Response.Redirect("errore.htm?id=5");

   // Creo la classe CDONTS.NewMail ed invio l'email
   var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
       OggettoCDONTS.Importance = importanza;
       OggettoCDONTS.From = email;
       OggettoCDONTS.To = destinatario;
       OggettoCDONTS.Subject = oggetto;
       // Verifica se la mail è in formato Html
       if ((html == "") || (html == "undefined")) {
           OggettoCDONTS.BodyFormat = 1;
           OggettoCDONTS.MailFormat = 1;
           OggettoCDONTS.Body = "Dati del mittente\n\nNome: " + nome + "\nCognome: " + cognome + "\nEmail: " + email + "\nIP: " + ip + "\n\nMessaggio spedito il " + data + "\n\nQuesto è il corpo del messaggio:\n\n" + messaggio;
       }
       else {
           OggettoCDONTS.BodyFormat = 0;
           OggettoCDONTS.MailFormat = 0;
           OggettoCDONTS.Body = "Dati del mittente

Nome: " + nome + "
Cognome: " + cognome + "
Email: " + email + "
IP: " + ip + "

Messaggio spedito il " + data + "

Questo è il corpo del messaggio:

" + messaggio;
       }
       OggettoCDONTS.Send();

   // Reindirizzo il mittente verso la pagina di conferma
   Response.Redirect("conferma.htm");
%>

[zeweb]

ho scoperto che su ARUBA si deve usare CDOSYS ma lo script di esempio non riesco a farlo funzionare

I miei campi del form sono: azienda, cognome, nome, telefono, fax, email, richiesta

e due chekbox: motori, altro

mi da errore qui

error '8004020f'

/formcdosys.asp, line 59

<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email
	
invioA =  "xxx@xxx.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "xxx@xxx.it"

'------------fine modifiche necessarie------------------

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal sito " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>