<% WriteHeader() %>
<%
If Not IsEmpty(GetValue("email")) Then
Dim nRows
nRows = 0
OpenDatabase()
DB.execute("UPDATE contact_list SET user_oktomail = 0 WHERE user_email = " & Quote(GetValue("email"))), nRows
If nRows > 0 Then
Session("RESULT") = "You have successfully unsubscribed the e-mail address '" & GetValue("email") & "' from all of USCSI's mailing lists. Return to the Main Page" & vbCrLf
CloseDatabase()
Call SendSimpleMail("info@uscsi.org", "USCSI.org Website", "goyer@uscsi.org", "John Goyer", "USCSI Unsubscribe", GetValue("email") & " has unsubscribed from the USCSI/GSN Mailing List.")
Call SendSimpleMail("info@uscsi.org", "USCSI.org Website", "erickr@americaneagle.com", "Erick Robertson", "USCSI Unsubscribe", GetValue("email") & " has unsubscribed from the USCSI/GSN Mailing List.")
Response.Redirect("result.asp?GFS=Y")
Else
%>
The e-mail address you entered could not be found in our system. Please check the spelling and try again.
<%
End If
CloseDatabase()
End If
%>
To unsubscribe from the CSI mailing lists, please enter your e-mail address
below and click the Unsubscribe button. Please note that this form will remove
you from all of the mailing lists. If you only wish to be removed from some of
the mailing lists, use the Contact Us page.