Hola a todos!!! Como estan???

Dunque sono alle prese con la personalizzazione di un codice asp per l'invio di email utilizzando il componente di win2003 cioè CDOSYS.

Vorrei che il contenuto delle emails venisse racchiuso all'interno di una tabella, ma non ci riesco perchè l'email arriva senza i dati inseriti nel form, cioè come una tabella ma vuota.

Ecco il codice:
codice:
<%

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

invioA =  "email@aruba.it"
invioDa =  "email@aruba.it"

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
	
corpoMessaggio = corpoMessaggio & "<table border=5 width=100% cellpadding=0 cellspacing=0>"
corpoMessaggio = corpoMessaggio & "<td width=100% height=600 valign=top>" 
corpoMessaggio = corpoMessaggio & "<table border=1 width=100% cellpadding=0 cellspacing=0>"

' rilevo i campi del form

FOR numeroCampi = 2 TO (Request.Form.Count() - 15) step 6

IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "<tr>"
corpoMessaggio = corpoMessaggio & "<td width=10% align=left> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+1)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=52% align=left> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+2)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=15% align=center><font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+5)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=7% align=right> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+0)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=8% align=right> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+3)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=8% align=right> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+4)) & "</font></td>" 
corpoMessaggio = corpoMessaggio & "</tr>"
END IF
NEXT

corpoMessaggio = corpoMessaggio & "</table>"
corpoMessaggio = corpoMessaggio & "</td>"
corpoMessaggio = corpoMessaggio & "</table>"

' 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 dominio " & nomeDominio
   .HtmlBody = corpoMessaggio
   .Send
End With

%>