% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "Cheryl@healthstepsrx.com" MailSubject = "HealthSteps Rx Weekly Class Schedule" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mail.healthstepsrx.com") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"steppower@healthstepsrx.com") 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Thank you for your interest in HealthSteps Rx “Step-Power” Weight Management TeleProgram.
" & vbCrlf & "" MailBody = MailBody & "For current class times and dates, please contact Cheryl. Unless otherwise posted, each week you will be emailed or notified by phone in advance, with the phone number to get into class. This number may change weekly, so be sure to periodically check your messages. Two complimentary sample lessons are HealthStepsRx gift to you for your interest.
" & vbCrlf & ""
MailBody = MailBody & "(Files are in PDF)
| Complimentary Lesson on: Food Facts & Fallicy " & vbCrlf & "" MailBody = MailBody & " Complimentary Lesson on: Increasing Your Metabolism | " & vbCrlf & ""
MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
Schedule of Lessons
" & vbCrlf & ""
MailBody = MailBody & "(“No beginning and no end”)
Week Of | " & vbCrlf & ""
MailBody = MailBody & " Lesson | " & vbCrlf & "" MailBody = MailBody & "Topic | " & vbCrlf & "" MailBody = MailBody & "
8/16/04 | " & vbCrlf & ""
MailBody = MailBody & " 1 | " & vbCrlf & ""
MailBody = MailBody & " Staying Well & Increasing Longevity | " & vbCrlf & "" MailBody = MailBody & "
| 8/23/04 | " & vbCrlf & "" MailBody = MailBody & "2 | " & vbCrlf & ""
MailBody = MailBody & " Goal Setting: "Don't Just Think It, Ink It" | " & vbCrlf & "" MailBody = MailBody & "
| 8/30/04 | " & vbCrlf & "" MailBody = MailBody & "3 | " & vbCrlf & ""
MailBody = MailBody & " New" & vbCrlf & ""
MailBody = MailBody & " Fast Foods: " & vbCrlf & "" MailBody = MailBody & " Packet of“Speedy Meals That Work” with" & vbCrlf & "" MailBody = MailBody & " Recipes | " & vbCrlf & ""
MailBody = MailBody & "
| 9/6/04 | " & vbCrlf & "" MailBody = MailBody & "4 | " & vbCrlf & ""
MailBody = MailBody & " Creating" & vbCrlf & "" MailBody = MailBody & " a Healthy Balance | " & vbCrlf & "" MailBody = MailBody & "
| 9/13/04 | " & vbCrlf & "" MailBody = MailBody & "5 | " & vbCrlf & ""
MailBody = MailBody & " Creating A Personalized Exercise Plan | " & vbCrlf & "" MailBody = MailBody & "
| 9/20/04 | " & vbCrlf & "" MailBody = MailBody & "6 | " & vbCrlf & ""
MailBody = MailBody & " Creating A Personalized Nutrition Plan" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " | " & vbCrlf & "" MailBody = MailBody & "
| 9/27/04 | " & vbCrlf & "" MailBody = MailBody & "7 | " & vbCrlf & ""
MailBody = MailBody & " The" & vbCrlf & ""
MailBody = MailBody & " Importance of Fiber: " & vbCrlf & "" MailBody = MailBody & " Packet of “Recipes” on “How" & vbCrlf & "" MailBody = MailBody & " to Increase Fiber in Your Diet” | " & vbCrlf & ""
MailBody = MailBody & "
| 10/4/04 | " & vbCrlf & "" MailBody = MailBody & "8 | " & vbCrlf & ""
MailBody = MailBody & " Creating" & vbCrlf & "" MailBody = MailBody & " A Healthy Environment | " & vbCrlf & "" MailBody = MailBody & "
| 10/11/04 | " & vbCrlf & "" MailBody = MailBody & "9 | " & vbCrlf & ""
MailBody = MailBody & " Tools" & vbCrlf & "" MailBody = MailBody & " for Weight Management & Eating Out | " & vbCrlf & "" MailBody = MailBody & "
| 10/18/04 | " & vbCrlf & "" MailBody = MailBody & "10 | " & vbCrlf & ""
MailBody = MailBody & " Menu" & vbCrlf & ""
MailBody = MailBody & " Planning & What's for Breakfast? " & vbCrlf & "" MailBody = MailBody & " Packet of “Breakfast Recipes” | " & vbCrlf & ""
MailBody = MailBody & "
| 10/25/04 | " & vbCrlf & "" MailBody = MailBody & "11 | " & vbCrlf & ""
MailBody = MailBody & " Strength Training" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " | " & vbCrlf & "" MailBody = MailBody & "
| 11/1/04 | " & vbCrlf & "" MailBody = MailBody & "12 | " & vbCrlf & ""
MailBody = MailBody & " Decreasing" & vbCrlf & "" MailBody = MailBody & " Calories Through Cooking and Recipe Modification | " & vbCrlf & "" MailBody = MailBody & "
| 11/8/04 | " & vbCrlf & "" MailBody = MailBody & "13 | " & vbCrlf & ""
MailBody = MailBody & " Surviving" & vbCrlf & ""
MailBody = MailBody & " the Holidays " & vbCrlf & "" MailBody = MailBody & " Packet of “Healthy Holiday" & vbCrlf & "" MailBody = MailBody & " Menus & Recipes” | " & vbCrlf & ""
MailBody = MailBody & "
| 11/15/04 | " & vbCrlf & "" MailBody = MailBody & "14 | " & vbCrlf & ""
MailBody = MailBody & " Portion" & vbCrlf & "" MailBody = MailBody & " Control-How Much is Enough? | " & vbCrlf & "" MailBody = MailBody & "
| 11/22/04 | " & vbCrlf & "" MailBody = MailBody & "No Class | " & vbCrlf & ""
MailBody = MailBody & " Thanksgiving Week | " & vbCrlf & "" MailBody = MailBody & "
| 11/29/04 | " & vbCrlf & "" MailBody = MailBody & "15 | " & vbCrlf & ""
MailBody = MailBody & " Breaking" & vbCrlf & "" MailBody = MailBody & " Down Common Barriers-What's Stopping You? & Influencers/Partners | " & vbCrlf & "" MailBody = MailBody & "
| 12/6/04 | " & vbCrlf & "" MailBody = MailBody & "16 | " & vbCrlf & ""
MailBody = MailBody & " Living" & vbCrlf & "" MailBody = MailBody & " A Balanced Life & National Weight Control Registry Facts | " & vbCrlf & "" MailBody = MailBody & "
| 12/13/04 | " & vbCrlf & "" MailBody = MailBody & "17 | " & vbCrlf & ""
MailBody = MailBody & " Managing" & vbCrlf & ""
MailBody = MailBody & " High Risk Situations " & vbCrlf & "" MailBody = MailBody & " Packet of “Appetizer" & vbCrlf & "" MailBody = MailBody & " Recipes” in time for the Holidays | " & vbCrlf & ""
MailBody = MailBody & "
| 12/21/04 | " & vbCrlf & "" MailBody = MailBody & "No Class | " & vbCrlf & ""
MailBody = MailBody & " Christmas Week | " & vbCrlf & "" MailBody = MailBody & "
| 12/28/04 | " & vbCrlf & "" MailBody = MailBody & "18 | " & vbCrlf & ""
MailBody = MailBody & " Making New Year's Resolutions" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " | " & vbCrlf & "" MailBody = MailBody & "
| 1/03/05 | " & vbCrlf & "" MailBody = MailBody & "19 | " & vbCrlf & ""
MailBody = MailBody & " Creating" & vbCrlf & "" MailBody = MailBody & " a Healthy Style | " & vbCrlf & "" MailBody = MailBody & "
| 1/10/05 | " & vbCrlf & "" MailBody = MailBody & "20 | " & vbCrlf & ""
MailBody = MailBody & " Food" & vbCrlf & "" MailBody = MailBody & " Facts and Fallacy Packet of “Soup" & vbCrlf & "" MailBody = MailBody & " Recipes” | " & vbCrlf & "" MailBody = MailBody & "
| 1/17/05 | " & vbCrlf & "" MailBody = MailBody & "21 | " & vbCrlf & ""
MailBody = MailBody & " Increasing" & vbCrlf & "" MailBody = MailBody & " Your Metabolism & Discovering Pleasure Outside of Food | " & vbCrlf & "" MailBody = MailBody & "
| 1/24/05 | " & vbCrlf & "" MailBody = MailBody & "22 | " & vbCrlf & ""
MailBody = MailBody & " Psychological" & vbCrlf & "" MailBody = MailBody & " vs Physical Hunger-Are You Really Hungry? & Emotional Eating | " & vbCrlf & "" MailBody = MailBody & "
| 1/31/05 | " & vbCrlf & "" MailBody = MailBody & "23 | " & vbCrlf & ""
MailBody = MailBody & " The" & vbCrlf & ""
MailBody = MailBody & " Benefits of Soy " & vbCrlf & "" MailBody = MailBody & " Packet of Recipes for “Increasing" & vbCrlf & "" MailBody = MailBody & " Soy in Your Diet” | " & vbCrlf & ""
MailBody = MailBody & "
| 2/7/05 | " & vbCrlf & "" MailBody = MailBody & "24 | " & vbCrlf & ""
MailBody = MailBody & " Controlling" & vbCrlf & "" MailBody = MailBody & " Binges and Cravings & Managing Cues | " & vbCrlf & "" MailBody = MailBody & "
| 2/14/05 | " & vbCrlf & "" MailBody = MailBody & "25 | " & vbCrlf & ""
MailBody = MailBody & " Preventing" & vbCrlf & "" MailBody = MailBody & " and Treating Hypertension | " & vbCrlf & "" MailBody = MailBody & "
| 2/21/05 | " & vbCrlf & "" MailBody = MailBody & "26 | " & vbCrlf & ""
MailBody = MailBody & " Nutrition" & vbCrlf & ""
MailBody = MailBody & " for the Family " & vbCrlf & "" MailBody = MailBody & " Packet of “Family" & vbCrlf & "" MailBody = MailBody & " Favorite Recipes” | " & vbCrlf & ""
MailBody = MailBody & "
| 2/28/05 | " & vbCrlf & "" MailBody = MailBody & "27 | " & vbCrlf & ""
MailBody = MailBody & " Change Your Thoughts and You Can Change Your Weight | " & vbCrlf & "" MailBody = MailBody & "
| 3/7/05 | " & vbCrlf & "" MailBody = MailBody & "28 | " & vbCrlf & ""
MailBody = MailBody & " Fad" & vbCrlf & "" MailBody = MailBody & " Diets Don't Work | " & vbCrlf & "" MailBody = MailBody & "
| 3/14/05 | " & vbCrlf & "" MailBody = MailBody & "29 | " & vbCrlf & ""
MailBody = MailBody & " Preventing" & vbCrlf & "" MailBody = MailBody & " Cancer & Increasing" & vbCrlf & "" MailBody = MailBody & " Your Intake of Vegetables Packet of “Great" & vbCrlf & "" MailBody = MailBody & " Tasting Vegetable & Fruit Recipes” | " & vbCrlf & "" MailBody = MailBody & "
| 3/21/05 | " & vbCrlf & "" MailBody = MailBody & "30 | " & vbCrlf & ""
MailBody = MailBody & " Maintaining" & vbCrlf & "" MailBody = MailBody & " Your Weight For A Lifetime & It's the Recovery that Counts? Relapse vs" & vbCrlf & "" MailBody = MailBody & " Lapse | " & vbCrlf & "" MailBody = MailBody & "
| 3/28/05 | " & vbCrlf & "" MailBody = MailBody & "31 | " & vbCrlf & ""
MailBody = MailBody & " Decreasing Hunger While Managing Weight" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " | " & vbCrlf & "" MailBody = MailBody & "
| 4/4/05 | " & vbCrlf & "" MailBody = MailBody & "32 | " & vbCrlf & ""
MailBody = MailBody & " Alternative" & vbCrlf & "" MailBody = MailBody & " Aids to Diet and Exercise-Do They Really Work? | " & vbCrlf & "" MailBody = MailBody & "
| 4/11/05 | " & vbCrlf & "" MailBody = MailBody & "33 | " & vbCrlf & ""
MailBody = MailBody & " Decreasing Risk from Heart Disease" & vbCrlf & "" MailBody = MailBody & " Packet of Recipes & "Lunch Ideas" “Beyond" & vbCrlf & "" MailBody = MailBody & " Burgers & Fries | " & vbCrlf & "" MailBody = MailBody & "
| 4/18/05 | " & vbCrlf & "" MailBody = MailBody & "34 | " & vbCrlf & ""
MailBody = MailBody & " Dealing" & vbCrlf & "" MailBody = MailBody & " with Triggers | " & vbCrlf & "" MailBody = MailBody & "
| 4/25/05 | " & vbCrlf & "" MailBody = MailBody & "35 | " & vbCrlf & ""
MailBody = MailBody & " Stress" & vbCrlf & "" MailBody = MailBody & " Management & Time Management | " & vbCrlf & "" MailBody = MailBody & "
| 5/2/05 | " & vbCrlf & "" MailBody = MailBody & "36 | " & vbCrlf & ""
MailBody = MailBody & " Small" & vbCrlf & "" MailBody = MailBody & " Changes = Big Results | " & vbCrlf & "" MailBody = MailBody & "
| 5/9/05 | " & vbCrlf & "" MailBody = MailBody & "37 | " & vbCrlf & ""
MailBody = MailBody & " Benefits" & vbCrlf & ""
MailBody = MailBody & " of Eating Fish " & vbCrlf & "" MailBody = MailBody & " Packet of Recipes “From" & vbCrlf & "" MailBody = MailBody & " the Sea” | " & vbCrlf & ""
MailBody = MailBody & "
| 5/16/05 | " & vbCrlf & "" MailBody = MailBody & "38 | " & vbCrlf & ""
MailBody = MailBody & " Preventing and Controlling Non-Insulin Diabetes Mellitus (NIDDM)" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " | " & vbCrlf & "" MailBody = MailBody & "
| 5/23/05 | " & vbCrlf & "" MailBody = MailBody & "39 | " & vbCrlf & ""
MailBody = MailBody & " Increasing" & vbCrlf & ""
MailBody = MailBody & " Your Motivation & Benefits" & vbCrlf & ""
MailBody = MailBody & " of Calcium in Your Diet " & vbCrlf & "" MailBody = MailBody & " Packet of “Smoothie Recipes” | " & vbCrlf & ""
MailBody = MailBody & "
| 5/30/05 | " & vbCrlf & "" MailBody = MailBody & "40 | " & vbCrlf & ""
MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " Vacation Health Plan" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " | " & vbCrlf & "" MailBody = MailBody & "
Click here to purchase.
" & vbCrlf & "" MailBody = MailBody & "Click here for pricing information.
" & vbCrlf & "" MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="AspMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("" & cStr(cStr(Request.Form("email"))) & "") 'Send Mail All Entries if ("thanks.htm"<>"") then Response.Redirect("thanks.htm") end if end if %>"I
have
completely
changed
my
eating |
|||||||||||||||||||||||
|
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||