<% 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 ItemID,ItemName,Details,SpecialMsg,ImageM,StockNo,OURPRICE,Details,vp_ItemID from Items Where CatID="&CatID&" and SHOW IN (1,1)") Else Set rItem=Connection.execute("Select ItemID,ItemName,Details,SpecialMsg,ImageM,StockNo,OURPRICE,Details,vp_ItemID from Items Where CatID="&CatID&" and SHOW IN (1,1) and ItemID="&ItemID) 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 in (1,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 in (1,1) order by Colors")%> <%if rT.eof=false and rT("Colors")<>"NA" then%> <%RColor=rT("Colors")%> <%end if%> <%eImageM=split(rT("vp_imagenames")&"",",")%> <%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")%>

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

<%For I=0 to Ubound(eImageM)%> <%If trim(eImageM(I))<>"000" then%> <%I=I+1%> <%End If%> <%If trim(eImageM(I))<>"000" then%> <%I=I+1%> <%End If%> <%If trim(eImageM(I))<>"000" then%> <%I=I+1%> <%End If%> <%If trim(eImageM(I))<>"000" then%> <%End If%> <%Next%>

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

In Stock Quantity <%=rStk("Sqty")%>

"> ">

<%=rItem("SpecialMsg")%>

<%=rItem("Details")%>

<%ELSE%>

NO RECORD FOUND MATICHING YOU CRITERIA.

<%END IF%>

<% sGBox 2 %>