esimi forumisti,
Chi potrebbe essere così gentile di spiegarmi come modificare il seguente script per la gestione delle mail con il "vecchio" cdonts di win 2000 server con il "nuovo" cdosys di win 2003 server?

questo è il "vecchio":

<%'invio ordine per email

dim strMailServer, strRecipients, strSender, strSubject, strMessage
'strMailServer = MailServer
MailOrder = "xxxxx@xxx.xx"
MailServer = "smtp.xxxxxxxx.xx"
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

%>

con il nuovo che è il seguente:

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

'* voce da modificare con il proprio indirizzo email

invioA = "xxxxx@xxxxx.xx"

'* 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 = "contatto@sito.it"

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

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

'*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 = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>

io ho fatto diverse prove ma non sono riuscito, vi prego, aiutooooooooooooooo.