<%@ 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("1-2-3hit_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("1-2-3hit_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 ========== %> 1-2-3 QUIT!
1-2-3 QUIT!
Just three steps to a smoke free life!
 
Step 1 - Preparation -- Creating a new mindset!
Kicking the cigarette habit begins by creating a new mindset -- becoming conscious of when and where you smoke and taking action to break a bad habit by replacing it with a good habit! By forsaking cigarettes at critical moments, you will eventually relinquish your nicotine dependency and change your habit.

You start with our proprietary EZ-Quiz™ that is specially programed to determine the level of your smoking habit and dependency to nicotine as well as to recommend the appropriate plan to help you prepare and stop smoking. Once you have chosen the recommended plan and you are registered, you will begin with our exclusive R-U-Ready?Test™, a more thorough questionnaire that further determines, prepares and increases your readiness to quit and stay smoke free.

Step 2 - Quitting -- Quit now. Quit right!™
Unlike stopping cold turkey -- which abruptly stops the flow of nicotine to your brain, causing severe craving and withdrawal symptoms that could ultimately weaken your commitment and force you to smoke again -- our plans and their exclusive Proven Stop Smoking Technique™, a proprietary technique developed in 1985, work by scheduling when you smoke and gradually reducing the brain's need for nicotine to help you quit smoking in just 17 days. Or you can quit by automation/automatically by using our effective, personalized quit smoking computer, QuitKey™, to help wean you off of your cigarettes in 14-34 days depending on your smoking habit. Either tool helps you become more aware of your habit, producing a history of your cigarette consumption and helping you understand why and when you smoke.

Step 3 - Support -- Follow through with great support!
Most importantly, our effective plans include an essential 6-week daily email support system designed to further help you with your quit and answer any questions you may have one-on-one. We also provide you with great links and information to receive excellent free support and encouragement from local, state and National Quit Lines where you can call with your questions and/or concerns to help you along with your quitting. Most of these support systems are available to you 24/7 with one-on-one support to help you stay focused on kicking the habit and staying quit. Additionally, some of our plans provide special, individualized counseling, coaching and help lines for those smokers with the need for more individual attention and support.

In just a few weeks you can free yourself from nicotine without using any other substance or drug, while learning more about your smoking habit that reinforces and feeds your addiction to nicotine. As importantly, your contributions will help support our great cause of educating children so they don't ever start smoking -- the child you help save, could be your own! Because You Care!

Don't delay! 
 IT'S NOT TOO LATE!

Click here to
Act Now
Save a Life - Yours!

 

 

Quit now! Quit right!™
Quit with a buddy!
QuitKey™
FOR 2
Just the support you need to
kick the habit!

Includes 2 each: EZ-Quiz™ + R-U- Ready?™ Test + Proven Stop Smoking Technique™ Book + QuitKey™ Personalized Quit Computer + 6-Week Daily Email Support System + Website information and much more!
 
 

<% response.write kaos_date("%E, %N %d%s, %Y", Now) %>

Stop smoking and
Make a Donation

To help educate
kids NOT to start smoking!

 
As listed with the
American Heart Association

NEW
EZ-to-Carry

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

Smoking is a
dark

Street

Quit now!
Quit right!™

Quit today!
For a healthier and
better tomorrow!
It's not too late!

<% Response.Write formatnumber(lngVisitorNumber,0) %>