Laundry Carts

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

<% If Categ = "Carts" Then %> <% Else %> <% End If %>

<% strSQL = "SELECT * FROM " & Request.QueryString("InfoCateg") & " WHERE PartNumber = '" & Request.QueryString("Info") & "'" Set CartsDB = CartsConn.Execute(strSQL) CartsDB.MoveFirst %>

<% ' If CounterVar Mod 3 = 1 AND title1 = title Then ' Response.Write "" ' End If %> <% if Request.QueryString("Info")="Chrome" AND 1=0 then %> <% else %> <% end if %>

">	<%=CartsDB("LongDescription1")%>
	<%=CartsDB("LongDescription2")%>
	<%=CartsDB("LongDescription3")%>

Our Price $<%=formatnumber(CartsDB("Price"),2)%>
Currently Out - Please Check Back Soon!
In Stock Now! Call To Order! Shipping and Handling charges apply to all orders.