<%@ 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?
Reason for Excess Cost
Cost Per Smoker
Source
Smoking Breaks (2005)
$5,625
Mortality-Related Lost Productivity (1999)
$1,760
Excess Medical Expenditures (1999)
$1,623
Missed Work Days Due to Sickness (2001)
$341
TOTAL EXCESS COST PER SMOKER PER YEAR
$9,349

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.
Click Here
to help your employees

quit today!
For sources of the above information click here

 

 

<% response.write kaos_date("%E, %N %d%s, %Y", Now) %>
 
EMPLOYERS
Dollar Loss Calculator
Calculate the dollars lost
due to cigarette breaks alone
for employees who smoke
Estimate number of
employees who smoke
Estimate average
hourly pay rate
$
Dollars Lost to Employer
In a day
In a week
In a year
In 10 years
In 20 years
In 30 years
Learn more

As listed with the
American Heart Association

 

Help your
employees
quit smoking for
a healthier and more productive working
environment
AND

To help educate
kids
NOT to start smoking!

Helping save
lives
and reducing
healthcare costs
for both
employers and
employees
!
Help them

with our
Complete Quit Plan Plus that includes:

  • R-U- Ready? Test
  • Proven Stop Smoking Technique Book
  • QuitKey™
    a Personalized
    Quit Computer
  • 6-Week Daily Email Support System
  • Website information & support
  • and much more!