<%
Option Explicit
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "bob@na.com"
objMail.From = "tom@na.com"
objMail.Subject = "Wiadomo testowa"
objMail.Body = "Tekst wiadomoci!"
objMail.Send , , , , 2
Set objMail = Nothing
%>
