ho provato come mi dici ma restituisce errore:


codice:
Tipo di errore:
(0x8004020E)
Impossibile modificare o eliminare un oggetto che è stato aggiunto utilizzando COM+ Admin SDK 
/urd2012/elaboration.asp, line 126
linea 126 corrisponde su .Send

codice:
<%
'============Linkbruttocane su specifiche MSDN================
'*   il corpo finale del messaggio contiene tutti i campi    *
'*   inseriti nella pagina html, in pratica puoi mettere     *
'*   tutti i campi che ti servono nel modulo di invio senza  *
'*   fare altre configurazioni aggiuntive.                   *  
'=============================================================

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

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "miamail@gmail.com"

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "miamail@gmail.com"

'------------fine modifiche necessarie------------------

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

firstname					= Request.Form("firstname")
lastname					= Request.Form("lastname")
company2					= Request.Form("company2")
email2						= Request.Form("email2")
indirizzo					= Request.Form("indirizzo")
citta						= Request.Form("citta")
stato						= Request.Form("stato")
cap					        = Request.Form("cap")
selezionenazione		    = Request.Form("selezionenazione")
telefono					= Request.Form("telefono")
codfisc						= Request.Form("codfisc")

otherfirstname				= Request.Form("otherfirstname")
otherlastname				= Request.Form("otherlastname")
othercompany				= Request.Form("othercompany")
otheremail					= Request.Form("otheremail")
otherindirizzo				= Request.Form("indirizzo")
othercitta					= Request.Form("othercitta")
otherstato					= Request.Form("otherstato")
othercap					= Request.Form("othercap")
otherselezionenazione		= Request.Form("otherselezionenazione")
othertelefono			    = Request.Form("othertelefono")

tipopagamento				= Request.Form("tipopagamento")
infospedizione				= Request.Form("infospedizione")
selezionegift				= Request.Form("selezionegift")
notegift  				    = Request.Form("notegift")
selectinvoice				= Request.Form("selectinvoice")
vatpiva				        = Request.Form("vatpiva")

iagree						= Request.Form("iagree")
privacy					    = Request.Form("privacy")




	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* 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 = "Ultimate Rolex Daytona - " & "Paypal"
   txt = "Ultimate Rolex Daytona - Paypal" & ":"& "" & vbCrLf & vbCrLf &_
"First Name: " & firstname & vbCrLf &_
"Last Name: " & lastname & vbCrLf &_
"Company: " & company2 & vbCrLf &_
"Email: " & email2 & vbCrLf &_
"Address: " & indirizzo & vbCrLf &_
"City: " & citta & vbCrLf &_
"State: " & stato & vbCrLf &_
"Cap: " & cap & vbCrLf &_
"Country " & selezionenazione & vbCrLf &_
"Phone: " & telefono & vbCrLf &_
"Cod Fisc: " & codfisc & vbCrLf &_
"Shipping Address: " & "" & vbCrLf &_
"First Name: " & otherfirstname & vbCrLf &_
"Last Name: " & otherlastname & vbCrLf &_
"Company: " & othercompany2 & vbCrLf &_
"Email: " & otheremail2 & vbCrLf &_
"Address: " & otherindirizzo & vbCrLf &_
"City: " & othercitta & vbCrLf &_
"State: " & otherstato & vbCrLf &_
"Cap: " & othercap & vbCrLf & "" &_
"Country " & otherselezionenazione &_
"Phone: " & othertelefono & vbCrLf &_
"Payment Method: " & tipopagamento & vbCrLf &_
"Special Delivery Instruction: " & infospedizione & vbCrLf &_
"It's a Gift: " & selezionegift & vbCrLf &_
"Note Gift: " & notegift & vbCrLf &_
"Invoice: " & selectinvoice & vbCrLf &_
"VAT / p.IVA: " & vatpiva & vbCrLf &_
"I agree: " & iagree & vbCrLf &_
"Privacy: " & privacy & vbCrLf &_
.TextBody = txt
.Send
End With

Response.Redirect "response_cheque.asp"

%>