<%@ Language=VBScript %>
<% Response.Buffer = True %>
<%
name = Request.Form("name")
email = Request.Form("email")
message = Request.Form("message")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "A Friend"
Mailer.FromAddress = "concerned@friend.com"
Mailer.RemoteHost = "mail.skinchoice.com"
Mailer.AddRecipient name, email
Mailer.AddAttachment "d:\clients\skinchoice.com\www\Important Message.swf"
Mailer.Subject = message
Mailer.BodyText = "Someone that you've recently had sex with wishes to notify you anonymously that they have been diagnosed with a sexually transmitted disease. You need to be aware of this and get yourself checked out by a doctor." & VbCrLf & _
VbCrLf & _
"For more information, go to http://www.skinchoice.com/Important_message.html" & VbCrLf & _
VbCrLf & _
"********************************" & VbCrLf & _
"Please DO NOT Reply to this e-mail."
Mailer.SendMail
%>
SkinChoice, provider of products for herpes, HSV, genital warts, HPV, condyloma,
herpes treatments, genital wart treatments, acne, acne treatments, scars, scar
treatments, wrinkles, fin lines, anti aging, AIDS, HIV, immune system supplements,
STD, STDS, sexually transmitted diseases, STD Photos, Chancroid, Chlamydia, Genital
Herpes
Ordering
Questions? Call
Toll Free
1-866-475-4424
Products
are shipped
in plain brown packaging
to ensure your privacy.
* Disclaimer: These statements have not been evaluated by the Food
and Drug Administration. These products are dietary supplements
and are not intended to diagnose, treat, cure, or prevent any
disease. Always consult with your health care provider before
adding any substances to your diet or making any lifestyle
changes.
