<% 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 = "Receive the Garden Glories DivorceWise Newsletter." objEmail = LCase(trim(Request.Form("email"))) objSubscrib = trim(Request.Form("subscriber")) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("D:\html\users\gardengloriescom\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 %> Garden Glories-Faith-based grief recovery and divorce care

<%= Completed %>

To receive an e-mail newsletter please fill in this form and click on submit. You will not be added to any spam list. We will not give out your address to any person or organization.


subscribe or unsubscribe

 

View Current Newsletter now!

 
Copyright 2002 by Kari West