salve a tutti, è il mio primo post spero di trovare l'aiuto richiesto.

ho questo codice, ma quando compilo il form, la mail arriva solo al destinatario, vorei che arrivasse anche a me, spero di essere stato chiaro
questo è il codice:

<%'invio ordine per email


dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "info@****.it" 'Indirizzo mittente ordini
MailServer = "smtp.****.it" 'Indirizzo Mail Server
strRecipients = Session("SchedaClienteEmail")
' strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
strSubject = "Ordine n." & IDOrdine
strMessage = "<font face='Arial' size='2'>La ringraziamo per aver effettuato l'ordine che riportiamo qui di

seguito, le invieremo il file ordinato una volta che avrà completato il pagamento
RIEPILOGO

ORDINE
"
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 : " & ScontrinoNomeprodottoarticolo(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>"

'Create the e-mail server object
Set myCDOMail = CreateObject("CDO.Message")
Set myCDOConf = CreateObject("CDO.Configuration")

Set Fields = myCDOConf.Fields

with Fields
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.******.it"
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 35
.Update

end with

Set myCDOMail = CreateObject("CDO.Message")
Set myCDOMail.Configuration = myCDOConf

with myCDOMail

.To = strRecipients
.From = strSender
.Subject = strsubject
.HTMLBody = strMessage
.send ()
end with

on error resume next '## Ignore Errors

'Close the server object
Set myCDOMail = Nothing
Set myCDOConf = Nothing
Set Fields = Nothing

If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è stata inviata a seguito di ail
objMail.Send()

Set objMail = Nothing
%>


grazie in anticipo per chi volesse darmi un aiuto
daninet