% intCatId = ifNumericIsNull(request("CatID")) intItemId = ifNumericIsNull(request("ItemID")) blnInternalPage = true '#category name set rCat=Connection.execute("Select Category FROM Category WHERE Show=1 AND CatId="&intCatId) if NOT rCat.EOF then txtCatTitle = rCat("Category") end if rCat.close() :: set rCat=nothing if intItemId="0" Then set rsProducts=Connection.execute("Select IT.ItemName from Items IT, item_sizes SZ Where IT.CatID="&intCatId&" and IT.Show=1 AND SZ.Show=1 AND IT.ItemId=SZ.ItemId") else ' set rsProducts=Connection.execute("Select ItemName from Items Where CatID="&intCatId&" and ItemID="&intItemId&" and Show=1") set rsProducts=Connection.execute("Select IT.ItemName from Items IT, item_sizes SZ Where IT.CatID="&intCatId&" and IT.Show=1 AND SZ.Show=1 AND IT.ItemId=SZ.ItemId and IT.ItemID="&intItemId&"") end if if not rsProducts.eof then strTitle = rsProducts("ItemName") &" @ " end if rsProducts.close() :: set rsProducts=nothing '#SEO title strSEOTitle = strTitle &"Fishing Flies Online - fishing flies - fly fishing - flyfishing - lures - saltwater flies - salmon fishing flies - trout fishing flies - bucktail fly - streamer fly - trolling flies - fishing guides - nymphs - dry fly - flies - fly - parachute - beadhead" %> <% sGBox 1 %> <% CatID = REQUEST("CatID") ItemID = Request("ItemID") sQ="&CatID="&CatID If ItemID="" Then Set rItem=Connection.execute("Select IT.ItemID, IT.ItemName, IT.Details, IT.SpecialMsg, IT.ImageM, IT.StockNo, IT.OURPRICE, IT.Details from Items IT, ITEM_SIZES SZ Where IT.CatID="&CatID&" and IT.Show=1 AND SZ.SHOW=1 AND IT.ItemId=SZ.ItemId") Else Set rItem=Connection.execute("Select IT.ItemID, IT.ItemName, IT.Details, IT.SpecialMsg, IT.ImageM, IT.StockNo, IT.OURPRICE, IT.Details from Items IT, ITEM_SIZES SZ Where IT.CatID="&CatID&" and IT.ItemID="&ItemID&" and IT.Show=1 AND SZ.SHOW=1 AND IT.ItemId=SZ.ItemId") End If if CatId = "17" then blnShowSize=false else blnShowSize=true end if %>
<% sGBox 2 %>