%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("default7DSA_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(2)
Dim arFormDBFields0(2)
Dim arFormValues0(2)
arFormFields0(0) = "email"
arFormDBFields0(0) = "email"
arFormValues0(0) = Request("email")
arFormFields0(1) = "Name"
arFormDBFields0(1) = "name"
arFormValues0(1) = Request("Name")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
End If
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
End If
FP_SaveFieldToDB fp_rs, Now, "Timestamp"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
End If
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Response.Redirect "../signup.asp"
End If
End If
%>
Quitting Smoking - Welcome
 |
 |
 |

|
 |
|
When smokers
quit--within twenty minutes of smoking that last cigarette the
body begins a series of changes.
At 20 minutes after quitting:
-
blood pressure
decreases
-
pulse rate drops
-
body temperature of
hands and feet increases
-
At 8 hours:
-
carbon monoxide
level in blood drops to normal
-
oxygen level in
blood increases to normal
-
At 24 hours:
-
chance of a heart
attack decreases
-
At 48 hours:
-
nerve endings start
regrowing
-
ability to smell
and taste is enhanced
The first year after
quitting:
-
At 2 weeks to 3
months:
-
circulation
improves
-
walking becomes
easier
-
lung function
increases
-
1 to 9 months:
-
coughing, sinus
congestion, fatigue, shortness of breath decreases
-
1 year:
-
excess risk of
coronary heart disease is decreased to half that of a smoker
-
Long-term Benefits
of Quitting
At 5 years:
-
from 5 to 15 years
after quitting, stroke risk is reduced to that of people wo
have never smoked.
-
At 10 years:
-
risk of lung cancer
drops to as little as one-half that of continuing smokers
-
risk of cancer of
the mouth, throat, esophagus, bladder, kidney, and pancreas
decreases
-
risk of ulcer
decreaes
-
At 15 years:
-
risk of coronary
heart disease is now similar to that of people who have never
smoked
-
risk of death
returns to nearly the level of people who have never smoked
Send This Page To A Friend!

|
|
| |
 |
|