Cottage Bead Shop and Glass Supplies

<%if pcv_PageName<>"" then%> Cottage Bead Shop and Glass Supplies <%end if%> <%GenerateMetaTags()%> <%Response.Buffer=True%> <% Set conlayout=Server.CreateObject("ADODB.Connection") conlayout.Open scDSN Set RSlayout = conlayout.Execute("Select * From layout Where layout.ID=2") Set rsIconObj = conlayout.Execute("Select * From icons WHERE id=1") %>

Home	Contact Me	About	A division of Craft Cottage Gifts
Studio Kit Club News	256-338-2602		Search :: Advanced Search

<% 'End Show shopping cart total end if %> <% ' START dynamic category navigation sdquery="SELECT idProduct FROM categories_products" set rs=conlayout.execute(sdquery) if not rs.eof then %> <% end if set rs=nothing ' END dynamic category navigation %> <% ' Show Browse by Brand link if there are brands in the store sdquery="SELECT * FROM Brands" set rsSideCatObj=conlayout.execute(sdquery) if not rsSideCatObj.eof then %> <% ' End show Browse by Brand set rsSideCatObj=nothing end if %> <% ' Show List of Content pages sdquery="SELECT pcCont_IDPage,pcCont_PageName FROM pcContents where pcCont_InActive=0;" set rsSideCatObj=conlayout.execute(sdquery) do while not rsSideCatObj.eof %> <% rsSideCatObj.MoveNext loop set rsSideCatObj=nothing %> <% ' Check to see if the customer is an affiliate. If not, show the customer ' service links as long as the customer is logged in. Otherwise, show ' the affiliate account management links. if session("pc_IDAffiliate")="0" or session("pc_IDAffiliate")="" then %> <% ' If the customer is not an affiliate and is not logged in ' show a link to the registration page. if session("idCustomer")="0" or session("idCustomer")="" then %> <% else %> <% ' If the Wish List feature is active, show a link to it if (scWL="-1") or ((scBTO=1) and (iBTOQuote=1)) then %> <% end if %> <% end if %> <% end if 'End This is Not an Affiliate 'Start Affiliate links if there are any affiliates sdquery="SELECT idAffiliate FROM affiliates" set rs=conlayout.execute(sdquery) iRecordCount = 0 Do While not rs.EOF iRecordCount = iRecordCount + 1 rs.MoveNext Loop if iRecordCount > 1 then %> <% if session("pc_IDAffiliate")="0" or session("pc_IDAffiliate")="" then %> <% else %> <% ' End affiliate links end if end if %>

<% 'Show shopping cart total dim vcCartArr, vcCartIndex, v, scantidadCart7, vcTotal, vcItems vcCartArr=Session("pcCartSession") vcCartIndex=Session("pcCartIndex") vcTotal=Cint(0) 'calculates the cart total vcItems=Cint(0) 'counts items in your cart for v=1 to vcCartIndex if vcCartArr(v,10)=0 then vcItems=vcItems + vcCartArr(v,2) vcTotal=vcTotal+(vcCartArr(v,2)*vcCartArr(v,17)) vcTotal=vcTotal+(vcCartArr(v,2)*vcCartArr(v,5)) vcTotal=vcTotal-vcCartArr(v,30) vcTotal=vcTotal+vcCartArr(v,31) vcTotal=vcTotal-vcCartArr(v,15) 'vcTotal=vcTotal + vcCartArr(v,5) + (vcCartArr(v,3)*vcCartArr(v,2)) end if next if vcItems > 0 then %>

Your cart contains:

<%response.write vcItems%> Item(s)
Subtotal: <%response.write scCurSign & money(vcTotal)%>

View - Checkout >>

Product Catalog:

<% ' Check to see if the page is a category or product page ' If yes, expand the dynamic category menu ' If you don't want the dynamic menu to be expanded automatically, ' comment out the following 5 lines of code. The menu will only ' expand if the user clicks on a link. pcv_checkPageCat=Request.QueryString("idcategory") pcv_checkPagePrd=Request.QueryString("idproduct") If pcv_checkPageCat <> "" Or pcv_CheckPagePrd <> "" then pcv_ShowAllCATs=1 end if ' If you want the category menu to stop at the category level ' use the following INCLUDE file %> <% ' If you want the category menu to get to the product level and ' include the first 5 products in the category remove or comment ' out the previous INCLUDE file, and use the following instead. ' (not recommended on stores with a large product catalog) ' %>

Shop:

Store Home

Browse Catalog