<%
Option Explicit
Dim objMail
Dim TheMessage
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "julie@na.com;jill@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.Send
response.write "gotowe"
Set objMail = Nothing
%>  
