<%Response.Expires = 0%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Session.TimeOut = 100
Sub PutToShopBag(ProductID, ProductList)
If Len(ProductList) = 0 Then
ProductList = "'" & ProductID & "'"
ElseIf InStr(ProductList, "'"&ProductID&"'") <= 0 Then
ProductList = ProductList & ",'" & ProductID & "'"
End If
End Sub
If Request("Action") = "Remove" Then
Key = Request("Key")
If Instr(Session("ProductList"), ",'" & Key & "'") > 0 Then
Session("ProductList") = Replace(Session("ProductList"), ",'" & Key & "'", "")
Elseif Instr(Session("ProductList"), ",") <=0 Then
Session("ProductList") = ""
Else
Session("ProductList") = Replace(Session("ProductList"), "'" & Key & "',", "")
End If
End If
If IsNumeric(Request("ProductID")) Then
ProductList = Session("ProductList")
Products = Split(Request("ProductID"), ",")
For i=0 To UBound(Products)
PutToShopBag Products(i), ProductList
Next
End If
If Request("MySelf") = "Yes" Then
ProductList = ""
Products = Split(Request("ProductID"), ",")
For i=0 To UBound(Products)
PutToShopBag Products(i), ProductList
Next
Session("ProductList") = ProductList
End If
Session("ProductList") = ProductList
Products = Split(Session("ProductList"), ",")
If Session("ProductList") = "" Then Response.Redirect("products/catalog.asp?Error=1")
SQL = "SELECT * FROM Results"
SQL = SQL & " WHERE Key IN (" & Replace(Session("ProductList"), "'","") & ")"
SQL = SQL & " ORDER BY Brand, LampType, Model"
Rs.Open SQL, Application("Catalog_ConnectionString"), 1, 1
%>
Richard's Lighting - Cart
Simply fill in the details on the products that you are interested in, and
we will contact you shortly with a personalized quotation. Please feel free
to contact us directly with any questions, comments or suggestions as well.
