<%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("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

Mailing List

Join our mailing list and be notified whenever we get new arrivals!

All fields are mandatory

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.

<% Do While Not Rs.Eof %> <% Rs.MoveNext Loop %>

&Brand=<%=Rs("Brand")%>&Model=<%=Rs("Model")%>">

/<%=Rs("ImageID")%>_th.jpg" class="bordered" alt="<%=Rs("Model")%> by <%=Rs("Brand")%>">

Brand: <%=Rs("Brand")%>

Model: <%=Rs("Model")%>

Designer: <%=Rs("Designer")%>

Type: <%=Rs("LampType")%>

<%=Replace(Left(Rs("Description"),100),vbCrLf,"
")%>...

&Brand=<%=Rs("Brand")%>&Model=<%=Rs("Model")%>"> more details >>

Quantity: " type="text" id="Qty" size="3" value="1"> ')">[Remove Item]

Tell us how to get in touch with you:
(Required fields are marked with an asterisk *)

Name: *

Company:

E-mail: *

Address: *

Telephone: *

Fax:

Other requirements: