CDOSYS + CDONTS >> update to sendmail.asp

Hi. I was using a sendmail.asp form on a windows host without any problems for the last couple of years, suddenly stopped working. When I contacted the host, I was told that they are no longer using CDONTS, because they have upgraded to Windows server 2003. I was told that I would need to update my code for "CDOSYS".

Can you help please?

Here is the existing code for the sendmail.asp:

<%
response.buffer = true
message = "The following data was submitted:"
message = message & vbcrlf & vbcrlf
for each item in request.form
message = message & item & ": " & request.form(item) & vbcrlf
next
set mailer = server.createobject("CDONTS.NewMail")
mailer.subject = "Email Address Updates"
mailer.from = request.form("email")
mailer.to = "me@mysite.com" '<---Put your email address here
mailer.body = message
mailer.send
set mail = nothing
response.redirect("http://www.mysite.com/thanks.htm")
%>
 
In advance, many thanks for your help.