modificare da cdonts a cdosys

[fabiusriders]

Ciao a tutti è da qualche giorno che sto sbattendo la testa su questo script!!
ho la necessità di modificare il seguente codice pre l'invio di una mail tramite form, il client adoperato è cdonts, ma lo devo modificare in cdosys per aruba..
come devo fare???
<%
If Request.QueryString("action") = "sent" Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = Request.Form("EMAIL")
objCDO.To = Request.Form("ad_email")
objCDO.cc = Request.Form("EMAIL")
objCDO.Subject = Request.Form("SUBJECT")
objCDO.Body = Request.Form("MESSAGE")
objCDO.Send()
Set objCDO = Nothing
End If
%>

grazie a tutti per le risposte

[optime]

è un 3d bene in evidenza... http://forum.html.it/forum/showthrea...hreadid=682557

[fabiusriders]

ho risolto. posto il risultato se può interessare a qualcuno

<%
If Request.QueryString("action") = "sent" Then

Set myMail=CreateObject("CDO.Message")
myMail.From= Request.Form("EMAIL")
myMail.To= Request.Form("ad_email")
myMail.cc= Request.Form("EMAIL")
myMail.Subject = Request.Form("SUBJECT")
myMail.TextBody= Request.Form("MESSAGE")
myMail.Send
set myMail=nothing
End If
%>