Un-Subscribe
From The Perfect Pets Store Club News
Thank
you for choosing to join the Perfect Pets
Store Club and Newsletter! We hate to see
you go as you will be missing out on all
the manufacturer updates, special offers,
new arrival notifications and much more.
We hope you will reconsider.
*Note - Perfect Pets Store will never give
or sell your information to any outside
party nor will we send you any junk mail
or spam.
<%
Dim con, rs, strSql
If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter unsubscribe request
'Connect to the database
Set con = GetDBConnection()
'Verify that the email address exists in the database
strSql = "SELECT Email FROM Subscribers WHERE Email = '" + Request.Form("txtEmail") + "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2
If Not(rs.EOF) Then
'The email address does not already exist, so add it
rs.Delete()
rs.Update()
'MODIFY the text below is displayed when an email is removed from the newsletter
%>
You
have been removed from the newsletter
and discount club. Click
Here to continue shopping.
<%
Else
'MODIFY the text below is displayed when a person enters an email address that is not
' receiving the newsletter
%>
Your
email address was not found in our system.
Click Here
to continue shopping.
<%
End If
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing
Else
'MODIFY the text below is displayed when the page is first loaded.
%>
<%
End If
%> |