Laundry Carts

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

<% If Categ = "Carts" Then %> <% Else %> <% 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)%>

<% If Request.QueryString("Categ") = "Wheels" Then %> Lifetime warranty on 4" wheels <% End If %>

carts carts laundry carts basket