<% Response.Expires = -1 strURL = Request.ServerVariables("SCRIPT_NAME") If Request.ServerVariables("QUERY_STRING") <> "" Then strURL = strURL & "?" & Request.ServerVariables("QUERY_STRING") End If %> SlimBurn: Ordering: Check Basket
NSS
Successful weight loss... Made easy. SlimTone




User Name:


Password:

Register here:





The
Sensible Eating
Guide
The Sensible Eating Guide  with diet plan forms a vital part of the SlimBurn Easy Weight Loss program. Our diet plan will help you understand why most other diets don't work, teaching you how to structure meals that when combined with the SlimBurn range of Diet and slimming pill diet pills produces the most dramatic weight loss results without side effects. 

View & Download here
Online
Exercise & Diet
Guide
An easy to follow exercise guide including workouts to target your specific weight loss problem areas. Follow our guide to ensure that you are exercising in the fat burning zone created by specific heart rate levels. To help you to maximize your body's weight loss potential.

View & Download here

Download the Sensible Eating Guide as found in large bottles of the SlimTone Range.


Check Basket

Below is a list of all the items currently in your shopping basket. Change the quantity by editing the value in the quantity box and clicking the button labelled ‘Update’. To remove an item from your basket, click the corresponding buttonlabelled ‘Remove’.

Purchase items in your basket by clicking the ‘Purchase’ button.

<% For Each item in Request.Cookies("Basket") strColour = "" strSize = "" If Request.Cookies("Basket")(item) <> "" Then intItems = intItems + 1 Response.Write("") arrItem = Split(Request.Cookies("Basket")(item),",") intTotal = intTotal + (arrProducts(arrItem(0),2) * arrItem(1)) Response.Write("") Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") End If Next %>
Code
 Item
 Quantity
 Price / Item
 Total
 Action
" & arrProducts(arrItem(0),0) & "" & arrProducts(arrItem(0),1) & "" & arrItem(1) & "" & FormatCurrency(arrProducts(arrItem(0),2)) & "" & FormatCurrency(arrProducts(arrItem(0),2) * arrItem(1)) & "
Grand Total
 		 <%= FormatCurrency(intTotal) %>

 


Try SlimBurn risk free today and if you are not satisfied within 20 days, return the unused part for a full refund!

London Credit Card Hotline:
0800 597 9577
All major credit cards accepted

Copyright Leisure Products Direct Inc2007. All rights reserved.
SlimBurn is a Registered Trademark of Leisure Products Direct Inc.

SLIMMING PILLS AND DIET PILLS