mi aiutate a convertire questo script da CDONTS a CDOSYS ?

codice:
IF not RecSet.Eof then

' INDIRIZZO EMAIL NOSTRO
mittente = "mioaccount@mail.com"

Do until Recset.eof 

' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")

' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = Request.Form("testo")

' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = Request.Form("oggetto")

' INVIA IL MESSAGGIO
Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = destinatario
email.Subject =  oggetto

' FORMATO EMAIL
email.BodyFormat = Request.Form("formato")
email.MailFormat = Request.Form("formato")


email.Body = testo

' INVIA L'EMAIL E..
email.Send

Set email = nothing
Grazie!