<% if (request("act") = "SAVE") then nEmail = request("nEmail") sqlStr = "DELETE FROM Emails WHERE Email='" & nEmail & "' " 'response.write sqlStr ssDB.execute SqlStr mText = "" mText = mText & request("nEmail") & " just removed their e-mail address from the system." & vbCrLf subj = "U.S. Rare Coin Investments E-mail Removal" Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From = nEmail MyCDONTSMail.Subject = subj MyCDONTSMail.To = "thecoinguy1955@yahoo.com" MyCDONTSMail.Body = mText MyCDONTSMail.Send end if %> Rare Coin Gold Coins U.S. Rare Coin Investments usrarecoininvestments.com
Home
Newsletter
About Us
Coins For Sale
Selling Your Coins
Coin Collecting
Investing in Coins
Coin Information
Coin Articles
/World Coins
Books, Loupes etc.
Link to Us
Links
Contact Us
  Sign up for our free NewsLetter
  e-mail: 
  Sign Up 
 


 

 

 

 


<% if (request("act") = "SAVE") then %> <% end if %>

Your E-mail address has been removed.
Please enter e-mail address below and click "SUBMIT"
to remove your e-mail address from our mailing lists.

E-mail Address: 

NOTE: You must click "SUBMIT".
Hitting the ENTER key WILL NOT remove your e-mail address.