invio doppia email ?

[pattaya]

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

<%

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>

[Roby_72]

Molto strano... sicuro di non richiamare per errore la pagina che invia l'email?
Ciò me lo fa pensare il fatto che la seconda email arriva mezza vuota...

Roby