Studio Designs by T

<%if pcv_PageName<>"" then%> Studio Designs by T <%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
	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:

<%=rsSideCatObj("pcCont_PageName")%>

Customer Account:

Welcome to my new website! Cottage Bead Shop & Glass Supplies is a division of Craft Cottage Gifts.

We've been very busy remodeling the "new" shop and can finally see the light at the end of the tunnel. Yes, the shop will be re-opening very, very soon. It will be so nice and I am just so excited. Check back for the grand opening info.

Calling all Lampworkers! I am now a reseller of Northstar Glassworks! Yeah! I will have Precision 104 in stock and I will special order Boro glass for anyone at super great prices!I will slowly build my stock, but for now I will offer Moretti/Effetre, Vetrofond, CIM and Double Helix glass.

I will have help in the shop now which means I can spend more time creating and designing as well as more time for Special items, Sales, Bead Club, Kit Club and more!

The website is still a work in progress. In the coming weeks you'll soon see expanded category listings that include these and more. If you're interested in more info about Cottage Club kits, please sign up for the upcoming Cottage Bead Club Newsletter. Click on the Cottage Bead Kit Club link on the left side menu.

Please look around and browse the catalog, but keep in mind that lots more will be added very soon. Please come back to see the finished shop.

Thank you for visiting in and have a great day!

Theresa M.