<% 'Globals MyCode = "URGRT" 'code here InvalidCodePage = "http://www.bodyinmind-weight-loss.com/weight-loss-products-order.html" ValidCodePage = "http://www.bodyinmind-weight-loss.com/weight-loss-products-order-vip.html" PrmptMsg = "Enter Vip-discount code here: " 'End Globals 'note, must change weight-loss-products-order-vip to link to a new shipping page 'and also link this page to the rest of the site Function valEm(strEmail) Dim strArray Dim strItem Dim i Dim c Dim blnIsItValid ' assume the email address is correct blnIsItValid = True ' split the email address in two parts: name@domain.ext strArray = Split(strEmail, "@") ' if there are more or less than two parts If UBound(strArray) <> 1 Then blnIsItValid = False IsEmailValid = blnIsItValid Exit Function End If ' check each part For Each strItem In strArray ' no part can be void If Len(strItem) <= 0 Then blnIsItValid = False IsEmailValid = blnIsItValid Exit Function End If ' check each character of the part ' only following "abcdefghijklmnopqrstuvwxyz_-." ' characters and the ten digits are allowed For i = 1 To Len(strItem) c = LCase(Mid(strItem, i, 1)) ' if there is an illegal character in the part If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then blnIsItValid = False IsEmailValid = blnIsItValid Exit Function End If Next ' the first and the last character in the part cannot be . (dot) If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then blnIsItValid = False IsEmailValid = blnIsItValid Exit Function End If Next ' the second part (domain.ext) must contain a . (dot) If InStr(strArray(1), ".") <= 0 Then blnIsItValid = False IsEmailValid = blnIsItValid Exit Function End If ' check the length oh the extension i = Len(strArray(1)) - InStrRev(strArray(1), ".") ' the length of the extension can be only 2, 3, or 4 ' to cover the new "info" extension If i <> 2 And i <> 3 And i <> 4 Then blnIsItValid = False IsEmailValid = blnIsItValid Exit Function End If ' after . (dot) cannot follow a . (dot) If InStr(strEmail, "..") > 0 Then blnIsItValid = False IsEmailValid = blnIsItValid Exit Function End If ' finally it's OK IsEmailValid = blnIsItValid End Function Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") If Request("open") <> "" Then If Request("code") <> MyCode Then process = InvalidCodePage else process = ValidCodePage End if %><%= "" %><% End if If Request("code") <> Request("open") Then 'do nothing End IF %> Weight loss products! Ideal weight products,five week audio weight loss program

Home Products Free E-zine Press Room Contact Us About Us

Weight Loss Tools

Calculate your body mass index & % body fat to help lose weight

Weight Loss News

News alerts, articles, original and free weight loss information.

Weight Loss Forum

Personal support, ideas and empowering weight loss help

Weight Loss Guide

Use this glycemic food index to have better weight loss control.

Weight Loss Directory

A complete directory of everything related to healthy weight loss.

Products

Retail: $69.95

(2 Cd's & 35 Pg. Guide Book)

The Body in Mind® Automatic Weight Loss program is a five week audio learning series that takes just 20 minutes a day! This program addresses The Real Reason you haven't been able to lose weight and has been designed to help you to effectively integrate your healthy weight loss, exercise and life style choices into lasting habits , beliefs and actions. Automatic Weight Loss works from the inside out and utilizes today's most advanced technologies for changing your behaviours. Scientifically proven techniques used by Neuro Linguistic Programmers™ (NLP™) to facilitate change. This will motivate you toward a higher awareness of your own health and well being. Achieving and maintaining your ideal weight has never been easier with Body in Mind® Automatic Weight Loss!