Ho questo script per l'invio del form ed il problema è che mi arrivano 2 mail invece di una.
Una mi arriva completa e l'altra senza il campo Subject.....??
Potete aiutarmi a risolvere questo enigma?
Grazie

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

	'*rilevo i campi del form
	
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")

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