<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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 = "info@healthstepsrx.com" MailSubject = "HealthSteps Rx Contact Form" '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,"info@healthstepsrx.com") 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "Hello:" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Thank you for your interest in our services. We " & vbCrlf & "" MailBody = MailBody & "look forward to serving you and will respond to " & vbCrlf & "" MailBody = MailBody & "your request within 48 business hours." & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Healthy Regards," & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "HealthSteps Rx, Inc." & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Name: " MailBody = MailBody & cStr(Request.Form("firstname")) MailBody = MailBody & " " MailBody = MailBody & cStr(Request.Form("lastname")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Message Topic: " MailBody = MailBody & cStr(Request.Form("topic")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Message: " MailBody = MailBody & cStr(Request.Form("message")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "http://www.HealthStepsRx.com" & vbCrlf & "" '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 %> Contact Nutrition Expert Cheryl Winter
HealthSteps Rx

scale

"I have completely changed my eating
habits and enjoy it.  I have lost 22 pounds..."

>>more testimonials
steppower
home services product rx about resources contact
Contact Cheryl

 

Cheryl Winter, M.S., R.D., R.N., C.D.E.

                                                          

For In-Office Visits:

 HealthSteps Rx does business in the

Houston, Texas Medical Center Area

(easily accessible and no parking fees)

....most services can be provided virtual...

...no need for you to ever leave your home or work...

StepPOWER@HealthStepsRx.com

Local Office & Fax :  832-327-9332

Toll Free:  888-RX-1-STEP

(888-791-7837)

 


  • Privacy Policy - read, complete and return prior to first session  
  • Office Policy - read, complete and return prior to first session

 

Online Contact Form
* required information
*Email
First Name
Last Name
Message Topic
* Message
 

 

 

 

 

>> Back to Top

 
Signup for HealthSteps Rx Newsletter

Email:
   

SELECT YOUR GENDER:
Male Female

HOW TALL ARE YOU?

centimeters inches

HOW MUCH DO YOU WEIGH?
kilograms pounds

HOW OLD ARE YOU?
years months

WHAT IS YOUR CURRENT STRESS LEVEL?
Stress Factor

HOW ACTIVE ARE YOU?
Activity Factor Bedrest Active

 

B.E.E. =
calories/day

Caloric Requirement =
calories / day


 

HealthSteps RX was designed and developed by Webnoxious
All Rights Reserved
Page Last Updated: May 29, 2008