<%@ Language="VBSCript" %> <% Option Explicit %> <% 'A C U P U N C T U R E - C H I N E S E - M A S S A G E . C O M '************************************************************* CheckBasketStatus() Dim x Dim vPostage Dim vItemsInBasket Dim vCurrentItem Dim vUpdateExisting Dim vPrice vUpdateExisting = 0 vItemsInBasket = false If Request.Form("CourseID") <> Empty Then Session.TimeOut = 180 '3hr Timeout Session.LCID = 2057 'Sets Locale to UK settings (DD/MM/YY etc.) If Session("ItemsInBasket") > 0 Then For x = 1 To Session("ItemsInBasket") If (Session("BASKET->ITEM" & x & "->ID") = Request.Form("CourseID")) AND _ (Session("BASKET->ITEM" & x & "->IsCourse")) Then vUpdateExisting = x End If Next End If If vUpdateExisting > 0 Then vCurrentItem = vUpdateExisting Else Session("ItemsInBasket") = Session("ItemsInBasket") + 1 vCurrentItem = Session("ItemsInBasket") End If Session("BASKET->ITEM" & vCurrentItem & "->ID") = Request.Form("CourseID") Session("BASKET->ITEM" & vCurrentItem & "->Name") = "Course Deposit (" & GetDatabaseValue("Courses", "C_Name", "C_ID", Request.Form("CourseID")) & " - " & GetDatabaseValue("Courses", "C_Date", "C_ID", Request.Form("CourseID")) & ")" Session("BASKET->ITEM" & vCurrentItem & "->VideoFormat") = Empty Session("BASKET->ITEM" & vCurrentItem & "->Price") = GetDatabaseValue("Courses", "C_Fee", "C_ID", Request.Form("CourseID")) Session("BASKET->ITEM" & vCurrentItem & "->Postage") = 0 Session("BASKET->ITEM" & vCurrentItem & "->IsCourse") = true End If If Request.Form("ProductID") <> Empty Then Session.TimeOut = 180 '3hr Timeout Session.LCID = 2057 'Sets Locale to UK settings (DD/MM/YY etc.) If Session("ItemsInBasket") > 0 Then For x = 1 To Session("ItemsInBasket") If Session("BASKET->ITEM" & x & "->ID") = Request.Form("ProductID") AND _ (Session("BASKET->ITEM" & x & "->IsCourse") = false) Then vUpdateExisting = x End If Next End If If vUpdateExisting > 0 Then vCurrentItem = vUpdateExisting Else Session("ItemsInBasket") = Session("ItemsInBasket") + 1 vCurrentItem = Session("ItemsInBasket") End If Session("BASKET->ITEM" & vCurrentItem & "->ID") = Request.Form("ProductID") Session("BASKET->ITEM" & vCurrentItem & "->Name") = GetDatabaseValue("Videos_and_Books", "VAB_Name", "VAB_ID", Request.Form("ProductID")) Session("BASKET->ITEM" & vCurrentItem & "->VideoFormat") = Request.Form("VideoFormat") If UCASE(Session("BASKET->ITEM" & vCurrentItem & "->VideoFormat")) = "NTSC" Then vPrice = GetDatabaseValue("Videos_and_Books", "VAB_Price", "VAB_ID", Request.Form("ProductID")) + (GetDatabaseValue("Videos_and_Books", "VAB_No_Of_Videos", "VAB_ID", Request.Form("ProductID")) * 1) Else vPrice = GetDatabaseValue("Videos_and_Books", "VAB_Price", "VAB_ID", Request.Form("ProductID")) End If Session("BASKET->ITEM" & vCurrentItem & "->Price") = vPrice Session("BASKET->ITEM" & vCurrentItem & "->Postage") = Request.Form("Postage") Session("BASKET->ITEM" & vCurrentItem & "->IsCourse") = false End If If cBool(Request.QueryString("Remove")) Then Session("BASKET->ITEM" & Request.QueryString("ID") & "->ID") = Empty End If %> Bodyharmonics
pictures of qualification logos - microsystems and acupuncture-acutherapy council

Your Basket

If you are outside the UK, please ensure that you have selected the correct postage. Orders will be processed with the correct postage.

<% Session("BASKET->Total") = 0 vPostage = 0 If Session("ItemsInBasket") > 0 Then For x = 1 To Session("ItemsInBasket") If Session("BASKET->ITEM" & x & "->ID") > 0 Then vItemsInBasket = true vPostage = vPostage + Session("BASKET->ITEM" & x & "->Postage") Session("BASKET->Total") = Session("BASKET->Total") + Session("BASKET->ITEM" & x & "->Price") %> <% End if Next Session("BASKET->Total") = Session("BASKET->Total") + vPostage End If If vItemsInBasket Then %> <% Else %> <% End If If vItemsInBasket Then %> <% End If %>
<%= Session("BASKET->ITEM" & x & "->Name") %>  <%= Session("BASKET->ITEM" & x & "->VideoFormat") %> <%= FormatNumber(Session("BASKET->ITEM" & x & "->Price"), 2) %> remove item
Shipping total: £<%= FormatNumber(vPostage, 2) %>  
Total order value: £<%= FormatNumber(Session("BASKET->Total"), 2) %>  
There are currently no items in your basket
You will be transferred to our secure server to complete your order

<% If vItemsInBasket Then %> <% Else %> <% End If %>

All deposits for courses are non-refundable.

Unless faulty all DVD's are non-refundable.

Please note: if you are ordering a video from outside of Europe, you may need to have NTSC format which is an additional £1.00. If you have not specified this with your order, the additional charge will be made for addresses from the relevant countries. Please see about video formats for further information.

Allow up to 28 days for delivery.