<%
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.
