convertire invio CDONTS in CDO

[ELFO-3P]

ho un guestbook in asp, dove se viene inserito un messaggio automaticamente viene inviata un email a me per avvertirmi del messaggio lasciato.
questo invio email è fatto in CDONTS
pero' io devo mettere questo guestbook su hosting win2003 dove mi hanno detto che gira CDO invece di CDONTS.
posso modificare solo la parte dell'invio email?
è difficile?
grazie per le risposte

[weppos]

Sì, è sufficiente modificare la parte relativa all'invio di email.

Per un esempio sull'uso di CDOSYS puoi guardare qui http://www.weppos.com/asp/script_sho...ipt=502&cat=19 .
Troverai anche l'oggetto CDONTS se ti serve compararlo.

[ELFO-3P]

non sono molto pratico
qualcuno sapermi fare sta modifica?
gli invio l'intero guestbook
se cè bisogno di una ricompensa...
tnx a tutti

[ELFO-3P]

up
:bubu:

[ELFO-3P]

[Roby_72]

Devi sostituire quattro righe. Posta il tuo invio attuale.

Roby

[ELFO-3P]

sql_id = "SELECT * FROM reply"
rs.open sql_id, con, 1, 2
if not rs.eof then
rs.movelast
id_mess = rs("id")
session("id_messaggio") = id_mess

if replymail = true then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = nomesito
objMail.To = mailtoreply
objMail.Subject = "Nuovo messaggio inserito"
objMail.Body = "<font color=#000080 size=2 face=Verdana>GUESTBOOK DAVIDE MAROTTA<hr size=0 color=#000099>Qualcuno ha risposto ad un messaggio nel tuo Guestbook
Per visualizzarlo clicca qui
</font>"
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Send()
Set objMail = Nothing
end if

if mailthanks = true then
Set objMail2 = Server.CreateObject("CDONTS.NewMail")
objMail2.From = nomesito
objMail2.To = mail
objMail2.Subject = "Grazie per aver risposto ad un Messaggio"
objMail2.Body = "<font color=#000080 size=2 face=Verdana>GUESTBOOK DAVIDE MAROTTA<hr size=0 color=#000099>Grazie per aver risposto un messaggio nel " & nomesito & " Guestbook
Per visualizzarlo clicca qui


Saluti e Buona Navigazione
il Webmaster di DAVIDE MAROTTA " & nomesito & "
</font>"
objMail2.MailFormat = 0
objMail2.BodyFormat = 0
objMail2.Send()
Set objMail2 = Nothing
end if

if Request.Form("uplFileConf") = "yes" then
%>

[Roby_72]

if replymail = true then 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

With iMsg
Set .Configuration = iConf
Mymail = "webmaster@creamweb.it"
.From = nomesito 
.To = mailtoreply 
.Subject = "Nuovo messaggio inserito"
.HTMLBody = "<font color=#000080 size=2 face=Verdana>GUESTBOOK DAVIDE MAROTTA<hr size=0 color=#000099>Qualcuno ha risposto ad un messaggio nel tuo Guestbook
Per visualizzarlo clicca qui
</font>" 
.Send
end with

Set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
end if

Per il secondo puoi far da solo vero??

Roby

[ELFO-3P]

grazie mille!!!!
mo devo solo provarlo

[Roby_72]

Eh, direi di si...

Roby