%@ 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("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("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
EMPLOYERS
Good news for employers and employees!
Smoking
Cessation Seminars and Programs Effective
solutions to
help employers implement a smoke-free workplace
"Paying
for an employee's tobacco cessation treatment provides more
return on investment than
any other adult
treatment or prevention benefit."
National Business Group on Health, Center for Prevention
and Health Services Issue Brief, 2003
"Job
Performance Can Go Up in Smoke!" A
new must
read study.
Saving
Lives and Reducing Costs for Employers and Employees!
Smoking
is a costly and deadly habit that robs the employee and
employers from productivity, resources and revenue! Please
use our calculator on this page to see the amount of money
smokers cost their employers just on cigarette breaks alone.
Why
is Smoking so Costly to Employers, Employees and the Insurer?
Smoking is costly to employers
both in terms of smoking-related medical expenses
and lost productivity.
Each
smoker costs their employer $9,349 in lost productivity,
excess medical expenditures and other related expenses.
Although newer data is
not yet available, these costs have and are rising faster
and higher than all other cost of living increases.
Men
who smoke incur $15,800 (in 2002 dollars) more in lifetime
medical expenses and are absent from work 4 days
more per year than men who do not smoke.
Women
who smoke incur $17,500 (in 2002 dollars) more in lifetime
medical expenses and are absent from work 2 days
more each year than non-smoking women.
ESTIMATED
COST SAVINGS TO EMPLOYER FOR IMPLEMENTING
SFSC SMOKE-FREE WORKPLACE SEMINAR AND PROGRAM
Smoking
is costly to employees as is to employers both
in terms of smoking-related medical
expenses and lost productivity. SFSC smoking
cessation seminars, 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
(All included)
Estimated
Number of Smokers
(1 out of 4)
Estimated Annual Loss to Employer
($9,349 each smoker)
Estimated
SFSC Seminar and Program Cost
(Total)
Percentage
of Savings
to Employer
25
6
$ 56,094
$
13,500
76%
50
13
$
121,537
$
15,250
87%
100
25
$
233,725
$
18,250
92%
250
63
$
588,987
$
42,120
93%
500
125
$
1,168,625
$
76,125
93%
1000
250
$
2,337,250
$ 136,500
94%
2000
500
$
4,674,500
$ 240,000
95%
According
to the Centers for Disease Control and Prevention (CDC),
employee tobacco use costs U.S. companies an estimated $167
billion each year in direct medical costs and lost productivity
due to morbidity. Smoking costs businesses even more when
absenteeism, lost productivity due to smoke breaks and workers
compensation claims is included — with an overall
tobacco-use prevalence of 22.5%, a company of 10,000 employees
is incurring an estimated $12,333,200 per year in costs
associated with smoking.
People who smoke are
absent from work 2.9 days more than non-smokers
Lost production time
is 75% higher for smokers vs. non-smokers
Annual workers compensation
costs are up to 12 times higher for smokers than non-smokers
Studies
have shown that tobacco treatment is more cost-effective than:
Mammography
Pap tests
Colon cancer screening
Pharmacological treatment
of mild to moderate hypertension
Pharmacological treatment
of hypercholesterolemia
Despite
the lack of proven ROI (return on investment) and additional
costs, these services are considered national standards
of care and therefore covered by insurance. Tobacco cessation
is the only service with proven ROI that is also a national
standard of care according to organizations such as CDC,
NIH, JCAHO, CMS, and NBGH.