<%@ 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
 
OUR PROVEN QUIT SMOKING TOOLS
To help you kick the habit and stay smoke free!
Our products, described below, are provided free or for a small donation -- They are to help you, your loved ones and your friends to quit smoking and stay quit!
Our various effective quit smoking tools are carefully planned, designed and developed solely to fill a need. These needs must be addressed if smokers want to quit and stay smoke free. Each tool serves a specific purpose to help educate, prepare, and help end the smoker's addiction and dependency to tobacco while providing support to help them stay smoke free. To achieve the best results, we have combined these tools into different plans so the smoker can select which one is appropriate for their individual situation, needs and preference to better succeed in kicking their addiction and habit. We strongly recommend the Complete Quit Plan Plus™or Personalized Complete Quit Plan Plus™, as they both encompass all the necessary tools for a more successful quit.
Quit now. Quit right™
Website
Our website provides an array of information, suggestions, solutions, useful links and technology to help smokers stop smoking and educating children not to start. Over time, with your help and the help of other volunteers, we are building a porthole that is totally dedicated to helping smokers quit and to help their families and loved ones live healthier and smoke-free lives. Please visit as often as you can. You can also sign up to receive emails informing you of important issues and information. First of its kind! An effective porthole to help you quit smoking and live a smoke-free life!
EZ-Quiz™
A short quiz specially designed and engineered to determine your level of dependency to nicotine and the extent of your habit. Provides you with results and recommendations on which of our plans can help you quit smoking. First of its kind! An essential tool and the first step to help you quit smoking and live a smoke-free life!
R-U-Ready?-Test™
A comprehensive and interactive test -- a MUST to prepare you for quitting. This carefully and interactively designed questionnaire measures your commitment to quitting and helps you understand what it takes to quit while mentally preparing you for the quitting process. First of its kind! Quitting smoking requires a new mindset -- Helping prepare you before you start.

Proven Stop Smoking Technique™
The most unique tool of our stop smoking plans is the most important 20-minute read that will change your life. This book, the cornerstone of Smoke Free Society’s successful stop smoking programs, presents a safe and painless technique for ditching the habit. Written by SFSC Founder Rez Seyedin, it is a detailed action plan for quitting based on the same technique he used to quit 20 years ago! First of its kind! An effective technique to help you quit smoking and live a smoke-free life!
QuitKey™ Personalized Quit Computer
This combination of advanced computer technology with behavior science principles will help you end the smoking habit permanently and live a healthier, smoke-free lifestyle. This effective, personalized, easy-to-use computer was developed and proven effective with US NIH grants. A patented technology that has sold over 1,250,000 units worldwide. The revolutionary easy to carry QuitKey™ computer creates a personalized, gradual withdrawal program based on your individual smoking habit. Depending on your smoking habits, you will be able to quit smoking anywhere from 14 to 34 days. The computer signals you when to smoke, disrupting your usual smoking pattern and gradually increasing the time between cigarettes. This helps break the associations of lighting up with having a cup of coffee, finishing a meal, etc. First of its kind!  Automated technology helping you quit while changing your smoking habit to stay smoke free! (Click here to read more)

Daily Email Support System™
Research shows that you are up to 8 times more likely to be successful when you participate in a support program. If your habit is strong, daily support and encouragement are essential to your success. This innovative 6-week program includes helpful advice, tips on quitting, and positive coaching to keep you focused and determined to quit and stay quit. The daily emails that you receive come directly from a counselor who is committed to helping you quit, not from a machine or an automated software program. First of its kind!  Utilizing the internet to provide you with instant information and communication tools to answer and/or to coach you along!

24/7 Phone Support Lines and Counseling Links
We provide useful links and other information as part of our overall outreach programs and utilize all available resources to help smokers quit. The Federal and state health programs along with many other health concerned organizations such as the CDC, AHA, ACS, ALA offer 24/7 quit lines and many other useful information, recommendations and support programs. First of its kind! Making it easy to benefit from all of the available resources to help you quit and stay quit!
Individual Support and Counseling™
Our individual support and counseling programs include an individual support system; special, individualized counseling; coaching and help lines to help those smokers with the need for special, individual attention and coaching to quit and stay smoke free. These special sessions are held in person and/or via telephone/internet with professional counselors and provide the smoker the much needed help and support to further their goal. This service is available with our Personalized Complete quit Plan Plus™. First of its kind!  Helping those with the need and desire for individual coaching and private consulting to achieve a smoke free life!
Corporate/Group Seminars and Workshops
 As a part of our smoke-free workplace outreach program, we have group programs to help employers, social groups and other large or small organizations to better educate their employees and patrons about the health and socioeconomic effects of smoking on our lives. Our seminars and workshops, along with our proven stop smoking plans, are strong quitting techniques without the use of any substance or drug. They also provide an effective tool to bring together, unify, and educate a group of smokers of the health hazards, financial burden and long-term negative impact that smoking has on themselves, their children and loved ones. No matter how small or large the groups are, our programs and dedicated staff are ready to help. This service is available with our Corporate Complete quit Plan Plus™. First of its kind! Providing employers and healthcare providers the tools and plans to help their employees and patients quit smoking!
Save a life! Yours or the one you love!
Help them quit NOW! Act now, tomorrow could be too late!
Receive the Complete Quit Plan Plus Now!
 with your $250 donation
Less than the cost of 2 months of smoking! And with a life-saving results!
Don't Bargain with Your Life!
Receive the Buddy Plan for 2 Now and Save!
with your $450 donation
Less than the cost of 2 months of smoking! And with a life-saving results!
Don't Bargain with Your Life!
ACT NOW!
Click here if you would like to
Upgrade Your Plan
To quit:
Try it -- that's what is required.
And stay with it to the end.
You won't be sorry;
You'll be successful and smoke-free!

 

 

Stop smoking and
Make a Donation

To help educate
kids NOT to start smoking!

As listed with the
American Heart Association
with
QuitKey!

NEW

on a key chain
(read more)
NOW
Available
with your donation
that can help
save a child's life

QuitKey™ personalized
quit smoking computer
makes quitting easy!
 

To avoid a visit with me,
quit smoking now!
Save your gums
stop smoking now!
Click to see larger picture
Smoker's gum
Please quit and stay quit
before
is too late!