<%@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 rscandles__MMColParam
rscandles__MMColParam = "3"
If (Request("MM_EmptyValue") <> "") Then
rscandles__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rscandles_numRows = rscandles_numRows + Repeat1__numRows
%>
<%
Dim rscandles
Dim rscandles_numRows
Set rscandles = Server.CreateObject("ADODB.Recordset")
rscandles.ActiveConnection = MM_cherish_STRING
rscandles.Source = "SELECT Products.ProductID, Product, Ingredients, Price FROM Products WHERE CategoryID = " + Replace(rscandles__MMColParam, "'", "''") + ""
rscandles.CursorType = 0
rscandles.CursorLocation = 2
rscandles.LockType = 1
rscandles.Open()
rscandles_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=rscandles
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
%>
Candles by Cherish L'abeille
By Cherish L'abeille
Our candles are made from the finest hand rolled beeswax.
Call us for more information: (559) 638-3455 Or fax an order to: (559) 638-7526
