<%@LANGUAGE="VBSCRIPT"%> <% ' UltraDev Shopping Cart II ' Copyright (c) 2001 Joseph Scavitto All Rights Reserved ' www.thechocolatestore.com/ultradev Dim UCII_CartColNames,UCII_ComputedCols,UCII__i UCII_CartColNames = Array("ProductID","Quantity","Name","Color","Ingredients","Price","Total") UCII_ComputedCols = Array("","","","","","","Price") Set UCII = VBConstuctCart("UCartII",1,UCII_CartColNames,UCII_ComputedCols) UCII__i = 0 %> <% Dim rsskincare__MMColParam rsskincare__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsskincare__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsskincare_numRows = rsskincare_numRows + Repeat1__numRows %> <% Dim TFM_nest, lastTFM_nest%> <% Dim rsskincare Dim rsskincare_numRows Set rsskincare = Server.CreateObject("ADODB.Recordset") rsskincare.ActiveConnection = MM_cherish_STRING rsskincare.Source = "SELECT * FROM Products, Subcategory WHERE Products.SubcategoryID = Subcategory.SubcategoryID AND Products.CategoryID = " + Replace(rsskincare__MMColParam, "'", "''") + " ORDER BY Products.SubcategoryID" rsskincare.CursorType = 0 rsskincare.CursorLocation = 2 rsskincare.LockType = 1 rsskincare.Open() rsskincare_numRows = 0 %> <% ' UltraCart II Add To Cart Via Form Version 1.00 UCII_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UCII_editAction = UCII_editAction & "?" & Request.QueryString End If UCII_recordId = CStr(Request.Form("UCII_recordId")) If (Request.Form("UCII_recordId").Count = 1) Then set UCII_rs=rsskincare UCII_uniqueCol="ProductID" If (NOT (UCII_rs is Nothing)) Then If (UCII_rs.Fields.Item(UCII_uniqueCol).Value <> UCII_recordId) Then If (UCII_rs.CursorType > 0) Then If (Not UCII_rs.BOF) Then UCII_rs.MoveFirst Else UCII_rs.Close UCII_rs.Open End If Do While (Not UCII_rs.EOF) If (Cstr(UCII_rs.Fields.Item(UCII_uniqueCol).Value) = UCII_recordId) Then Exit Do End If UCII_rs.MoveNext Loop End If End If UCII.AddItem UCII_rs,Array("RS","FORM","RS","FORM","RS","RS","NONE"),Array("ProductID","qty","Product","color","Ingredients","Price",""),"increment" UCII_redirectPage = "shopcart.asp" If (UCII_redirectPage <> "") Then If (InStr(1, UCII_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UCII_redirectPage = UCII_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UCII_redirectPage) End If End If %>

Honey, beeswax, & royal jelly blended with other natural ingredients creates a new and healthy way to "Cherish" your skin. Honey is not only healthy to eat but is a natural skin moisturizer. We make these products with the purest natural ingredients available. Because they are so pure you will find these products are very concentrated. A little goes a long way. Enjoy! Shirlie Burkett

 

Burkett's Honey Store By Cherish L'abeille

Contact us

Natural Candles by Cherish L'abeille

  Call us for more information: (559) 638-3455   Or fax an order to: (559) 638-7526 <% rsskincare.Close() Set rsskincare = Nothing %>