How to send mail using CDO - SMTP authentication

<%
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
Set Flds = objConfig.Fields

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="sm##.internetmailserver.net"

Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]"
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"

Flds.update
Set objMessage.Configuration = objConfig
objMessage.To = "[email protected]"
objMessage.From = "[email protected]"
objMessage.Subject = "CDO email test"
objMessage.fields.update
objMessage.HTMLBody = "Test sent from CDO using smtp authentication."
objMessage.Send
%>