LifeStream - The free LifeStream Anti-aging Product Catalog

Request a Catalog

The free LifeStream Anti-aging Product Catalog -- your reliable resource for products that stop premature aging by helping you to avoid the health conditions often associated with aging and/or by helping to reverse most chronic health problems -- is also a simplified resource. For example, the exclusive Life Quest Formulas product line is streamlined and provides the fundamental ingredients for success, unlike many product lines that offer several formulas for a specific condition, confusing customers and health professionals alike! Plus, the knowledgeable LifeStream Clinic staff is available to answer your questions and provide guidance when you call the clinic's local or toll-free phone lines.

The catalog features additional product lines with unique formulas that work quickly such as Apex, Standard Process, Kern-Pharm and Meridian Dolisos America, Inc. which are usually available only through health professionals. Some other popular brands offered are Jarrow Formulas, Twin Labs, BHI and PhytoPharmica (which is the doctors' line from Enzymatic Therapy, found in most health stores across the country). In many cases, Helga knows the product line owners and their demands for quality. Helga analyzes each product line, choosing the most effective solutions for LifeStream Product Catalog customers. Helga also analyzes new products regularly and a skin care line made in Switzerland, with pure ingredients based on the Chinese Five Elements, will be added soon.

Request your Lifestream Anti-aging Product Catalog today by calling 904-797-3718. You can also complete your request online now.

Please send my free catalog.
* Indicates required fields

<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") strfirstname = Trim(Request.Form("txtfirstname")) strlastname = Trim(Request.Form("txtlastname")) strcompanyname = Trim(Request.Form("txtcompanyname")) straddress = Trim(Request.Form("txtaddress")) straddress2 = Trim(Request.Form("txtaddress2")) strcity = Trim(Request.Form("txtcity")) strstate = Trim(Request.Form("txtstate")) strcountry = Trim(Request.Form("txtcounty")) strzip = Trim(Request.Form("txtzip")) strcomments = Trim(Request.Form("txtcomments")) 'strFromEmail = Trim(Request.Form("txtFromEmail")) 'strFax = Trim(Request.Form("FaxField")) 'strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "Request for Lifestream Anti-ageing Product Catalog" strBody = "Please send my Catalog." & vbCrLf & vbCrLf & "First Name: " & strfirstname & vbCrLf & "Last Name: " & strlastname & vbCrLf & "Company Name: " & strcompanyname & vbCrLf & "Address: " & straddress & vbCrLf & "Address2: " & straddress2 & vbCrLf & "City: " & strcity & vbCrLf & "State: " & strstate & vbCrLf & "Country: " & strcountry & vbCrLf & "Zip: " & strzip & vbCrLf & "Additional Comments: " & strcomments ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strfirstname <> "" 'bValidInput = bValidInput And IsValidEmail(strFromEmail) 'bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strfirstname & " <" & strfirstname & ">" objCDONTS.To = "customerservice@lifestreamsystems.com" objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "There's been an error. Please check your entries:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>