<% If Request.Form("name")="" then %>
<%=PageHeader%>
Number of Emails to send to
:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Your Name
:
Your Email
:
Your Friend's Email(s):
Friend 1
:
Your Message
:
<%=PreMessage%>
IntelliPlans - The Intelligent Choice for Internet Services
<% else %>
<%=PageHeader%>
<% If Request.form("Name")="" then error("Name") If Request.form("Email")="" then error("Email") Response.Write "
We sincerely appreciate your recommendation for our service(s).
" dim message,fromEmail,toEmail message = Request.Form("message") fromEmail = Request.Form("Email") dim myMail count = Request.Form("f").Count mainSend = "Mails Send To" & "
" for i= 1 to count set myMail = server.CreateObject("CDONTS.Newmail") toEmail= Request.Form("f")(i) mainSend =mainSend & toEmail & "
" myMail.Body= message myMail.To= toEmail myMail.From= fromEmail myMail.Subject = Subject myMail.Send next set myMail= nothing set myMail = server.CreateObject("CDONTS.Newmail") if MailToMe<>"" then myMail.Body = mainSend myMail.To=toEmail myMail.From = fromEmail myMail.Subject ="Please Tell" 'myMail.Send end if end if %>