modificare da cdonts a cdosys

[fabiusRiders]

Ciao a tutti è da qualche giorno che sto sbattendo la testa su questo script!!:hammer:
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

 

[fabiusRiders]

ho risolto, posto il risultato, se qualcuno è interessato!!

<%
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
%>

 

[Paolo69]

ti posto questo link, dagli un'occhio se il codice li postato può servirti anche in futuro:

http://www.liga-multiplayer.com/Community/forum_posts.asp?TID=87&title=asp-inviare-email-con-cdOnts-windows-2003s