<% dim objFSO, objDrive, objFolder, objEmail, objSubscrib dim objTextStream, colFiles, objFile, Completed, strLineText dim intLineNum, strLineNum Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TriStateDefault = -2, TriStateTrue = -1, TriStateFalse = 0 Completed = "Free Marketing Tip." objEmail = LCase(trim(Request.Form("email"))) objSubscrib = trim(Request.Form("subscriber")) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("D:\html\users\177411\allaboutquotescom\html\writerspeaker\cgi-bin\MarketingTips.txt") If objSubscrib = "subscribe" then Set objTextStream = objFile.OpenAsTextStream(ForReading, TriStateDefault) Do While Not objTextStream.AtEndOfStream strLineText = LCase(objTextStream.ReadLine) If strLineText = objEmail then Completed = objEmail + " is already subscribed" end if Loop if Completed <> objEmail + " is already subscribed" then Set objTextStream = objFile.OpenAsTextStream(ForAppending, TriStateDefault) objTextStream.WriteLine(objEmail) Completed = objEmail + " is now subscribed" End if elseif objSubscrib = "unsubscribe" then Completed = objEmail + " was not subscribed" Set objTextStream = objFile.OpenAsTextStream(ForReading, TriStateDefault) Do While Not objTextStream.AtEndOfStream strLineText = LCase(objTextStream.ReadLine) If strLineText = "Remove" + objEmail then Completed = objEmail + " was not subscribed" Elseif strLineText = objEmail then Completed = objEmail + " has been unsubscribed" End if Loop If Completed = objEmail + " has been unsubscribed" then Set objTextStream = objFile.OpenAsTextStream(ForAppending, TriStateDefault) objTextStream.WriteLine("Remove" + objEmail) End if End if %> You Can Market Your Book

A marketing tool kit for published authors.

You Can Market Your Book is designed to help you understand basic book marketing principles. No matter how your book was published, unless you are a superstar author, you are the main salesperson. Yes, you might have distribution and you might even have a publicist for a brief time, but ultimately it's up to the author. You need to be as aggressive as possible if you want to reclaim your garage or closets from the boxes of unsold books, or if you expect a royalty check from your publisher.

This book is filled with practical, low-cost ideas, strategies and case studies guaranteed to get your book to the people who need it. You wrote your book because of a passion. You Can Market Your Book will teach you how to reach readers and change lives.

Now available through

<%= Completed %>

Do you want to sell more books? No one is more passionate about your book than you. Whether you self published or your book was released through more traditional channels it's all about marketing. Sign up today for our free email tip service featuring practical, low-cost ideas and case studies guaranteed to get your book to the people who need it.

To subscribe just enter your e-mail address below. We respect your privacy and your address will never be sold or given away. Thanks for subscribing and remember, it's all about marketing.

checked <% end if %>> subscribe or <% end if %>> unsubscribe
your email address<% else %><%=objEmail%><% end if%>">

Have A Marketing Tip?

Have you taken an idea and put your own unique spin on it to sell books?

Send us your best tips and you might be featured in the tips email or even in my new upcoming book on self publishing.

All cover artwork with a Web site link to your site will be included with any ideas used. If you have something you'd like to share with other writers, please e-mail me at

Carmen@writerspeaker.com.

A marketing tool kit for published authors.

Last Update: 9/12/04 Contact creater: Webmaster Copyright © 1999 - 2003 Living Hope, Inc. All rights reserved.

Last Update: 9/12/04
Contact creater: Webmaster
Copyright © 1999 - 2003 Living Hope, Inc. All rights reserved.