<%
Option Explicit
Dim objMail
Dim TheMessage
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "julie@na.com "
objMail.From = "bob@na.com"
objMail.Subject = "Witamy!"
TheMessage = "Cze:" & chr(13) & chr(13) _
  & "Dzikujemy za odwiedzenie naszej witryny!" & chr(13) & chr(13) _
  & """Cenimy sobie Twoj firm!"""
objMail.Body = TheMessage
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
response.write "gotowe"
%> 
