">
<%if errorLogin then%>
Incorrect email and/or password please try again
<%end if%> <%if not EnterLogin then%>

Just $1.66 a day* for probably the safest, most effective natural lasting asthma and hay fever treatment available...and you may never need it again!

*Based on the price of 120 Yamoa™ capsules taken twice a day for 2 months.

Repeat Customers

Save 10% on every order you place! Simply Generate a password, log in on the homepage, enter 'Repeat customer' in the Notes section and get a 10% refund when we process your order for shipping!

<%else %> <%Set RS_Orders=Server.CreateObject("ADODB.Recordset") sqlstr="select *, (SELECT SUM(sell) FROM dbo_quoted_products QP WHERE QP.order_id=dbo_orders.order_id) as Total, (SELECT TOP 1 currency_id FROM dbo_quoted_products QP WHERE QP.order_id=dbo_orders.order_id) as Curr from dbo_orders left outer join dbo_customers on dbo_customers.cust_id=dbo_orders.cust_id where dbo_customers.shopper_id='" & Session("custid") & "' AND IsNULL(ordered,'')<>''" 'Response.Write("sqlstr=" & sqlstr & "
") RS_Orders.Open sqlstr, strConnection Dim bgcolor Dim Curr bgcolor="#F5F5F5" if RS_orders.EOF and RS_orders.BOF then %> <% else if RS_orders("Curr")=1 then Curr="£" elseif RS_orders("Curr")=2 then Curr="€" elseif RS_orders("Curr")=3 then Curr="$" else Curr="CAD" end if %> <% Do while not Rs_orders.EOF if bgcolor="#F5F5F5" then bgcolor="" else bgcolor="#F5F5F5" end if Dim RS_lastOrdersDetails SET RS_lastOrdersDetails = Server.CreateObject("ADODB.RecordSet") Dim SQLStr, strOrderDetails, Sku strOrderDetails="" sku="1" SQLStr = "SELECT * FROM dbo_quoted_products where product_type_id=1 AND order_id=" & RS_orders("order_id") SET RS_lastOrdersDetails = strConnection.Execute (SQLStr) Do while not RS_lastOrdersDetails.EOF strOrderDetails = strOrderDetails & " " & RS_lastOrdersDetails("product_code") &"," If isnull((RS_lastOrdersDetails("sku"))) then sku="" end if RS_lastOrdersDetails.MoveNext Loop strOrderDetails = Mid(strOrderDetails, 1, Len(strOrderDetails)-1) if sku="" then %> <% else %> <% end if Rs_orders.MoveNext Loop RS_orders.Close %>
Welcome <%=firstname%> <%=name%>  Change password

Logout


Your orders
On <%=FormatDateTime(RS_orders("ordered"),1) %> you ordered:<%=strOrderDetails %>
Would you like to #viewOrder" title="On <%=FormatDateTime(RS_orders("ordered"),1) %> you ordered:<%=strOrderDetails %>">Repeat your order from the <%=FormatDateTime(RS_orders("ordered"),1)%> for <%=Curr %><%=RS_orders("total")%>
Move your mouse over Repeat to see what you ordered
<%end if%> <%end if%>
 

New Customers

An initial course of 2 months is recommended for best results.

FREE worldwide shipping until Midnight GMT Sunday 13th April!

Buy from a Licensed Yamoa™ Stockist


OR

If you are NOT sending to a destination within the EU, place your order with us for repeat customer 10% discounts, unique offers and to qualify for our Yamoa™ Referral Refunds.

 
<% Dim Rset_Prices, Str Set Rset_Prices = Server.CreateObject("ADODB.Recordset") Do while Rset_products.EOF=False 'Edward - removed Canadian $ by adding currency_id<>4 and 'Query = "Select * From Dbo_product p inner join dbo_brand b on p.brand_id=b.brand_id inner join dbo_product_prices pr on pr.product_id = p.product_id inner join dbo_postal_region post on pr.postal_region_id=post.postal_region_id where pr.currency_id<>4 and availability=1 and code=1 and p.product_id= (" & Rset_Products("product_id") & ") order by post.postal_region_id" Query = "Select pr.currency_id,pr.postal_region_id,p_price From Dbo_product p inner join dbo_product_prices pr on pr.product_id = p.product_id where pr.currency_id<>4 and availability=1 and code=1 and p.product_id= (" & Rset_Products("product_id") & ") order by pr.postal_region_id" Rset_Prices.Open Query, strConnection %> <% RSet_Prices.Close Rset_products.MoveNext Loop %>

Product

Quantity
Price
 
<%=Rset_products("brand_name")&" "&Rset_products("product_code")&" "&Rset_products("pack_size")%> <%if trim(Rset_products("product_code")) = "Eczmend" then %>
<%End if%>
" type="text" id="q<%=Rset_Products("product_id")%>" size="4" maxlength="4" value="<%=ReturnQuantityProducts(Rset_Products("product_id"))%>" ONKEYPRESS="if ((event.keyCode < 48)||(event.keyCode > 57)) event.returnValue = false;">

Select your currency here " ID="Hidden2">




 
  Your billing details    
 
  First Name >
  Surname
  Address
   
  Town/City
  County/State
  Postcode/Zip
  Country
  Telephone No.
  Email
    Please contact me by:
   


   
  Is the delivery address the same as above?  
       
Name
  Address
   
  Town/City
  County/State
  Postcode/Zip
  Country
   
Where did you hear about us?
   
  Please enter here any message, or the name of who referred you to qualify for referral refunds etc.
 
 
Please tick here if you would like us to keep in touch. We will send you occasional mailings with news, offers and updates. Your contact details will not be shared with any third parties under any circumstances, ever.
 
I have read and accept your Terms and conditions of purchase and your Disclaimer.
 
   
Click 'Continue' to preview your order with shipping rates.