%@ Language=VBScript %>
<%
'====== Hit Counter section
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("/sfsc/Plans-2-150hit_count.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("/sfsc/Plans-2-150hit_count.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'====== End Hit Counter section
'=========== Date Function ==========
Function kaos_date(ByVal StringStructure,ByVal Timestamp)
'-- validate arguments --
If Not IsDate(Timestamp) Then 'invalid date
kaos_date = Timestamp
Exit Function
End If
If InStr(1,StringStructure,"%",0) = 0 Then 'invalid structure
kaos_date = Timestamp
Exit Function
End If
Dim zTmpDate1,zTmp1,zTmp2
zTmpDate1 = StringStructure
'# day of month / suffixes #
zTmp1 = Day(Timestamp) 'day of month number
Select Case zTmp1 'day suffix
Case 1,21,31
zTmp2 = "st"
Case 2,22
zTmp2 = "nd"
Case 3,23
zTmp2 = "rd"
Case Else
zTmp2 = "th"
End Select
zTmpDate1 = Replace(zTmpDate1,"%d",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%D",Right(("0" & zTmp1),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%s",zTmp2,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%S",UCase(zTmp2),1,-1,0)
'# weekday name / number #
zTmp1 = Weekday(Timestamp)
zTmp2 = WeekdayName(zTmp1)
zTmpDate1 = Replace(zTmpDate1,"%e",Left(zTmp2,3),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%E",zTmp2,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%w",zTmp1,1,-1,0)
'# month name / number #
zTmp1 = Month(Timestamp)
zTmp2 = MonthName(zTmp1)
zTmpDate1 = Replace(zTmpDate1,"%m",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%M",Right(("0" & zTmp1),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%n",Left(zTmp2,3),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%N",zTmp2,1,-1,0)
'# year / day of year #
zTmp1 = Year(Timestamp)
zTmpDate1 = Replace(zTmpDate1,"%y",Right(CStr(zTmp1),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%Y",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%z",DatePart("y",Timestamp),1,-1,0)
'# times #
'am/pm indicator
zTmp1 = Hour(Timestamp)
If zTmp1 < 12 Then
zTmp2 = "am"
Else
zTmp2 = "pm"
End If
zTmpDate1 = Replace(zTmpDate1,"%a",zTmp2,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%A",UCase(zTmp2),1,-1,0)
'24hr hour number
zTmpDate1 = Replace(zTmpDate1,"%h",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%H",Right(("0" & zTmp1),2),1,-1,0)
'12hr hour number
If zTmp1 > 12 Then
zTmp1 = zTmp1 - 12
End If
'hour 0 fix, courtesy of Bob Gregorius. thanks Bob :)
If zTmp1 = 0 Then
zTmp1 = 12
End If
zTmpDate1 = Replace(zTmpDate1,"%g",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%G",Right(("0" & zTmp1),2),1,-1,0)
'minutes and seconds
zTmpDate1 = Replace(zTmpDate1,"%t",Right(("0" & Minute(Timestamp)),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%T",Right(("0" & Second(Timestamp)),2),1,-1,0)
'# return the now parsed date string to the function #
kaos_date = zTmpDate1
End Function
'=========== End Date Function ==========
%>
Our Effective Quit Plans
OUR
EFFECTIVE QUIT PLANS A healthier future for your
employees!
Helping
employees quit smoking in just 17 days without
the
use of any substance or drug!
Quit
now.™
Quit right!
6 Proven Quit Smoking
Plans Each
just as effective
These
plans are based on our Proven Stop Smoking Technique™
and our key, three-step
principle: preparation, quitting and support to help smokers quit smoking in just 17 days without
the use of any substance or drug and stay smoke free! This
effective and proven technique gradually weans smokers off
of their cigarettes, reducing their craving and painful withdrawal
symptoms that weaken their resolve and force them to smoke
again!
Investing
in tobacco cessation provides a proven return on investment
for your company - Recent
studies suggest the benefits of cessation outweigh the costs
and offer a net gain over time. Researchers at the University
of Michigan simulated the financial results of a workplace
cessation program. The results suggested that, by the third
year, the savings to the company matched the total costs of
the cessation program. By the fifth year, the financial benefits
were almost twice the costs.
An
estimated 1 out of 4 Americans smoke - that
means, unfortunately, 1 out of 4 of your employees smoke
and/or live with one who smokes! Tobacco use
and smoking among employees can be reduced to improve their
health, productivity and socioeconomic well-being while
saving employers a great amount of money! An average smoker
loses 3 hours and 20 minutes of their waking hours to smoking
-- that means in an 8-hour shift, the employer is losing
nearly 2 hours of productivity or over $9,300 a year! Nearly
45 million smokers have quit smoking in the past decade,
they can too!
It is most certain that in
the near future it is going to get more expensive, if not
outright impossible, to obtain health insurance for your
employees who smoke. They may even have to be smoke free
for 5 to 10 years before they can be qualified to obtain
health insurance!
ESTIMATED
COST SAVINGS TO EMPLOYER FOR IMPLEMENTING
SFSC SMOKE-FREE WORKPLACE BASIC QUIT PLUS PLAN
Smoking
is costly to employees as is to employers both in terms of
smoking-related medical
expenses and lost productivity. SFSC smoking cessation programs
and plans help
educate all employees on the adverse effects of smoking on
their health and wealth while
cutting costs and increasing employee productivity
Number
of Employees
Estimated
Number of Smokers
(1 out of 4)
Estimated Annual Loss to Employer
($9,349 each smoker)
Estimated
SFSC
Basic Plus Plan Cost
(Total)
Percentage
of Savings
to Employer
25
6
$ 56,094
$
500
99.1%
50
13
$
121,537
$
1,040
99.1%
100
25
$
233,725
$
2,000
99.1%
250
63
$
588,987
$
5,040
99.1%
500
125
$
1,168,625
$
10,000
99.1%
1000
250
$
2,337,250
$ 20,000
99.1%
2000
500
$
4,674,500
$ 40,000
99.1%
A
Costly and Time-Consuming Habit
Average
time lost smoking cigarettes for each smoker
and its toll on employers
Based
on 20 cigarettes per day with an average of 10 minutes per cigarette
Time
Loss
to employee
Loss
to employer
In
a day
3
hours and 20 minutes of
a waking day
1
hour and 40 minutes of
productive work
In
a week
24
waking hours or
1.5 waking days
8
hours and 22 minutes of
productive work
In
a month
101
waking hours or nearly
7 waking days
34
hours and 40 minutes of
productive work
In
a year
1,205
waking hours or nearly
2.5 waking
months
Nearly
2.5 months of
productive work
In
10 years
12,050
waking hours or nearly
25 waking months
Over
2.3 years of
productive work
In
30 years
36,150
waking hours or nearly
6.5 years of their life!
Over
6 years of
productive work
These
calculations are based on a smoker staying up 16 hours a day
with 8 hours sleep
These
calculations are based on a smoker working 8 hours a day,
5 days a week,
50 weeks a year
Cessation
is Cost Effective for Health Plans
Investment
in smoking cessation leads to improved health outcomes, lower health
care costs and to more affordable health insurance premiums
- According to a recent study by Leif Associates, Inc., a health
care actuarial consulting firm.
In
addition:
Smoking adds approximately
7% to the total cost of health care.
Smokers average 31% higher health
care costs than nonsmokers.
If a health plan had no smokers,
estimated savings would be approximately $1.3 million per year
per 10,000 smokers.
Greater cost savings will likely
occur within special populations such as pregnant women and persons
with cardiac conditions.
The Surgeon General
has indicated smokers who quit dramatically reduce the risk of illness.
Research shows health care costs for smokers who quit decline over
time, while health care costs of continuing smokers increase over
time.
Research also shows
quit rates improve when managed care organizations set guidelines
and compensate their employees for treating tobacco dependence.
According to the
CDC, smoking is the leading cause of preventable death each year
in the United States, claiming more than 440,000 lives each year.
That is more than the combined death rates for AIDS, drugs, alcohol,
homicide, suicide and motor vehicle accidents. Smokers tend to incur
more medical costs, see physicians more often, and be admitted to
hospitals for longer periods than nonsmokers.
Economic
Impact of Tobacco Use!
The
economic impact of tobacco use is well documented and creates a
compelling argument for smoking cessation - Direct
medical costs associated with smoking are approximately $75 billion
a year. Productivity and lost earnings, because of smoking-related
disease and premature deaths, cost an additional $50 billion a year.
It is estimated that Medicare will spend $800 billion over the next
20 years caring for people with smoking-related illnesses.
The Centers for
Disease Control and Prevention (CDC) estimated that $2.06 was spent
on smoking-related medical care for every one of the 24 billion
packs of cigarettes sold in 1993. A 1991 study of Medicaid payments
showed that tobacco use accounted for 41 percent of substance abuse-related
hospital days — the same amount accounted for by illicit drug
use.
As an employer, you bear the cost burden of tobacco use among covered
populations.
Here's
why - Smokers have
higher medical costs than non-smokers - an estimated $1,623 more
per year. Turnover and absenteeism are higher for smokers than for
non-smokers; Smokers have more accidents and injuries than non-smokers;
Because of smoking breaks, non-smokers are more productive on the
job than smokers.
There are few preventive
health treatments that are more cost-effective than tobacco cessation.
The cost per quality-adjusted life year saved (QALYS) of implementing
the U.S. Public Health Service Tobacco Cessation Clinical Practice
Guideline ranges from $1,108 to $4,524. In contrast, the cost per
QALYS of annual mammography for women ages 40 to 49 is $61,744 and
$23,335 for hypertension screening for 40-year old men.