Health Tech

<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit If not isempty(Request.form("Submit")) then Dim objNewMail Dim LFrom Dim LEmailTo Dim LSubject Dim LBody ' ============================================================================ ' ' Email the address to ListBox ' -------------------------------- LFrom = Request.form("email") LEmailTo = "subscribe-clear_choice_fan_club@listbox.com" LSubject = "Subscribe" LBody = "subscribe clear_choice_fan_club" ' Set objNewMail = Server.CreateObject("CDONTS.NewMail") ' objNewMail.From = LFrom objNewMail.To = LEmailTo objNewMail.BCC = "mike@thirdwavedigital.com" objNewMail.Subject = LSubject objNewMail.Body = LBody ' objNewMail.Send Set objNewMail = nothing ' ============================================================================ response.redirect("fan_club_thanks.htm") end if %> Health Tech

Are you “pissed off” about drug testing?

Join the Clear Choice® Fan Club and receive:

The latest news and updates on drug testing!
Our event calendar for rallies, concerts, and festivals that we will be attending!
Specials on Clear Choice® products and merchandise!

Our Fan Club list is kept strictly confidential. We do not sell or share our lists.

Are you “pissed off” about drug testing?

JOIN THE CLUB!