How to change this script CDOSYS

[Hadi127]

Hi gusy
I can't find good and large host support CDONTS, all they support CDOSYS,
anyone can help me to how can i change this script, to work us CDOSYS,
with big thanks,

<%

Dim strSender
Dim strRecipientsName
Dim strRecipients
Dim strSubject
Dim strMessage

strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strSubject = "From: " & Request.Form("YName") & " NEWS"
strMessage = "Hello " & Request.Form("Name") & vbCrLf & vbCrLf
strMessage = strMessage & Request.Form("Msg") & vbCrLf & vbCrLf
strMessage = strMessage & "You received this from : " & Request.Form("YName") & " " & Request.Form("YEmail")
strSender = Request.Form("YEmail")
%>
<%
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.cc = "mknoon@mail.com"
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
on error resume next '## Ignore Errors
objNewMail.Send strSender, strRecipients, strSubject, strMessage

If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
on error resume next '## Ignore Errors
Set objNewMail = Nothing
%>

[Spudhead]

http://tinyurl.com/dcgjff

[Hadi127]

i want someone to fix the script,
but with this link, also big thanks, i fix it :)