Ho modificato a mio piacimento questo scripy ma,
il risultato finale è che ricevo 2 email, una completa e regalare e l'altra, avendo due submit diversi, con il submit non rilevato.
In rosso i campi che arrivano in una email compilati e nell'altra vuoti.
codice:
<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, Arrivo, Partenza, Adulti, Notti, Trattamento, Bambini, Camera, Altro, Eta, messaggio, NOME, COGNOME, Indirizzo, Comune, Provincia, Nazione, TELEFONO, email, INFORMAZIONI, PRENOTAZIONI, Cap, Informazione, Prenotazione

	
invioA =  "info@dominio.com"

	invioDa =  "email"


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

Arrivo = request.form("Arrivo")
Partenza = request.form("Partenza")
Adulti= request.form("Adulti")
Notti = request.form("Notti")
Trattamento = request.form("Trattamento")
Bambini = request.form("Bambini")
Camera = request.form("Camera")
Altro = request.form("Altro")
Eta = request.form("Eta")
messaggio = request.form("messaggio")
NOME= request.form("NOME")
COGNOME = request.form("COGNOME")
Indirizzo = request.form("Indirizzo")
Comune = request.form("Comune")
Provincia = request.form("Provincia")
Nazione = request.form("Nazione")
TELEFONO = request.form("TELEFONO")
email = request.form("email")
INFORMAZIONI = request.form("INFORMAZIONI")
PRENOTAZIONI = request.form("PRENOTAZIONI")
Cap =request.form("Cap")
Informazione =request.form("Informazione")
Prenotazione =request.form("Prenotazione")

		
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 = "Hotel - "   & Informazione & " " & Prenotazione  
 .HTMLBody = "<font face=""Verdana, Arial, Helvetica, sans-serif"" size=2 ><font size=4 color=#e80404>Richiesta:  " & Informazione & " " & Prenotazione & " </font> 

</font>


<font color=#262ad8>Nome:  " & NOME & " " & COGNOME & "
Indirizzo: " & Indirizzo & " - " & Comune & " (" & provincia & ") " & Nazione & " " & Cap & " 
Telefono: " & TELEFONO & " 
E-mail: " & email & "</font>

Arrivo: " & Arrivo & " 
Partenza: " & Partenza & " </font>
Notti: " & Notti & " 
Adulti: " & Adulti & " 
Bambini: " & Bambini & " 
Eta: " & Eta & " </font>
Camera: " & Camera & " 
Trattamento: " & Trattamento & " 

Messaggio:</font> " & messaggio & " 





</font>"
   .Send
End With

%> 

<script>
document.location.replace('grazie.asp');
</script>
l' html è questo:
codice:
<form method="post" name="modulo" onsubmit="return Modulo()">
<input type="text" name="xxx"  /> 
<input type="text" name="xxx"  /> 
<input type="text" name="xxx"  />  
<input type="submit" name="Informazione" value="Informazione" >
<input type="submit" name="prenotazione" value="prenotazione" >
il js di validazione, richiamato dall'html che a sua volta richiama il codice asp é:
codice:
 
 <!--
  function Modulo() {
     // Variabili associate ai campi del modulo
	 var NOME = document.modulo.NOME.value;
	 var COGNOME = document.modulo.COGNOME.value;
	 var TELEFONO = document.modulo.TELEFONO.value;
	 var email = document.modulo.email.value;
	 var Arrivo = document.modulo.Arrivo.value;
	 	 [document.modulo.Arrivo.selectedIndex].value;
	 var Partenza = document.modulo.Partenza.value;
	 	 [document.modulo.Partenza.selectedIndex].value;
	 var Adulti = document.modulo.Adulti.value;
		 [document.modulo.Adulti.selectedIndex].value;

     // Espressione regolare dell'email
     var email_reg_exp = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;
	 
        //Effettua il controllo sul campo NOME
        if ((NOME == "") || (NOME == "undefined")) {
           alert("Il campo Nome è obbligatorio.");
           document.modulo.NOME.focus();
           return false;
        }
        //Effettua il controllo sul campo COGNOME
        else if ((COGNOME == "") || (COGNOME == "undefined")) {
           alert("Il campo Cognome è obbligatorio.");
           document.modulo.COGNOME.focus();
           return false;
        }
        //Effettua il controllo sul campo tel
        else if ((TELEFONO == "") || (TELEFONO == "undefined")) {
           alert("Il campo TELEFONO è obbligatorio.");
           document.modulo.TELEFONO.focus();
           return false;
        }
        //Effettua il controllo sul campo email
		else if (!email_reg_exp.test(email) || (email == "") || (email == "undefined")) {
           alert("Inserire un indirizzo email corretto.");
           document.modulo.email.select();
           return false;
        }
		//Effettua il controllo sul campo Arrivo
        if ((Arrivo == "") || (Arrivo == "undefined")) {
           alert("Il campo Arrivo è obbligatorio.");
           document.modulo.Arrivo.focus();
           return false;
        }
		//Effettua il controllo sul campo Partenza
         if ((Partenza == "") || (Partenza == "undefined")) {
           alert("Il campo Partenza è obbligatorio.");
           document.modulo.Partenza.focus();
           return false;
        }
		//Effettua il controllo sul campo Adulti
         if ((Adulti == "") || (Adulti == "undefined")) {
           alert("Il campo Adulti è obbligatorio.");
           document.modulo.Adulti.focus();
           return false;
        }

        //INVIA IL MODULO
        else {
           document.modulo.action = "formcdosys.asp";
           document.modulo.submit();
        }
  }
 //-->
Sicuramente è un errore asp ma non capisco.
Mi potete aiutare?
Grazie