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"
%>
Rispondi quotando
