Da cdont a cdosys

[peppecast1]

Ciao a tutti avrei bisogno di cambiare questa parte di codice, per portarla da cdonts a cdosys chi mi aiuta?

Dim Destinatario, Tipo, Email, Mittente, Oggetto, objMail
destinatario=request("Destinatario")
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
if tipo="html" then
Set Mail = Server.CreateObject("CDO.Message")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From=mittente
objMail.To=destinatario
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
else
Set Mail = Server.CreateObject("CDO.Message")
objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From=mittente
objMail.To=destinatario
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
end if

 

[lukeonweb]

Prova...

Dim Destinatario, Tipo, Email, Mittente, Oggetto, objMail
destinatario=request("Destinatario")
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
if tipo="html" then
Set Mail = Server.CreateObject("CDO.Message")
'objMail.BodyFormat = 0
'objMail.MailFormat = 0
objMail.From=mittente
objMail.To=destinatario
objMail.Subject=oggetto
objMail.HTMLBody=email ' o TextBody per il formato testo semplice
objMail.Send
Set objMail = nothing
else
Set Mail = Server.CreateObject("CDO.Message")
'objMail.BodyFormat = 1
'objMail.MailFormat = 1
objMail.From=mittente
objMail.To=destinatario
objMail.Subject=oggetto
objMail.TextBody=email ' o viceversa come sopra
objMail.Send
Set objMail = nothing
end if