<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form2") Then MM_editConnection = MM_otbsco_STRING MM_editTable = "dbo.subcsriberlists" MM_editRedirectUrl = "/thankyou.asp" MM_fieldsStr = "Name|value|Email|value|Remote_computer_name|value|Browser_type|value|Timestamp|value|URL|value" MM_columnsStr = "Name|',none,''|Email|',none,''|Remote_computer_name|',none,''|Browser_type|',none,''|Timestamp|',none,NULL|URL|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> Smoking Cessation - Where There's Smoke There's a New Rule Against It
Smoking Cessation - Home
There is something good you can do
Some great reasons for quitting
Special situations or conditions
Nicotine addiction
frequently asked questions
smoking cessation articles
New information
 
free newsletter
Enter Your Name Here
Enter Your Email Address Here
 
" size="32"> " size="32">
Savings Calculator
Smokers in the US spent over $4 billion on cigarettes last month. How much of that money did you kick in? Use our Savings Calculator to find out.
Save Your Money!
Cigarettes Per Day  
Price Per Pack of Cigarettes $
Timespan  
   
Cost of Smoking $

PUBLIC LIVES; Where There's Smoke There's a New Rule Against It

By JOYCE WADLER (NYT)

LEAD PARAGRAPH - NEAT as an otter in his gray turtleneck and dark suit, Scott R. Wechsler, the president of the Manhattan co-op board that decided to forbid new buyers to smoke in their apartments, wastes no time getting into his own somewhat fervid defense.

''I'm not a nonsmoking advocate, I just want everybody to know,'' Mr. Wechsler begins, in a torrent of words in his Midtown office. ''We were just a board of directors looking to how we can make the building a better place to live. There were several issues involved. First and foremost, the safety of the shareholders is our No. 1 concern. In the last couple of months we've had a couple of fires in some of the neighboring buildings. We were told at least one of them was caused by smokers in bed.''

George Harrison: Smoker

February 1, 2002

By Elizabeth Whelan, Sc.D., M.P.H.

George Harrison, the "quiet Beatle" died in December, 200l at age 58. The cause of Mr. Harrison's death—a death which clearly by any definition can be characterized as "premature"—was cigarette smoking. In their December l0th issues, both Time and Newsweek extensively covered Harrison's death. Coverage noted, among other details, his devotion to the Maharishi Mahesh Yogi—but neither magazine mentioned the most critical factor: cigarette smoking as the cause of death. Both magazines carry cigarette ads. The omission of reference to cigarettes is significant and raises the question of whether the magazines' own addiction to cigarette ads is a factor in deleting pejorative references to cigarettes.

On the other hand, People, another magazine replete with cigarette ads, did refer in its obituary to Harrison being a "lifelong smoker." Further, People published a letter to the editor on December 3lst noting "the handsome, younger Beatle with a cigarette in his hand speaks volumes about the product that contributed to his early and untimely demise."

Perhaps the temptation to spike the horrific truth about smoking's impact on life and health varies among publications—even among those who rely on cigarette ad revenues.

Hot Dogs and Heroin, per Animal Rights Group

March 19, 2002

Dr. Neal D. Barnard, head of the animal rights group Physicians Committee for Responsible Medicine, on the dangers of hot dogs:

"Forget the moderation myth...It applies to healthy foods, not unhealthy ones...moderation does not apply to cigarettes, heroin, or hot dogs. It's easier to make a clean break."

MyOnlinePool.com - Start Your Own EuroCup 2008 Soccer Pools...
 
Copyright 2002-2005 Smoking Cessation. All Rights Reserved.
466 14th Street, Suite 10, San Francisco, CA 94103