Fast Feng Shui Newsletter

<%@ Language=VBScript %> <% Dim objCDOMail 'The CDO object 'Variables for database processing Dim CurrentDateTime Dim dcnDB 'As ADODB.Connection Dim rsReg Dim ServerPath ServerPath = Server.MapPath(".") Dim DBLocation DBLocation = ServerPath & "..\databases\FFS_emailaddr.mdb" %> <% if isempty(Request.Form("SubmitRequest")) then TheMessage1 = "Fast Feng Shui Newsletter Subscription Form" TheMessage2 = "Note that fields with ** are required.
" else TheName = Request.Form("Name") TheEmailAddress = Request.Form("EmailAddress") If Request.Form("HTML") = "HTML" then TheFormat = "HTML" else TheFormat = "Text" TheMessage = Request.Form("Message") FutureTitle = Request.Form("FFSProsperity") & vbCrLf & Request.Form("FFSWriters") & vbCrLf & Request.Form("FFSNewlyweds") TheInterest = Request.Form("career") & vbCrLf & Request.Form("creativity") & vbCrLf & Request.Form("fame") & vbCrLf & Request.Form("family") & vbCrLf & Request.Form("travel") & vbCrLf & Request.Form("love") & vbCrLf & Request.Form("prosperity") & vbCrLf & Request.Form("spirituality") if isempty(Request.Form("Name")) or Request.Form("Name") = "" then TheMessage1 = "The form was not submitted." TheMessage2 = "Name is required!" elseif isempty(Request.Form("EmailAddress")) or Request.Form("EmailAddress") = "" then TheMessage1 = "The form was not submitted." TheMessage2 = "Email Address is required!" elseif instr(Request.Form("EmailAddress"),"@") = 0 then TheMessage1 = "The form was not submitted." TheMessage2 = "Email Address is invalid!" elseif instr(Request.Form("EmailAddress"),".") = 0 then TheMessage1 = "The form was not submitted." TheMessage2 = "Email Address is invalid!" end if if TheMessage1 <> "The form was not submitted." then Set dcnDB = Server.CreateObject("ADODB.Connection") cString = "fastfeng01" dcnDB.Open cString CurrentDateTime = Now Set rsReg = Server.CreateObject("ADODB.Recordset") rsReg.Open "SELECT * FROM subscribers", dcnDB, adOpenKeyset, adLockOptimistic rsReg.AddNew rsReg("date_entered") = CurrentDateTime rsReg("name") = TheName rsReg("email") = TheEmailAddress rsReg("format") = TheFormat rsReg("futuretitle") = FutureTitle rsReg("interest") = TheInterest rsReg("message") = TheMessage rsReg.Update rsReg.Close dcnDB.Close Set dcnDB = Nothing TheMessage1 = "Thanks for subscribing with us." TheMessage2 = "Your request has been submitted!
Please enjoy the rest of the site." EmailMessage = "Fast Feng Shui, request info/subscribe details:" _ & chr(13) & chr(13) EmailMessage = EmailMessage & "Name: " & TheName & chr(13) EmailMessage = EmailMessage & "Email Address: " & TheEmailAddress & chr(13) EmailMessage = EmailMessage & "Email format: " & TheFormat & chr(13) EmailMessage = EmailMessage & "Future Title(s): " & FutureTitle & chr(13) EmailMessage = EmailMessage & "Interest(s): " & TheInterest & chr(13) EmailMessage = EmailMessage & "Message: " & TheMessage & chr(13) WelcomeMessage = "Dear " & TheName & "," & vbCrLf & vbCrLf WelcomeMessage = WelcomeMessage & AutoReply ' Create an instance of the NewMail object. ' Send auto reply to signee Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' Set the properties of the object objCDOMail.From = "Stephanie Roberts" objCDOMail.To = TheEmailAddress objCDOMail.Subject = "Welcome to Fast Feng Shui" objCDOMail.Body = WelcomeMessage ' Send the message! objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing ' Create an instance of the NewMail object. ' Send info request to HM Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' Set the properties of the object objCDOMail.From = TheName & "<" & TheEmailAddress & ">" objCDOMail.To = "lotuspnd@pixi.com" objCDOMail.Subject = "New Subscriber!" objCDOMail.Body = EmailMessage ' Send the message! objCDOMail.Send Set objCDOMail = Nothing end if end if %> Fast Feng Shui Newsletter

More FREE Feng Shui information:

FAQs
Articles
Quick Tips
Book Excerpts
Free Downloads

Partners

Feng Shui Interior Design
Feng-Shui-Ebooks
Clutter-Free Forever
All About Prosperity
EMF-Health-BIOPRO

FAST FENG SHUI.com

Home Contact Subscribe Links & Resources Site Map

Fast Feng Shui Newsletter

Create a home environment that supports your life aspirations. Do you wish to improve your relationships, career, cash flow, health, etc.? Learn how to enhance the flow of chi in your home and invite harmony in your life. Click here to get your copy of our highly-acclaimed best-selling book, Fast Feng Shui: 9 Simple Principles for Transforming Your Life by Energizing Your Home.

We also invite you to fill in the form below to subscribe to our twice-monthly newsletter. Each informative issue provides one or more of the following:

FREE feng shui tips to enhance a particular area of your life and home
Announcements when new articles and/or ebooks are made available on the site
Special product/services discount offers available to subscribers only
Occasionally, FREE beta-testing information products (ebooks and/or home study courses) available to volunteers selected from our subscriber base

Click here to read our current issue
Click here to browse our newsletter back issues

Do you RSS?

-------------------------------------------------------------------------------

RSS FEEDS

Add the Fast Feng Shui Blog (RSS) to your feed list today to receive directly our FREE feng shui tips, important announcements and updates.

http://feeds.feedburner.com/fastfengshui

RSS by Software Use: If you are currently using a RSS Feed Reader, simply copy the url for the News Feed into your reader.

RSS by Browser: If you are currently using an RSS Feed Service, search for Fast Feng Shui Blog in your service directory window and add us to your list of feeds.

Need more RSS info? Here's some basic information about RSS. For web business owners: get the newest ebook on Marketing with RSS feeds (supplying you with information, examples and advice, plus some great tools) to get your marketing kick-started with this dynamic media!