Microsoft discontinued CDONTS codes.

Below is the sample CDOSYS code which is used for feedback or contact forms in website:

dim Mailer
set Mailer = server.createobject(“CDO.Message”)
Mailer.From = “from@yourdomain.com”
Mailer.To = “to@somebody.com”
Mailer.TextBody = “Text content”
Mailer.Subject = “Mail subject”
with Mailer.Configuration
.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “mail.yourdomain.com”
.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
.Fields.Update
end with
Mailer.Send
set Mailer = Nothing

NOTE : Please replace the values with exact thing of yours.