NAME="CDO for Windows 2000 Library"
Set cdoConfig = CreateObject("CDO.Configuration")
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "184.108.40.206"
Set cdoMessage = CreateObject("CDO.Message")
Set .Configuration = cdoConfig
.From = "email@example.com"
.To = "firstname.lastname@example.org"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.write "<HTML><head><title>A message has been sent.</title></head><body>A message has been sent.</body></HTML>"
Replace the .To and .From email addresses as appropriate. Also chaneg the IP address of the SMTP server to yours.
If this doesn't work, tell us how you know it doesn't work.
Just because the email didn't show up doesn't mean the code isn't working.
Check the SMTP logs, check for firewalls, authentication requirements, spam filters and so on.