da cdonts a cdosys

[kobra33]

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.

[Enrique_Rojas]

restituisce errori in particolare?

[kobra33]

Si, ovviamente visto che il componente CDONTS non è più supportato da win 2003 server mi da l'errore dicendomi che non è possibile creare l'oggetto sul server.

[kobra33]

.................aiutoooooooo

[kobra33]

[thomasbandini]

Io per un mio amico ho fatto un form su aruba utilizzando il nuovo CDONTS e il codice è questo:

mess="Testo formattato in HTML
EVVAI!"

On error resume next
'Invio l'email

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "info@xxxxxxx.com"
MiaMail.To = "xxxxxxx@email.it"
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = bcc
MiaMail.Subject = "xxxxxxxx.com - "&soggetto
MiaMail.HTMLBody = mess
'MiaMail.BodyFormat = 1
'MiaMail.MailFormat = 0
MiaMail.Send()
Set MiaMail = Nothing


if err <> 0 then

Response.Write"<body>"
Response.Write "
<center>"
response.write("<font color = #000000 size=1 face = verdana >")
response.write("Si sono verificati degli errore nel SERVER, eseguire l'operazione più tardi")
Response.Write "</font></center>"

end if


Spero di esserti stato utile!

[kobra33]

Grazie 1000 thomasbandini, sei stato/a veramente gentile a rispondermi, il problema non è far funzionare "un" modulo con il nuovo cdosys di aruba, ma "quel" codice che ho postato. Ti ringrazio comunque lo stesso, se per caso ci fosse qualcun'altro disposto a darmi una mano con quel codice........

[Enrique_Rojas]

Originariamente inviato da kobra33
Grazie 1000 thomasbandini, sei stato/a veramente gentile a rispondermi, il problema non è far funzionare "un" modulo con il nuovo cdosys di aruba, ma "quel" codice che ho postato. Ti ringrazio comunque lo stesso, se per caso ci fosse qualcun'altro disposto a darmi una mano con quel codice........

su questo sito puoi scaricare gratuitamente gli script funzionanti per cdosys, guarda un pò tu:
http://vademecum.aruba.it/start/cont...tto.htm#cdosys

facci sapere.

[kobra33]

ehm,.....si, ne sono a conoscenza. Evidentemente mi sono espresso male: volevo far funzionare il mio vecchio script togliendo il cdonts e mettendo il cdosys ma dopo giorni (e notti) di prove non sono riuscito, ecco il problema, non uno script a caso, ma il vecchio mio script.
Sempre grazie a tutti.

[kobra33]

aiutoooooo