Scusate!
Utilizzo un carrello in asp e quando si procede con l'acquisto dei prodotti , il modulo dovrebbe spedire in automatico una email all'utente con il riepilogo dell'acquisto:
Il server dove risiede il sito è Aruba
Lo script è il seguente:
**********************
<%'invio ordine per email
dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "postmaster@paroladidio.com" 'Indirizzo mittente ordini
MailServer = "mail.libero.it" 'Indirizzo Mail Server ad esempio
'strMailServer = MailServer
strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder 'QUI INSERISCE L INDIRIZZO DEL CLIENTE E IL TUO CHE DEVI METTERE NELLE VARIABILI
strSender = MailOrder 'QUI INSERISCE IL TUO COME MITTENTE
strSubject = "Ordine n." & IDOrdine
strMessage = "<font face='Arial' size='2'>TUO NOME
"
strMessage = strMessage & "" & Session("SchedaClienteLibreria") & "
"
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & "
"
for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "<u>Articolo numero: " & i & "</u>
"
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & "
"
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & "
"
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & "
"
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & "
"
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & "
"
next
strMessage = strMessage & "
"
strMessage = strMessage & "SubTotale : " & Importo & "
"
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & "
"
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & "
"
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & "</font>"
Set objMail = Server.CreateObject("CDONTS.newmail")
'objMail.ServerAddress = strMailServer
objMail.From = strSender
objMail.To = strRecipients
objMail.Subject = strSubject
objMail.Bodyformat=0
objMail.Mailformat=0
objMail.Body = strMessage
objMail.Importance = 1
on error resume next '## Ignore Errors
objMail.send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & ""
End if
%>
*****************************
Vorrei sapere se è corretto e perchè continua a darmi il seguente messaggio di errore?
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
GRAZIE A TUTTI!!
Rispondi quotando
