From Lunarpages Web Hosting Wiki

I am on a Windows plan and CDONTS does not seem to be working. Is there something else I can use like CDOSYS?

CDONTS is installed on our Linux servers. Please use CDOSYS on our Windows servers.

Here is a working example of CDOSYS without the opening ASP tags:

 Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
 Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
 Const cdoAnonymous = 0 'Do not authenticate
 Const cdoBasic = 1 'basic (clear-text) authentication
 Const cdoNTLM = 2 'NTLM
 Set objMessage = Server.CreateObject("CDO.Message")
 objMessage.Subject = "Example CDO Message"
 objMessage.Sender = ""
 objMessage.From = ""
 objMessage.To = ""
 objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."
 '==This section provides the configuration information for the remote SMTP server.
 objMessage.Configuration.Fields.Item _
 ("") = 2
 'Name or IP of Remote SMTP Server
 objMessage.Configuration.Fields.Item _
 ("") = ""
 'Type of authentication, NONE, Basic (Base64 encoded), NTLM
 objMessage.Configuration.Fields.Item _
 ("") = cdoBasic
 'Your UserID on the SMTP server
 objMessage.Configuration.Fields.Item _
 ("") = "youruserid"
 'Your password on the SMTP server
 objMessage.Configuration.Fields.Item _
 ("") = "yourpassword"
 'Server port (typically 25)
 objMessage.Configuration.Fields.Item _
 ("") = 25
 'Use SSL for the connection (False or True)
 objMessage.Configuration.Fields.Item _
 ("") = False
 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
 objMessage.Configuration.Fields.Item _
 ("") = 60

Note: Change the SMTP Server with your Username --> Change with your email account in this format ( Password-> Your email password.