<%
Dim sMsg 
Dim sTo 
Dim sFrom 
Dim sSubject 
Dim sTextBody 

sTo = "nico@overdrive.co.za"
sFrom = "server@bmsa.co.za"
sSubject = "test mail"
sTextBody = "test body"

Dim objMail
'Create the mail object 
Set objMail = Server.CreateObject("CDO.Message")

'Set key properties 
objMail.From = sFrom 
objMail.To = sTo 
objMail.Subject= sSubject 
objMail.TextBody = sTextBody 

'Send the email 
objMail.Send 

'Clean-up mail object
Set objMail = Nothing
%>