Ciao a tutti, ho realizzato un form con una serie di select che riportano solo dei numeri (da 1 a 10), soltanto che il form è unico, ma ci sono 3 aree che contengono le select, in questo modo:

AREA1
select 1
select 2
select 3
select 4
ecc...

AREA2
select A
select B
select C
ecc...

AREA3
select A1
ecc...

Il mio problema è che quando ricevo l'email, arrivano tutte le select una sotto l'altra, senza distinzione per le diverse aree. Allora ho inserito un campo nascosto prima dell'inizio di ogni gruppo di select, ma i campi nascosti arrivano in email prima degli altri, così:

AREA1, AREA2, AREA3
select 1
select 2
select 3
select 4
ecc...
select A
select B
select C
ecc...
select A1
ecc...

Come posso fare? Questo è il codice che uso per inviare l'email:

codice:

<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, Nome

	
invioA 						=  	"info@provasito.com"
		
invioDa 					=  	session("email")

Nome					= 	session("nominativo")

'Data						= 	now
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Trim(Request.Form(numeroCampi) & "  " & Request.Form.Key(numeroCampi))
   END IF
NEXT


	
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 = invioDa
   .Sender = invioDa
   .Subject = "Nuovo"
   .TextBody = "Email " & vbCrLf  & vbCrLf & Nome & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace(ok.htm');
</script>