%
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