Salve, chiedo cortesemente aiuto a chiunque possa aiutarmi

vorrei poter trasformare il file che riporto di sotto da CDONTS a CDOSYS.

Premetto che ho fatto varie ricerche sia su questo che su altri forum ma senza successo. Purtroppo non conoscendo l'ASP ho fatto più danni che altro.

Ecco la funzione CDONTS del file:

<%
'Send CDONTS E-mail component Function
Private Function CDONTSSendMail(strEmailAddress)

Dim objCDOMail 'Holds the CDONTS e-mail object

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from
objCDOMail.From = strWebsiteName & " <" & strWebsiteEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strEmailAddress

'The subject of the e-mail
objCDOMail.Subject = strSubject

'The main body of the e-mail
objCDOMail.Body = strEmailBody & strAppendToEmail

'Set the e-mail body format (0=HTML 1=Text)
If Request.Form("format") = "HTML" OR Request.Form("format") = "advHTML" Then
objCDOMail.BodyFormat = 0
Else
objCDOMail.BodyFormat = 1
End If

'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server mail object
Set objCDOMail = Nothing

'Return the function as true
CDONTSSendMail = True

End Function


Grazie a tutti
Carlo