the hosting company doesn't have cdonts and now supports cdosys. I am not sure how to convert the old code (below) to cdosys. I get errors no matter what I do help!

<%
dim str
dim strEmailBody
For Each str In request.form
strEmailBody = strEmailBody & str & ":" & request.form(str) & "<BR>" & vbCrLf
Next

'email send
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat=0
objMail.Mailformat=0
objMail.From = "horses@yahoo.ca"
objMail.To = "horses@yahoo.ca"
objMail.Subject = "Riding form"
objMail.Body = strEmailBody

'send the mail
objMail.Send

'destroy email object once sent to user
Set objMail = Nothing
%>
<%
'get the info from the form and set cookies

Dim name, LastName, email

name = Request.Form("fullName")
LastName = Request.Form("LastName")
email = Request.Form("email")


Response.Cookies("visit").Expires = #5/10/2015#
Response.Cookies("visit").Path = "/"
Response.Cookies("visit")("fullName") = fullName
%>