<%@ Language = VBScript%> <% Option Explicit%> <% Response.Buffer = true%> No More Door Community Auditorium for Email Announcements <%dim strQuit, strEmailAddress strEmailAddress=request("EmailAddress") & "" strQuit=request("quit") & "" if strQuit<>"" and trim(strEmailAddress)<>"" then Session("Quit")="on" sql="Select * From EmailAddresses where EmailAddress='" & strEmailAddress & "';" Call objRecordSet.Open( sql, objConnection, adOpenForwardOnly, adLockOptimistic, adCmdText) if not objRecordSet.Eof then objRecordSet.Delete end if else Session("Quit")="" end if %>


<% if session("Quit")<>"" then%>

We are sorry to hear that you have discontinued our email newsletter service. Please consider signing up again.

<% else%>

To remove your name from our email newsletter list, fill in the email address you used and press the button.

Email Address:
<% end if%>