<% showType = request.QueryString("type") set objBack = Server.CreateObject("ADODB.Recordset") set objType = Server.CreateObject("ADODB.Recordset") set objCat = Server.CreateObject("ADODB.Recordset") set objProduct = Server.CreateObject("ADODB.Recordset") if showType <> "" then sqlType = "SELECT * FROM PRODUCTS_CATEGORIES WHERE SHOW_TYPE = '" & showType & "';" objType.Open sqlType, ObjConn if NOT objType.EOF then showCategory = objType("PRODUCT_CATEGORY") showCategory = FixItFromDB(showCategory, False) end if 'if NOT objType.EOF objType.Close end if 'if showType <> "" sqlBack = "SELECT * FROM BACKGROUNDS WHERE PAGE_CONTENT = 'catalog';" objBack.Open sqlBack, ObjConn if NOT objBack.EOF then showBackground = objBack("BACKGROUND") end if objBack.Close %>

<% servPage = request.ServerVariables("URL") slashPos = instrRev(servPage, "/", -1, 1) servPage = Right(servPage, Len(servPage) - slashPos) if servPage = "catalog.asp" and showType = "" and showBackground <> "" then response.write " <% sqlCat = "SELECT * FROM PRODUCTS_CATEGORIES ORDER BY PRODUCT_CATEGORY;" objCat.Open sqlCat, ObjConn if NOT objCat.EOF then While NOT objCat.EOF thisCatID = objCat("PRODUCT_CAT_ID") thisCat = objCat("PRODUCT_CATEGORY") thisShowType = objCat("SHOW_TYPE") thisCat = FixItFromDB(thisCat, False) response.write "" response.write "" response.write "" response.write "" response.write "" objCat.MoveNext Wend end if 'if NOT objCat.EOF objCat.Close %>   " & thisCat & " " else response.write " " end if %> <% if showType <> "" then %> <% else %> <% end if %> Online Catalog - <% =showCategory %> Online Catalog   <% if showType <> "" then sqlProduct = "SELECT * FROM MASTER_PRODUCTS_QUERY WHERE SHOW_TYPE = '" & showType & "' ORDER BY PRODUCT;" objProduct.Open sqlProduct, ObjConn if NOT objProduct.EOF then i = 1 currentLink = "" While NOT objProduct.EOF thisProduct = objProduct("PRODUCT") thisPhoto = objProduct("PHOTO") thisThumb = objProduct("THUMBNAIL") thisDetails = objProduct("DETAILS") thisProduct = FixItFromDB(thisProduct, False) thisDetails = FixItFromDB(thisDetails, False) response.write "" if thisThumb <> "" then response.write "" else response.write "" end if response.write "" response.write "" 'if i mod 5 = 0 then response.write "" 'end if response.write "" 'i = i + 1 objProduct.MoveNext Wend else response.write "" response.write "" response.write "" end if 'if NOT objProduct.EOF objProduct.Close else response.write "" response.write "" response.write "" end if 'if showType <> "" %>   " & thisProduct & " " & thisDetails & "" & thisDetails & " " 'response.write " back to top   Sorry, there are no Products right now. Click on your area of interest from the menu on the left to view a sampling of our handcrafted products. Should you desire a product category not shown here, please contact us. Our expert Sales Associates have designed a wide variety of products for applications as diverse as fireplace screens and bed headboards.

<% 'clean-up ObjConn.Close set objBack = Nothing set objType = Nothing set objCat = Nothing set objProduct = Nothing set ObjConn = Nothing %>