<% option explicit dim funcDump, from %> <% dim action, name, email, phone, country, products, marketing, message, emailBody 'PBJ = request("PBJ") 'if instr(PBJ, ", ") then PBJ = arrayItemsToSingleItem(PBJ) 'if PBJ = "" then PBJ = setPBJ() 'response.write "~~:PBJ: " &PBJ &"
" 'response.write "~~:len(PBJ): " &len(PBJ) &"
" 'populateGlobalVariables() action = request.form("action") 'writePageHeader() if action = "submit" then emailBody = "Name: " &request.form("fname") &vbcrlf _ &"lastname: " &request.form("lastname") &vbcrlf _ &"serviceaddress: " &request.form("serviceaddress") &vbcrlf _ &"city: " &request.form("city") &vbcrlf _ &"state: " &request.form("state") &vbcrlf _ &"zip: " &request.form("zip") &vbcrlf _ &"phonenumber: " &request.form("phonenumber") &vbcrlf _ &"Email: " &request.form("email")&vbcrlf _ &"plan: " &request.form("plan") &vbcrlf _ &"distinctivering: " &request.form("distinctivering") &vbcrlf _ &"dslphone: " &request.form("dslphone") &vbcrlf _ &"dsl: " &request.form("dsl") &vbcrlf _ &"agree: " &request.form("agree") &vbcrlf _ &"datea: " &request.form("datea") &vbcrlf _ &"phone: " &request.form("phone") &vbcrlf _ &"dayphone: " &request.form("dayphone") &vbcrlf _ &"SS: " &request.form("SS") &vbcrlf _ &"dateofbirth: " &request.form("dateofbirth") funcDump = global_sendEmail("Info@ReducedLongDistance.com", "", "", request.form("email"), "Tahitian Noni Inquiry", emailBody, "") showThankYou() else showSubmitionForm() end if 'writePageFooter() %> <% '============================================================== END MAIN ========================================================= function global_sendEmail(to_, cc, bcc, from, subject, emailBody, attachment) Dim msg, flds, conf Set msg = CreateObject("CDO.Message") Set conf = CreateObject("CDO.Configuration") Set flds = conf.Fields 'Flds(cdoSendUsingMethod) = cdoSendUsingPort 'Flds(cdoSMTPServer) = "127.0.0.1" 'Flds(cdoSMTPServerPort) = 25 'Flds(cdoSMTPAuthenticate) = cdoBasic 'cdoAnonymous ' 0 'Flds(cdoSendUserName) = "mail" 'Flds(cdoSendPassword) = "usmpw1" 'Flds.Update 'Set msg.Configuration = conf 'response.write "to_: " &to_ &"
" 'response.write "from: " &from &"
" 'response.write "cc: " &cc &"
" 'response.write "bcc: " &bcc &"
" 'response.flush msg.to = to_ msg.From = from msg.cc = cc msg.bcc = bcc msg.Subject = subject msg.TextBody = emailBody msg.AddAttachment attachment msg.Send set msg = nothing set conf = nothing set flds = nothing end function <% '============================================================== END MAIN ========================================================= function showSubmitionForm() %> Sign-Up for Service
Call us Toll Free

1-800-379-2465
Opportunity
 


Our competitive rates are revolutionizing the industry and spreading across the nation at an uprecedented rate (see our feature in Fortune Magazine). If you are interested in being a part of this rapidly growing opportunity.

Tell me more

Our Customers
 

I have been very impressed with the quality of ACN service. Their free calling between ACN customers has saved my family tons of money on their monthly phone bill. I have especially liked the combined phone and internet bill. That has been very convenient.

M Campbell

Roswell,
New Mexico


   To Sign Up Now Click Here
Or for More Information: Call Us Toll Free at...
1-800-379-2465


Unbeatable Long Distance and Internet Rates!


Call your friends and family for FREE! As an ACN customer, you receive UNLIMITED FREE long distance to all other ACN customers. With long distance plans starting as $1.99 a month and rates as low as 4.9 cents minute to non-ACN customers, your monthly bills are sure to drop.

Several ACN Advantage plans are available in your area. You can now begin to save money on your telephone bill every month, while enjoying the convenience of one company, one bill. Select the plan that best meets your needs and start saving on long distance today! There are two choices on long distance that are available in your area: Connect Home or Connect Plus.

Connect Home
  • FREE Unlimited ACN-2-ACN Long Distance calling
  • Priced at just $1.99 a month.
  • Includes 30 FREE minutes of state-to-state calling per month
  • State-to-state calls are just 8.9 cents per minute


  • Connect Plus
  • FREE Unlimited ACN-2-ACN Long Distance calling
  • Priced at just $4.99 per month
  • State-to-state calls are just 4.9 cents per minute


  • To Sign Up Now Click Here






       Copyright 2003-04 Reduced Long Distance.com    
    <% end function <% end function %>