ho questo codice per inviare i commenti da un sito di imagini con commenti (Simple online photo ) che usa il componente cdont c'è qualcuno che se si può lo trasformi in cdosys? io ci ho provato ma non riesco
if cSendEmailOnCommentAdded then
'lets send an email using CDONTS (be sure you have installed it in your server)
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = cAdminEmail
objCDO.From = cAdminEmail
objCDO.Subject = "Simple online photo catalogue " & Version & " comment"
objCDO.Body = "Author: " & author & vbcrlf & _
"Email: " & email & vbcrlf & _
"Comments: " & text & vbcrlf & _
"Picture: " & vbcrlf & picturelink & _
vbcrlf & "--" & vbcrlf & cPageTitle
objCDO.Send
Set objCDO = Nothing
end if
ciao