<% Response.Buffer=true %> <% Dim CartsConn Dim CartsDB Set CartsConn=Server.CreateObject("ADODB.Connection") CartsConn.Open "DSN=LaundryCarts;" If Request.QueryString("Categ") = "" Then Categ = "Parts" Else Categ = Request.QueryString("Categ") End If %>

<%=Categ%> <% strSQL = "SELECT * FROM " & Categ Set CartsDB = CartsConn.Execute(strSQL) CounterVar = 1 title1 = "w00t" PartsCounter = 0 PartsCounterStart = 0 CartsDB.MoveFirst Do While NOT CartsDB.EOF CounterVar = 1 CounterVar2 = 1 %> <% CounterVar = CounterVar + 1 PartsCounter = PartsCounter + 1 CartsDB.MoveNext Loop CartsDB.Close Set CartsDB = Nothing CartsConn.Close Set CartsConn = Nothing %> <% ' If CounterVar Mod 3 = 1 AND title1 = title Then ' Response.Write "" ' End If %> &InfoCateg=<%=Categ%>">" border="0"> <%=CartsDB("PartDescription")%> &InfoCateg=<%=Categ%>">More Details Our Price $<%=formatnumber(CartsDB("Price"),2)%> &AddCateg=<%=Categ%>">Place an Order! <% If Request.QueryString("Categ") = "Wheels" Then %> Lifetime warranty on 4" wheels <% End If %>

Laundry cart parts hardware parts parts

Call Us: 1-866-891-5513, Email Us: parts@sterlingequipmentco.com All contents © copyright 2004 Laundry Cart Co., All rights reserved.