<% 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 %>
<%If rItem.Eof=False Then%> <%ItemID=rItem("ItemID")%> <%Set rS=connection.execute("select distinct colors from Item_sizes where ItemID="&ItemID&" and colors<>'NA' and show=1")%> <%If rS.eof=false then%> <%end if%> <%If Request("ColorID")<>"" Then%> <%gCond="ItemSID="& Request("ColorID")%> <%Else%> <%gCond="ItemID="&ItemID%> <%End If%> <%Set rT=connection.execute("select * from Item_sizes where "&gCond&" and show=1 order by Colors")%> <%if rT.eof=false and rT("Colors")<>"NA" then%> <%RColor=rT("Colors")%> <%end if%> <%eImageM=rT("ImageM")%> <%Ava_Colors=rT("Colors")%> <%CATID=Request("CATID")%> <%set rStk=connection.execute("select sum(qty) as Sqty from item_sizes where Itemid="&ItemID&" and colors='"&rT("colors")&"'")%>

<%=rItem("ItemName")%>


Available Colors
<%Do while rS.eof=false%> <%If Not rS.eof and Not rS.bof then%> <%set rSID=connection.execute("select ItemSID from Item_sizes where ItemID="&ItemID&" and colors='"&rS("colors")&"'")%> <%rS.moveNext%> <%end if%> <%Set rSID=Nothing%> <%If Not rS.eof and Not rS.bof then%> <%set rSID=connection.execute("select ItemSID from Item_sizes where ItemID="&ItemID&" and colors='"&rS("colors")&"'")%> <%rS.moveNext%> <%Else%> <%End if%> <%Set rSID=NOthing%> <%loop%> <%set rS=nothing%>
 &ItemID=<%=ItemID%><%=sQ%>"><%=rS("Colors")%>  &ItemID=<%=ItemID%><%=sQ%>"><%=rS("Colors")%>  

<%=rItem("ItemName")%> (<%=rT("Colors")%>)
<%=eImageM%>

Price: <%=formatCurrency(rItem("OURPRICE"),2)%>

">">
<% if blnShowSize then %>Hook Size:   <% end if %>  
<%=rItem("Details")%>
 
<%=rItem("SpecialMsg")%>

<%ELSE%>

NO RECORD FOUND MATICHING YOU CRITERIA.
<%END IF%>
<% sGBox 2 %>