Click Here

See Our Christmas and Kwanzaa Treasure's! Click Here

Click Here

<%iItmPerRow=1 If bFeaturedExists Then%> <%Call ItemDisplay(rsItems) ElseIf bItemExists Then Call ItemDisplay(rsItems) ElseIf bCategoryExists Then Call categoryDisplay(rsCategory) Else Response.Write("No items are available at present.") End if Sub navlink(Code,sPrevPage,sNextPage,sNextBookMark,sPrevBookMark,skey)%> <%End Sub Sub CategoryDisplay(rsCategory) Dim sItemCode, sItemName, sItemDesc, sItemImage sNextCatBookMark = rsCategory("CODE") Do While Not rsCategory.Eof sItemCode = rsCategory("CODE") sItemName = rsCategory("DESCRIPTION") sItemDesc = rsCategory("WEBDESC") sItemImage = rsCategory("IMAGESMALL")%> <%rsCategory.Movenext Loop rsCategory.MovePrevious sPrevCatBookMark = rsCategory("CODE") ' Calls Navlink Procedure to display next and previous link. ' It passes CategoryCode, Previos page, Next page, Next Category Bookmark, Previous Category Bookmark and Key as "C" Call navlink(sCategory,sPrevPage,sNextPage,sNextCatBookMark,sPrevCatBookMark,"C") End Sub Sub ItemDisplay(rsItems) Dim sItemName, sItemDesc, sItemImage, sItemPrice, sRegularPrice, sCallforPrice, sUrl, sTooltip, sItemStock, sEqCode, strDefWishList, sDownloadable, sAdditionalPrice, sAdditionalRegularPrice, bDisplayLowPriceMsg If bFeaturedExists Then sPrevItemBookMark = rsItems("CODE") Elseif bItemExists Then sNextItemBookMark = rsItems("EQ_CODE") If sNextItemBookMark = "" Then sNextItemBookMark = rsItems("ITEMNO") End If End if If iItmPerRow = 2 Then Response.write "" End if If Not bShowDefWish Then strDefWishList = "Add to " & sWishList Else strDefWishList="" End if Do While Not rsItems.Eof If bFeaturedExists Then sItemType = rsItems("TYPE") sItemCode = rsitems("CODE") Elseif bItemExists Then sItemType = rsItems("MATRIX_ITEM_TYPE") sItemCode = rsItems("ITEMNO") sEqCode = rsItems("EQ_CODE") End if If iItmPerRow = 2 Then Response.write "

" End if sItemName = rsItems("DESCRIPTION") sItemDesc = rsItems("WEBDESC") sItemImage = rsItems("IMAGETHUMB") sItemPrice = rsItems("PRICE") sRegularPrice = rsItems("REGULARPRICE") sCallforPrice = rsItems("CALL4PRICE") sItemStock = rsItems("stock") sInventored = rsItems("INVENTORED") sDownloadable =rsItems("ALLOW_DOWNLOAD") sAdditionalPrice = rsItems("ADD_CURR_PRICE") sAdditionalRegularPrice = rsItems("ADD_CURR_REGULARPRICE") bAllowSaleUnit = rsItems("ALLOW_SALE_IN_UNITS") sMeasureDesc = rsItems("MEASURE_DESC") iUnits = rsItems("UNITS") iFraction = rsItems("FRACTION") bDisplayLowPriceMsg = rsItems("DISPLAY_LOW_PRICE_MSG") '*** When ItemType is 33 (Kit), then show the link to CustomKitItems Page and change the ToolTip. Select Case sItemType Case iTYPE_KIT sUrl = sNonSecurePath & "customkititems.asp?CartId=" & scartid & "&kc=" & Server.URLEncode(sItemcode) sTooltip = "Click here to Customize this item" Case iTYPE_MATRIX_MASTER sUrl = sNonSecurePath & "itemMatrix.asp?CartId=" & scartid & "&GroupCode=" & Server.URLEncode(sItemCode)& "&eq=" & Server.URLEncode(sEqCode) & "&MatrixType=" & iTYPE_MATRIX_MASTER sTooltip = Application("MatrixConfigurableText") Case iTYPE_MATRIX_DETAIL sUrl = sNonSecurePath & "itemMatrix.asp?CartId=" & scartid & "&ic=" & Server.URLEncode(sItemCode)& "&eq=" & Server.URLEncode(sEqCode) & "&MatrixType=" & iTYPE_MATRIX_DETAIL sTooltip = "Click here for More Info" Case Else sUrl = sNonSecurePath & "itemdesc.asp?CartId=" & scartid & "&ic=" & Server.URLEncode(sItemcode)& "&eq=" & Server.URLEncode(sEqCode) & "&Tp=" & Server.URLEncode(sTpCatalog) sTooltip = "Click here for More Info" End Select%> <%If iItmPerRow <> 2 Then%> <%End if iIndex = iIndex+1 If iItmPerRow=2 Then If (iIndex mod 2 <> 0) Then%> <%Else%> <%End if End if rsItems.Movenext Loop If iItmPerRow = 2 Then If (iIndex mod 2 = 0) Then response.Write "" End if Response.write "" End if rsItems.MovePrevious If bFeaturedExists Then sNextItemBookMark = rsitems("CODE") Call navlink(sFeaturedCode,sPrevPage,sNextPage,sNextItemBookMark,sPrevItemBookMark,"F") Elseif bItemExists Then sPrevItemBookMark = rsItems("EQ_CODE") If sPrevItemBookMark = "" Then sPrevItemBookMark = rsItems("ITEMNO") End If Call navlink(sCategory,sPrevPage,sNextPage,sNextItemBookMark,sPrevItemBookMark,"I") End if rsItems.Movefirst End Sub%>	Djembe - Drum      Dudu Osun Blk. soap      Mudcloth Bambara      Shea Butter     Get our free email letter. Click below to sign up.      Regular emails with African Proverbs, information on various African People Groups and regions; and price specials. 100% Guarantee You are  guaranteed to be 100% satisfied with your art, jewelry, or gift product. If you are not happy for any reason at all, you can return it for your choice of either a full refund or exchange.