<%
Option Explicit
Dim objMail
Dim TheMessage
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "tim@na.com"
objMail.From = "bob@na.com"
objMail.Subject = "Chyba oszalelimy!"
TheMessage = "<HTML>" _
   & "<HEAD>" _
   & "<TITLE>Mamy wyprzeda</TITLE>" _
   & "</HEAD>" _
   & "<BODY>" _
   & "<H1><CENTER>Wszystko tasze o <STRIKE>30%</STRIKE> " _
   & "50% !</CENTER></H1>" _
   & "<HR>" _
   & "<P>Zajrzyj do nas! <A HREF=""http://www.na.com"">" _
   & "kliknij tutaj!</A></P>" _
   & "</BODY>" _
   & "</HTML>"
objMail.Body = TheMessage
objMail.Importance = 2
objMail.BodyFormat = 0
objMail.MailFormat = 0 
objMail.Send
Set objMail = Nothing
%>
