%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim startDate, currentDate, elapsedTime, smokingDeaths, hourX, minuteX, KsmokingDeaths, KidsSmokingDeaths
'==== Adult section
startDate = DateSerial(2000,1,1)
currentDate = DateSerial(Year(Now),Month(Now),Day(Now))
elapsedTime = DateDiff("n",startDate,currentDate) 'minutes between start date and current date
hourX = hour(now) 'amount of hours INTO the current day
minuteX = minute(now) 'amount of minutes INTO the current hour
smokingDeaths = ((elapsedTime * 7) + ((hourX*60)*7) + (minuteX*7))
'==== End Adult section
'==== Kids section
KsmokingDeaths = ((elapsedTime * 2.08) + ((hourX*60)*2.08) + (minuteX*2.08))
KidsSmokingDeaths = KsmokingDeaths/3
KidsSmokingDeaths = round(KidsSmokingDeaths)
'==== End Kids Section
'====== Begin Tobacco Bucks
Dim thisSecX, thisYearX, secondX, tobaccoBucksSpentX
thisYearX = DateSerial(2007,1,1)
secondX = second(now)
thisSecX = DateDiff("s",thisYearX,currentDate) + (hourX*60*60) + (minuteX*60) + secondX
tobaccoBucksSpentX = ((15400000000/365/24/60/60)*thisSecX)
'====== End Tobacco Bucks
%>
Quit Smoking Gradually With Proven Stop Smoking Technique
PRESS Get the news and interviews
Welcome
to the SmokeFreeSociety.org press area. Here you can read published
newspaper articles, interviews, official press releases (posted
when available to the public) and gather background information
on the Smoke Free Society Corporation. You can also download print-quality
press released images including official Smoke Free Society Corporation
logos and photos of key personnel. Just follow the links. The press
area is updated regularly, so check back often for new material.
FOR
MORE INFORMATION AND INTERVIEWS:
Please e-mail: Michael R. Abramowitz Public Relations
Smoke Free Society PRESS@SmokeFreeSociety.org
Or call (561) 844-5856
PHYSICIANS
MEDIA AVAILABILITY:
The
Smoke Free Society's Physicians
Advisory and Recommendation Committee (PARC)
members are available for print, radio and television interviews
with prior arrangement. Please click
here to email us with your request.