Join
The Perfect Pets Store Club and
Newsletter
Thank
you for choosing to join the Perfect
Pets Store Club and Newsletter!
Joining is completely FREE of
Charge and becoming a member can
save you money. Perfect Pets Store.com
will send out periodic email updates
to members that will contain manufacturer
updates, special offers, new arrival
notifications and much more.
The
most popular member benefit is
our "Discount Code"
specials. Several times each year
we will send out emails to Perfect
Pets Store members that contain
discount codes that, when entered
during checkout, subtract a percentage
of that sale! These codes are
activated for a short period of
time so when you receive them
make sure to use them right away.
Don't
waste any time! Join Now! *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 subscription request
'Connect to the database
Set con = GetDBConnection()
'Verify that the email address does not already exist 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 rs.EOF Then
'The email address does not already exist, so add it
rs.AddNew()
rs("Email") = Request.Form("txtEmail")
rs.Update()
'The email address has been added, show confirmation.
'MODIFY the text below is displayed when an email is added to the newsletter
%>
Successfully
added to the newsletter and discount
club
<%
Else
'The email address already exists in the database
'MODIFY the text below is displayed when a person tries to enter the same email address
' a second time.
%>
You
have already been added to the
newsletter and discount club,
thanks for your interest.
<%
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
%>
|
