<% 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 = "Get a daily quote in your email each day." 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\cgi-bin\Distribution.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 %> All About Quotes - Get a daily quote
 

<%= Completed %>

Do you use quotes in your writing and speaking? Are you always looking for just the right quote as a great lead or the perfect conclusion? All About Quotes.com offers a daily quote sent to your email box. A different topic will be featured weekly.

To subscribe to the AllAboutQuotes.com Daily Email Quote, just enter your e-mail address below. We We respect your privacy and your address will never be sold or given away. Thanks for subscribing and enjoy the daily quotes.


subscribe or unsubscribe

If you have problems unsubscribing please email GetMeOff@allaboutquotes.com

Last Update: 3/24/03
Contact creator: Webmaster
Copyright © 2002-2006 Ko'olau Design - All rights reserved.