<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" %> <% 'Object Definitions class WA_eCartDefinition public DisplayIndex public CartName public Persistance public CurrencyPrefix public ForceDecimalsC public DecimalPlacesC public CurrencyAlign public WeightSuffix public ForceDecimalsW public DecimalPlacesW public WeightAlign public NumberDisplay public Items public ChargesDisplayIndex public DiscountsDisplayIndex public TaxDisplayIndex public ShippingDisplayIndex public Charges public Discounts public Tax public Shipping public ShippingIsTaxed end class class WA_eCart_Rule public RuleName public IsActive public runFunction public function GetValue() GetValue = eval(runFunction & "()") end function end class 'Methods for eCart Object function WA_eCart_AddRule(theArr, ruleName, isActive, ruleFunc) set ShippingRule = new WA_eCart_Rule ShippingRule.RuleName = ruleName ShippingRule.IsActive = isActive ShippingRule.runFunction = ruleFunc theArr = WA_VB_Array_Push(theArr, ShippingRule) WA_eCart_AddRule = theArr end function function WA_eCart_BOF(cartObj) WA_eCart_BOF = (cartObj.DisplayIndex = 0) end function function WA_eCart_ClearCart(cartObj) cartObj.Items = Array() set cartObj = WA_eCart_SaveCart(cartObj) set WA_eCart_ClearCart = cartObj end function function WA_eCart_ResetAll(cartObj) for x = 1 to Ubound(cartObj.Items) set cartObj.Items(x) = eval(cartObj.CartName & "_ResetCalculations(cartObj.Items(x))") next set WA_eCart_ResetAll = cartObj end function function WA_eCart_DeleteFromCart(cartObj, itIndex, reIndex) if (itIndex >= 0) then if (UBound(cartObj.Items) >= itIndex) then set cartObj.Items(itIndex) = nothing end if if (reIndex) then set cartObj = WA_eCart_ReIndexContent(cartObj) set cartObj = WA_eCart_ResetAll(cartObj) set cartObj = WA_eCart_SaveCart(cartObj) end if end if set WA_eCart_DeleteFromCart = cartObj end function function WA_eCart_DisplayInfo(cartObj, ItemProperty) retVal = "" if (NOT WA_eCart_IsEmpty(cartObj) AND NOT WA_eCart_EOF(cartObj)) then retVal = (eval("cartObj.Items(cartObj.DisplayIndex)." & ItemProperty)) end if WA_eCart_DisplayInfo = retVal end function function WA_eCart_EOF(cartObj) retVal = false if (WA_eCart_IsEmpty(cartObj)) then retVal = true end if if (cartObj.DisplayIndex > UBound(cartObj.Items)) then eval(cartObj.CartName + ".DisplayIndex=UBound(cartObj.Items)") retVal = true end if WA_eCart_EOF = retVal end function function WA_eCart_RulesInformation(theCart, theSet) ruleArr = Array() ruleInd = 0 ruleNm = "" if (theSet = "Charges") then ruleArr = theCart.Charges ruleInd = cInt(theCart.ChargesDisplayIndex) ruleNm = "theCart.ChargesDisplayIndex" elseif (theSet = "Discounts") then ruleArr = theCart.Discounts ruleInd = cInt(theCart.DiscountsDisplayIndex) ruleNm = "theCart.DiscountsDisplayIndex" elseif (theSet = "Tax") then ruleArr = theCart.Tax ruleInd = cInt(theCart.TaxDisplayIndex) ruleNm = "theCart.TaxDisplayIndex" elseif (theSet = "Shipping") then ruleArr = theCart.Shipping ruleInd = cInt(theCart.ShippingDisplayIndex) ruleNm = "theCart.ShippingDisplayIndex" end if if (ruleNm = "") then WA_eCart_RulesInformation = ruleInfo exit function end if Redim ruleInfo(3) ruleInfo(0) = ruleArr ruleInfo(1) = ruleInd ruleInfo(2) = ruleNm WA_eCart_RulesInformation = ruleInfo end function function WA_eCart_Rules_EOF(theCart, theSet) ruleInfo = WA_eCart_RulesInformation(theCart, theSet) if (UBound(ruleInfo(0)) <= 0) then WA_eCart_Rules_EOF = true exit function end if if (ruleInfo(1) > Ubound(ruleInfo(0))) then if (theSet = "Charges") then theCart.ChargesDisplayIndex = UBound(ruleInfo(0)) elseif (theSet = "Discounts") then theCart.DiscountsDisplayIndex = UBound(ruleInfo(0)) elseif (theSet = "Tax") then theCart.TaxDisplayIndex = UBound(ruleInfo(0)) elseif (theSet = "Shipping") then theCart.ShippingDisplayIndex = UBound(ruleInfo(0)) end if WA_eCart_Rules_EOF = true exit function end if WA_eCart_Rules_EOF = false end function function WA_eCart_InCart(cartObj, itemID) retVal = false for n=1 To Ubound(cartObj.Items) if (NOT cartObj.Items(n) IS NOTHING) then if (cStr(cartObj.Items(n).ID) = cStr(itemID)) then retVal = true end if end if next WA_eCart_InCart = retVal end function function WA_eCart_IsEmpty(cartObj) retVal = true if (UBound(cartObj.Items) > 0) then retVal = false end if WA_eCart_IsEmpty = retVal end function function WA_eCart_Move(cartObj, modifier) if (NOT WA_eCart_IsEmpty(cartObj)) then MoveResult = cartObj.DisplayIndex + modifier if (MoveResult < 1 OR MoveResult > UBound(cartObj.Items)-1) then if (modifier > 0) then cartObj.DisplayIndex = MoveResult else set cartObj = WA_eCart_MoveFirst(cartObj) end if else cartObj.DisplayIndex = MoveResult end if end if set WA_eCart_Move = cartObj end function function WA_eCart_MoveFirst(cartObj) cartObj.DisplayIndex = 1 set WA_eCart_MoveFirst = cartObj end function function WA_eCart_MoveLast(cartObj) if (NOT WA_eCart_IsEmpty(cartObj)) then cartObj.DisplayIndex = UBound(cartObj.Items) end if set WA_eCart_MoveLast = cartObj end function function WA_eCart_MoveNext(cartObj) if (NOT WA_eCart_EOF(cartObj)) then set cartObj = WA_eCart_Move(cartObj, 1) end if set WA_eCart_MoveNext = cartObj end function function WA_eCart_MovePrevious(cartObj) if (cartObj.DisplayIndex <> 0) then set cartObj = WA_eCart_Move(cartObj, -1) end if set WA_eCart_MovePrevious = cartObj end function function WA_eCart_Rules_MoveNext(theCart, theSet) ruleInfo = WA_eCart_RulesInformation(theCart, theSet) if (UBound(ruleInfo(0)) <= 0) then WA_eCart_Rules_MoveNext = theCart exit function end if if (ruleInfo(1) <= Ubound(ruleInfo(0))) then Cart_MoveResult = cInt(ruleInfo(1))+1 if (theSet = "Charges") then theCart.ChargesDisplayIndex = Cart_MoveResult elseif (theSet = "Discounts") then theCart.DiscountsDisplayIndex = Cart_MoveResult elseif (theSet = "Tax") then theCart.TaxDisplayIndex = Cart_MoveResult elseif (theSet = "Shipping") then theCart.ShippingDisplayIndex = Cart_MoveResult end if end if set WA_eCart_Rules_MoveNext = theCart end function function WA_eCart_Rules_MoveFirst(theCart, theSet) if (theSet = "Charges") then theCart.ChargesDisplayIndex = 1 elseif (theSet = "Discounts") then theCart.DiscountsDisplayIndex = 1 elseif (theSet = "Tax") then theCart.TaxDisplayIndex = 1 elseif (theSet = "Shipping") then theCart.ShippingDisplayIndex = 1 end if set WA_eCart_Rules_MoveFirst = theCart end function function WA_eCart_ReIndexContent(cartObj) retArray = Array() for n=1 To UBound(cartObj.Items) if (IsObject(cartObj.Items(n)) AND (NOT cartObj.Items(n) is nothing)) then retArray = WA_VB_Array_Push(retArray, cartObj.Items(n)) end if next cartObj.Items = retArray set WA_eCart_ReIndexContent = cartObj end function function WA_eCart_SaveCart(theCart) if (theCart.Persistance = 0) then WA_eCart_Session_SaveCart(theCart) end if if (theCart.Persistance = 1) then WA_eCart_Cookie_SaveCart(theCart) end if set WA_eCart_SaveCart = theCart end function function WA_eCart_TotalColumn(cartObj, ColumnName) subTotal = "" delimDefault = ", " for n=1 To Ubound(cartObj.Items) theColumn = eval("cartObj.Items(n)." & ColumnName) if (isNumeric(theColumn)) then if (subTotal = "") then subTotal = 0 subTotal = subTotal + theColumn else if (subtotal <> "") then subTotal = subTotal & delimDefault subTotal = subTotal & theColumn end if next if (subTotal = "") then subTotal = 0 WA_eCart_TotalColumn = subTotal end function function WA_eCart_GetCharges(theCart) WA_eCart_GetCharges = WA_eCart_TotalRuleset(theCart, "Charges") end function function WA_eCart_GetDiscounts(theCart) WA_eCart_GetDiscounts = WA_eCart_TotalRuleset(theCart, "Discounts") end function function WA_eCart_GetTax(theCart) WA_eCart_GetTax = WA_eCart_TotalRuleset(theCart, "Tax") end function function WA_eCart_GetShipping(theCart) WA_eCart_GetShipping = WA_eCart_TotalRuleset(theCart, "Shipping") end function function WA_eCart_TotalRuleset(theCart, theSet) ruleTotal = 0 ruleInfo = WA_eCart_RulesInformation(theCart, theSet) for ruleCount = 1 to UBound(ruleInfo(0)) if (ruleInfo(0)(ruleCount).IsActive) then ruleTotal = ruleTotal + cDbl(ruleInfo(0)(ruleCount).GetValue()) end if next WA_eCart_TotalRuleset = ruleTotal end function function WA_eCart_GetRuleValueByName(theCart, theSet, theName) ruleInfo = WA_eCart_RulesInformation(theCart, theSet) if (UBound(ruleInfo(0)) <= 0) then WA_eCart_GetRuleValueByName = 0 exit function end if for ruleInd=1 To UBound(ruleInfo(0)) if (ruleInfo(0)(ruleInd).RuleName = theName) then WA_eCart_GetRuleValueByName = ruleInfo(0)(ruleInd).GetValue() exit function end if next WA_eCart_GetRuleValueByName = 0 end function function WA_eCart_RuleLooperName(theCart, theSet) ruleInfo = WA_eCart_RulesInformation(theCart, theSet) if (UBound(ruleInfo(0)) <= 0) then WA_eCart_RuleLooperName = "" exit function end if if (NOT WA_eCart_Rules_EOF(theCart, theSet)) then WA_eCart_RuleLooperName = ruleInfo(0)(ruleInfo(1)).RuleName exit function end if WA_eCart_RuleLooperName = "" end function function WA_eCart_RuleLooperValue(theCart, theSet) ruleInfo = WA_eCart_RulesInformation(theCart, theSet) if (UBound(ruleInfo(0)) <= 0) then WA_eCart_RuleLooperValue = 0 exit function end if if (NOT WA_eCart_Rules_EOF(theCart, theSet)) then WA_eCart_RuleLooperValue = ruleInfo(0)(ruleInfo(1)).GetValue() exit function end if WA_eCart_RuleLooperValue = 0 end function function WA_eCart_ConditionalTotal(cartObj, ColumnName, ConditionalColumn, ConditionalValue) subTotal = "" delimDefault = ", " for n=1 To Ubound(cartObj.Items) theCondition = eval("cartObj.Items(n)." & ConditionalColumn) if (cStr(theCondition) = cStr(ConditionalValue)) then theColumn = eval("cartObj.Items(n)." & ColumnName) if (isNumeric(theColumn)) then if (subTotal = "") then subTotal = 0 subTotal = subTotal + theColumn else if (subtotal <> "") then subTotal = subTotal & delimDefault subTotal = subTotal & theColumn end if end if next if (subTotal = "") then subTotal = 0 WA_eCart_ConditionalTotal = subTotal end function function WA_eCart_GetTaxableTotal(theCart) taxTotal = cDbl(WA_eCart_TotalColumn(theCart, "TotalPrice")) taxTotal = taxTotal - cDbl(WA_eCart_GetDiscounts(theCart)) taxTotal = taxTotal + cDbl(WA_eCart_GetCharges(theCart)) if (theCart.ShippingIsTaxed) then taxTotal = taxTotal + cDbl(WA_eCart_GetShipping(theCart)) end if WA_eCart_GetTaxableTotal = taxTotal end function function WA_eCart_GetTaxedSubtotal(theCart) taxTotal = cDbl(WA_eCart_GetTaxableTotal(theCart)) taxTotal = taxTotal + cDbl(WA_eCart_GetTax(theCart)) WA_eCart_GetTaxedSubtotal = taxTotal end function function WA_eCart_GrandTotal(theCart) grandTotal = cDbl(WA_eCart_GetTaxedSubtotal(theCart)) if (NOT theCart.ShippingIsTaxed) then grandTotal = grandTotal + cDbl(WA_eCart_GetShipping(theCart)) end if WA_eCart_GrandTotal = WA_eCart_FormatNumber(grandTotal, theCart.ForceDecimalsC, theCart.DecimalPlacesC) end function function WA_eCart_UpdateCart(cartObj) for n=1 To UBound(cartObj.Items) itemDelete = cStr(Request(cartObj.CartName & "_Delete_" & n)) itemQuantity = Request(cartObj.CartName & "_Quantity_" & n) if (IsNumeric(itemQuantity) AND itemQuantity <> "") then if (itemQuantity < 0) then itemQuantity = 0 end if if (itemQuantity = 0) then set cartObj = WA_eCart_DeleteFromCart(cartObj, n, false) else if (cartObj.Items(n).Quantity <> itemQuantity) then cartObj.Items(n).Quantity = itemQuantity set cartObj.Items(n) = eval(cartObj.CartName & "_ResetCalculations(cartObj.Items(n))") end if end if end if if (cStr(itemDelete) <> "") then set cartObj = WA_eCart_DeleteFromCart(cartObj, n, false) end if next set cartObj = WA_eCart_ReIndexContent(cartObj) if (NOT IsArray(cartObj.Items)) then cartObj.Items = Array() end if set cartObj = WA_eCart_ResetAll(cartObj) set cartObj = WA_eCart_SaveCart(cartObj) set WA_eCart_UpdateCart = cartObj end function %> <% function WA_eCart_GenerateItemString(cartObj) theResultString = "" tempstr = "" if (IsArray(cartObj.Items)) then startInde = 0 if (UBound(cartObj.Items) > 0) then startInde = 1 end if for n=startInde To UBound(cartObj.Items) if (IsObject(cartObj.Items(n)) AND (NOT cartObj.Items(n) is nothing)) then if (theResultString<>"") then theResultString = theResultString & "|WAITEM|" end if theNewVal = eval(cartObj.CartName & "_SetItems(cartObj, n)") theResultString = theResultString & theNewVal end if next end if WA_eCart_GenerateItemString = theResultString end function function WA_eCart_BreakUpItemString(cartObj, itemString) retArray = Array() if (itemString <> "") then itemArray = Split(cStr(itemString), "|WAITEM|") for n=0 To UBound(itemArray) if (itemArray(n) <> "") then set newItem = eval(cartObj.CartName & "_GetItems(itemArray(n))") retArray = WA_VB_Array_Push(retArray, newItem) end if next end if WA_eCart_BreakUpItemString = retArray end function %> <% function WA_eCart_Session_SaveCart(cartObj) Session(cartObj.CartName + "_Items") = WA_eCart_GenerateItemString(cartObj) end function function WA_eCart_Session_GetContent(cartObj, CartName) retArray = Array() if (Session(CartName & "_Items") <> "") then retArray = WA_eCart_BreakUpItemString(cartObj, Session(CartName & "_Items")) end if WA_eCart_Session_GetContent = retArray end function %> <% function WA_eCart_Cookie_SaveCart(cartObj) theCookieString = "" tempstr = "" if (IsArray(cartObj.Items)) then theCookieString = WA_eCart_GenerateItemString(cartObj) eval(cartObj.CartName & "_SetCookieInfo(theCookieString)") end if end function function WA_eCart_Cookie_GetContent(cartObj, CartName) retArray = Array() n=0 theCookie = Request.Cookies(CartName & "_Items") if (theCookie <> "") then retArray = WA_eCart_BreakUpItemString(cartObj, theCookie) end if WA_eCart_Cookie_GetContent = retArray end function %> <% function WA_GetCookieDate(dateVar) theMonth = MonthName(Month(dateVar)) theDay = cStr(DatePart("d", dateVar)) theYear = cStr(DatePart("yyyy", dateVar)) WA_GetCookieDate = (theMonth & " " & theDay + ", " & theYear) end function %> <% function WA_eCart_WeightConversion(theWeight, startUnits, endUnits) if (endUnits = "") then endUnits = "lbs" end if if (startUnits = "") then startUnits = "lbs" end if lbsWeight = theWeight lcStartUnits = LCase(startUnits) if (lcStartUnits = "cg" OR lcStartUnits = "centigram" OR lcStartUnits = "centigrams") then lbsWeight = lbsWeight * 0.0000220462262 elseif (lcStartUnits = "dcg" OR lcStartUnits = "decigram" OR lcStartUnits = "decigrams") then lbsWeight = lbsWeight * 0.0002204622622 elseif (lcStartUnits = "dg" OR lcStartUnits = "decagram" OR lcStartUnits = "decagrams" OR lcStartUnits = "dekagram" OR lcStartUnits = "dekagrams") then lbsWeight = lbsWeight * 0.02204622622 elseif (lcStartUnits = "dram" OR lcStartUnits = "drams") then lbsWeight = lbsWeight * 0.00390625 elseif (lcStartUnits = "grain" OR lcStartUnits = "grains") then lbsWeight = lbsWeight * 0.000142857 elseif (lcStartUnits = "g" OR lcStartUnits = "gs" OR lcStartUnits = "gram" OR lcStartUnits = "grams") then lbsWeight = lbsWeight * 0.002204622622 elseif (lcStartUnits = "hg" OR lcStartUnits = "hectogram" OR lcStartUnits = "hectograms") then lbsWeight = lbsWeight * 0.2204622622 elseif (lcStartUnits = "hundredweight long") then lbsWeight = lbsWeight * 112 elseif (lcStartUnits = "hundredweight" OR lcStartUnits = "hundredweight short") then lbsWeight = lbsWeight * 100 elseif (lcStartUnits = "kg" OR lcStartUnits = "kgs" OR lcStartUnits = "kilogram" OR lcStartUnits = "kilograms") then lbsWeight = lbsWeight * 2.204622622 ' elseif (lcStartUnits = "lb" OR lcStartUnits = "lbs") then elseif (lcStartUnits = "long ton") then lbsWeight = lbsWeight * 2240 elseif (lcStartUnits = "mg") then if (startUnits = "mg") then lbsWeight = lbsWeight * 0.000002204622622 else lbsWeight = lbsWeight * 2204.622621849 end if elseif (lcStartUnits = "megagram" OR lcStartUnits = "metric ton" OR lcStartUnits = "tonne" OR lcStartUnits = "tn") then lbsWeight = lbsWeight * 2204.622621849 elseif (lcStartUnits = "microgram") then lbsWeight = lbsWeight * 0.000000002204622622 elseif (lcStartUnits = "milligram") then lbsWeight = lbsWeight * 0.000002204622622 elseif (lcStartUnits = "oz" OR lcStartUnits = "ounce" OR lcStartUnits = "ounces") then lbsWeight = lbsWeight * 0.0625 ' elseif (lcStartUnits = "pound" OR lcStartUnits = "pounds") then elseif (lcStartUnits = "t" OR lcStartUnits = "ton" OR lcStartUnits = "short ton") then lbsWeight = lbsWeight * 2000 end if WA_eCart_WeightConversion = WA_eCart_GetWeightFromPounds(lbsWeight, endUnits) end function function WA_eCart_GetWeightFromPounds(lbsWeight, endUnits) if (endUnits = "") then endUnits = "lbs" end if lcEndUnits = LCase(endUnits) if (lcEndUnits = "cg" OR lcEndUnits = "centigram" OR lcEndUnits = "centigrams") then lbsWeight = lbsWeight * 45359.237 elseif (lcEndUnits = "dcg" OR lcEndUnits = "decigram" OR lcEndUnits = "decigrams") then lbsWeight = lbsWeight * 4535.9237 elseif (lcEndUnits = "dg" OR lcEndUnits = "decagram" OR lcEndUnits = "decagrams" OR lcEndUnits = "dekagram" OR lcEndUnits = "dekagrams") then lbsWeight = lbsWeight * 45.359237 elseif (lcEndUnits = "dram" OR lcEndUnits = "drams") then lbsWeight = lbsWeight * 256 elseif (lcEndUnits = "grain" OR lcEndUnits = "grains") then lbsWeight = lbsWeight * 7000 elseif (lcEndUnits = "g" OR lcEndUnits = "gs" OR lcEndUnits = "gram" OR lcEndUnits = "grams") then lbsWeight = lbsWeight * 453.59237 elseif (lcEndUnits = "hg" OR lcEndUnits = "hectogram" OR lcEndUnits = "hectograms") then lbsWeight = lbsWeight * 4.5359237 elseif (lcEndUnits = "hundredweight long") then lbsWeight = lbsWeight * 0.008928571 elseif (lcEndUnits = "hundredweight" OR lcEndUnits = "hundredweight short") then lbsWeight = lbsWeight * 0.01 elseif (lcEndUnits = "kg" OR lcEndUnits = "kgs" OR lcEndUnits = "kilogram" OR lcEndUnits = "kilograms") then lbsWeight = lbsWeight * 0.45359237 ' elseif (lcEndUnits = "lb" OR lcEndUnits = "lbs") then elseif (lcEndUnits = "long ton") then lbsWeight = lbsWeight * 0.000446429 elseif (lcEndUnits = "mg") then if (endUnits = "mg") then lbsWeight = lbsWeight * 453592.37 else lbsWeight = lbsWeight * 0.00045359237 end if elseif (lcEndUnits = "megagram" OR lcEndUnits = "metric ton" OR lcEndUnits = "tonne" OR lcEndUnits = "tn") then lbsWeight = lbsWeight * 0.00045359237 elseif (lcEndUnits = "microgram") then lbsWeight = lbsWeight * 453592370 elseif (lcEndUnits = "milligram") then lbsWeight = lbsWeight * 453592.37 elseif (lcEndUnits = "oz" OR lcEndUnits = "ounce" OR lcEndUnits = "ounces") then lbsWeight = lbsWeight * 16 ' elseif (lcEndUnits = "pound" OR lcEndUnits = "pounds") then elseif (lcEndUnits = "t" OR lcEndUnits = "ton" OR lcEndUnits = "short ton") then lbsWeight = lbsWeight * 0.0005 end if WA_eCart_GetWeightFromPounds = lbsWeight end function function WA_eCart_GetGroupDecimalChars(GDC_numDisplay) GDC_theDec = Mid(cStr(99/10),2,1) GDC_theDecimal = "" GDC_theComma = "" if (GDC_numDisplay = 0 OR GDC_numDisplay = 2) then GDC_theDecimal = "." if (GDC_numDisplay = 0) then GDC_theComma = "," end if else GDC_theDecimal = "," if (GDC_numDisplay = 1) then GDC_theComma = "." end if end if ReDim GDC_retArr(3) GDC_retArr(0) = GDC_theDec GDC_retArr(1) = GDC_theComma GDC_retArr(2) = GDC_theDecimal WA_eCart_GetGroupDecimalChars = GDC_retArr end function function WA_eCart_DisplayMoney(theCart, theAmount) DM_decInfo = WA_eCart_GetGroupDecimalChars(theCart.NumberDisplay) WA_eCart_DisplayMoney = WA_eCart_MaskWeightMoney(theAmount, theCart.CurrencyPrefix, theCart.CurrencyAlign, DM_decInfo(1), DM_decInfo(2), theCart.ForceDecimalsC, theCart.DecimalPlacesC) end function function WA_eCart_DisplayWeight(theCart, theWeight) DW_decInfo = WA_eCart_GetGroupDecimalChars(theCart.NumberDisplay) WA_eCart_DisplayWeight = WA_eCart_MaskWeightMoney(theWeight, theCart.WeightSuffix, theCart.WeightAlign, DW_decInfo(1), DW_decInfo(2), theCart.ForceDecimalsW, theCart.DecimalPlacesW) end function function WA_eCart_DisplayNumber(theCart, theNumber) DN_decInfo = WA_eCart_GetGroupDecimalChars(theCart.NumberDisplay) WA_eCart_DisplayNumber = WA_eCart_MaskNumber(theNumber, DN_decInfo(1), DN_decInfo(2), false, 0) end function function WA_eCart_MaskOutput(MO_tValue, MO_tMaskType, MO_tMaskArguments) MO_tMaskArguments = Split(MO_tMaskArguments, "§") MO_lcMaskType = LCase(MO_tMaskType) if (MO_lcMaskType = "number") then MO_groupChar = "," MO_decimalChar = "." MO_forceDec = false MO_numDec = 0 if (UBound(MO_tMaskArguments) >= 1) then MO_groupChar = MO_tMaskArguments(0) end if if (ArrayLen(MO_tMaskArguments) >= 2) then MO_decimalChar = MO_tMaskArguments(1) end if if (ArrayLen(MO_tMaskArguments) >= 3) then MO_forceDec = Evaluate(MO_tMaskArguments(2)) end if if (ArrayLen(MO_tMaskArguments) >= 4) then MO_numDec = MO_tMaskArguments(3) end if MO_tValue = WA_eCart_MaskNumber(MO_tValue, MO_groupChar, MO_decimalChar, MO_forceDec, MO_numDec) elseif (MO_lcMaskType = "currency" OR MO_lcMaskType = "weight") then MO_symbolStr = "" MO_leftOrRight = 0 MO_groupChar = "," MO_decimalChar = "." MO_forceDec = false MO_numDec = 0 if (ArrayLen(MO_tMaskArguments) >= 1) then MO_symbolStr = MO_tMaskArguments(0) end if if (ArrayLen(MO_tMaskArguments) >= 2) then MO_leftOrRight = MO_tMaskArguments(1) end if if (ArrayLen(MO_tMaskArguments) >= 3) then MO_groupChar = MO_tMaskArguments(2) end if if (ArrayLen(MO_tMaskArguments) >= 4) then MO_decimalChar = MO_tMaskArguments(3) end if if (ArrayLen(MO_tMaskArguments) >= 5) then MO_forceDec = Evaluate(MO_tMaskArguments(4)) end if if (ArrayLen(MO_tMaskArguments) >= 6) then MO_numDec = MO_tMaskArguments(5) end if MO_tValue = WA_eCart_MaskWeightMoney(MO_tValue, MO_symbolStr, MO_leftOrRight, MO_groupChar, MO_decimalChar, MO_forceDec, MO_numDec) elseif (MO_lcMaskType = "datestr" OR MO_lcMaskType = "date") then if (MO_lcMaskType = "datestr") then MO_tValue = cDate(MO_tValue) end if MO_dateFormat = "" MO_timeFormat = "" if (ArrayLen(MO_tMaskArguments) >= 1) then MO_dateFormat = MO_tMaskArguments(0) end if if (ArrayLen(MO_tMaskArguments) >= 2) then MO_timeFormat = MO_tMaskArguments(1) end if MO_tValue = WA_eCart_MaskDate(MO_tValue, MO_dateFormat, MO_timeFormat) end if WA_eCart_MaskOutput = MO_tValue end function function WA_eCart_MaskNumber(MN_theNumStr, MN_groupChar, MN_decimalChar, MN_forceDec, MN_numDec) if (MN_forceDec) then MN_theNumber = WA_eCart_FormatNumber(MN_theNumStr, MN_forceDec, MN_numDec) else MN_theNumber = cStr(MN_theNumStr) end if MN_preDecimal = "" MN_postDecimal = "" MN_theDec = Mid(cStr(99/10), 2, 1) if (InStr(MN_theNumber, MN_theDec)) then MN_Number_DotInd = InStr(MN_theNumber, MN_theDec)-1 if (MN_Number_DotInd <= 0) then MN_preDecimal = MN_theNumber else MN_preDecimal = Left(MN_theNumber, MN_Number_DotInd) end if MN_postDecimal = Right(MN_theNumber, Len(MN_theNumber) - MN_Number_DotInd) else MN_preDecimal = MN_theNumber end if MN_postDecimal = Replace(MN_postDecimal, MN_theDec, MN_decimalChar) if (MN_groupChar <> "") then MN_newPreDec = "" while (Len(MN_preDecimal) > 3) MN_newPreDec = MN_groupChar & Right(MN_preDecimal, 3) & MN_newPreDec MN_preDecimal = Left(MN_preDecimal, Len(MN_preDecimal)-3) wend MN_preDecimal = MN_preDecimal & MN_newPreDec end if WA_eCart_MaskNumber = MN_preDecimal & MN_postDecimal end function function WA_eCart_MaskWeightMoney(MWM_theNumStr, MWM_symbolStr, MWM_leftOrRight, MWM_groupChar, MWM_decimalChar, MWM_forceDec, MWM_numDec) MWM_theNumber = cStr(MWM_theNumStr) MWM_theNumber = WA_eCart_MaskNumber(MWM_theNumber, MWM_groupChar, MWM_decimalChar, MWM_forceDec, MWM_numDec) if (MWM_leftOrRight = 0) then MWM_theNumber = cStr(MWM_symbolStr) & MWM_theNumber else MWM_theNumber = MWM_theNumber & cStr(MWM_symbolStr) end if WA_eCart_MaskWeightMoney = MWM_theNumber end function function WA_eCart_MaskDate(dateVar, dateFormat, timeFormat) ' if (NOT IsObject(dateVar)) then dateVar = cDate(dateVar) ' end if newDate = dateFormat if (dateFormat <> "" AND timeFormat <> "") then newDate = newDate & " " end if newDate = newDate & timeFormat retStr = "" if (dateFormat <> "") then fullYear = Year(dateVar) ampm = "A" ampmReplace = "p" tmonth = Month(dateVar) tmonthName = MonthName(tmonth) monthNameReplace = "Month" monthReplace = "m" tday = Day(dateVar) dayReplace = "d" tyear = Year(dateVar) if (Len(cStr(tyear)) > 2) then tyear = Right(tyear, 2) end if yearReplace = "yy" if (InStr(dateFormat, "yyyy") > 0) then tyear = fullYear yearReplace = "yyyy" end if if (InStr(dateFormat, "mm") > 0) then if (Len(cStr(tmonth)) = 1) then tmonth = "0" & tmonth end if monthReplace = "mm" end if if (InStr(dateFormat, "dd") > 0) then if (Len(cStr(tday)) = 1) then tday = "0" & tday end if dayReplace = "dd" end if retStr = retStr & Replace(Replace(Replace(Replace(dateFormat, yearReplace, tyear), monthReplace, tmonth), dayReplace, tday), monthNameReplace, tmonthName) if (timeFormat <> "") then retStr = retStr & " " end if end if if (timeFormat <> "") then thour = Hour(dateVar) hourReplace = "h" tminute = Minute(dateVar) if (Len(cStr(tminute)) = 1) then tminute = "0" & cStr(tminute) end if minuteReplace = "nn" tsecond = Second(dateVar) if (Len(cStr(tsecond)) = 1) then tsecond = "0" & cStr(tsecond) end if secondReplace = "ss" if (InStr(timeFormat, "p") > 0) then if (thour >= 12) then ampm = "P" if (thour > 12) then thour = thour - 12 end if if (InStr(timeFormat, "pm") > 0) then ampm = ampm & "M" ampmReplace = "pm" end if end if end if if (InStr(timeFormat, "hh") > 0) then if (Len(cStr(thour)) = 1) then thour = "0" + thour end if hourReplace = "hh" end if retStr = retStr & Replace(Replace(Replace(Replace(timeFormat, hourReplace, thour), minuteReplace, tminute), secondReplace, tsecond), ampmReplace, ampm) end if WA_eCart_MaskDate = retStr end function function WA_eCart_FormatNumber(theNumStr, forceDec, numDec) dim theDec theDec = "." if (Mid(cStr(99/10),2,1)<>".") then theDec = "," end if if (theNumStr="") then theNumStr = 0 end if if (forceDec OR InStr(theNumStr, theDec) > 0) then if (numDec = 0) then if (InStr(theNumStr, theDec) > 0) then theNumStr = cStr(WA_RoundToDecimals(theNumStr, numDec)) if (InStr(theNumStr, theDec) > 0) then theNumStr = Left(theNumStr, InStr(theNumStr, theDec)-1) end if end if else if (InStr(theNumStr, theDec) > 0) then numDecimals = (Len(theNumStr) - InStr(theNumStr, theDec)) else numDecimals = 0 theNumStr = theNumStr & theDec end if if (numDecimals >= numDec) then theNumStr = WA_RoundToDecimals(theNumStr, numDec) if (InStr(theNumStr, theDec) > 0) then numDecimals = (Len(theNumStr) - InStr(theNumStr, theDec)) else numDecimals = 0 if (forceDec) then theNumStr = theNumStr & theDec else numDec = 0 end if end if end if if (forceDec) then for n=numDecimals To numDec-1 theNumStr = theNumStr & "0" next end if end if end if WA_eCart_FormatNumber = cStr(theNumStr) end function function WA_RoundToDecimals(theNum, theDecimals) WA_RoundToDecimals = Round(theNum, theDecimals) end function %> <% function WA_GetCountryName(countryCode) if (Len(countryCode) <> 2) then WA_GetCountryName = countryCode exit function elseif (UCase(countryCode) = "US") then WA_GetCountryName = "United States" exit function elseif (UCase(countryCode) = "GB") then WA_GetCountryName = "Great Britain" exit function elseif (UCase(countryCode) = "AF") then WA_GetCountryName = "Afghanistan" exit function elseif (UCase(countryCode) = "AX") then WA_GetCountryName = "Aland Islands" exit function elseif (UCase(countryCode) = "AL") then WA_GetCountryName = "Albania" exit function elseif (UCase(countryCode) = "DZ") then WA_GetCountryName = "Algeria" exit function elseif (UCase(countryCode) = "AS") then WA_GetCountryName = "American Samoa" exit function elseif (UCase(countryCode) = "AD") then WA_GetCountryName = "Andorra" exit function elseif (UCase(countryCode) = "AO") then WA_GetCountryName = "Angola" exit function elseif (UCase(countryCode) = "AI") then WA_GetCountryName = "Anguilla" exit function elseif (UCase(countryCode) = "AQ") then WA_GetCountryName = "Antarctica" exit function elseif (UCase(countryCode) = "AG") then WA_GetCountryName = "Antigua & Barbuda" exit function elseif (UCase(countryCode) = "AR") then WA_GetCountryName = "Argentina" exit function elseif (UCase(countryCode) = "AM") then WA_GetCountryName = "Armenia" exit function elseif (UCase(countryCode) = "AW") then WA_GetCountryName = "Aruba" exit function elseif (UCase(countryCode) = "AU") then WA_GetCountryName = "Australia" exit function elseif (UCase(countryCode) = "AT") then WA_GetCountryName = "Austria" exit function elseif (UCase(countryCode) = "AZ") then WA_GetCountryName = "Azerbaijan" exit function elseif (UCase(countryCode) = "BS") then WA_GetCountryName = "Bahamas" exit function elseif (UCase(countryCode) = "BH") then WA_GetCountryName = "Bahrain" exit function elseif (UCase(countryCode) = "BD") then WA_GetCountryName = "Bangladesh" exit function elseif (UCase(countryCode) = "BB") then WA_GetCountryName = "Barbados" exit function elseif (UCase(countryCode) = "BY") then WA_GetCountryName = "Belarus" exit function elseif (UCase(countryCode) = "BE") then WA_GetCountryName = "Belgium" exit function elseif (UCase(countryCode) = "BZ") then WA_GetCountryName = "Belize" exit function elseif (UCase(countryCode) = "BJ") then WA_GetCountryName = "Benin" exit function elseif (UCase(countryCode) = "BM") then WA_GetCountryName = "Bermuda" exit function elseif (UCase(countryCode) = "BT") then WA_GetCountryName = "Bhutan" exit function elseif (UCase(countryCode) = "BO") then WA_GetCountryName = "Bolivia" exit function elseif (UCase(countryCode) = "BA") then WA_GetCountryName = "Bosnia & Herzegovina" exit function elseif (UCase(countryCode) = "BW") then WA_GetCountryName = "Botswana" exit function elseif (UCase(countryCode) = "BV") then WA_GetCountryName = "Bouvet Island" exit function elseif (UCase(countryCode) = "BR") then WA_GetCountryName = "Brazil" exit function elseif (UCase(countryCode) = "IO") then WA_GetCountryName = "British Indian Ocean Territory" exit function elseif (UCase(countryCode) = "BN") then WA_GetCountryName = "Brunei Darussalam" exit function elseif (UCase(countryCode) = "BG") then WA_GetCountryName = "Bulgaria" exit function elseif (UCase(countryCode) = "BF") then WA_GetCountryName = "Burkina Faso" exit function elseif (UCase(countryCode) = "BI") then WA_GetCountryName = "Burundi" exit function elseif (UCase(countryCode) = "KH") then WA_GetCountryName = "Cambodia" exit function elseif (UCase(countryCode) = "CM") then WA_GetCountryName = "Cameroon" exit function elseif (UCase(countryCode) = "CA") then WA_GetCountryName = "Canada" exit function elseif (UCase(countryCode) = "CV") then WA_GetCountryName = "Cape Verde" exit function elseif (UCase(countryCode) = "KY") then WA_GetCountryName = "Cayman Islands" exit function elseif (UCase(countryCode) = "CF") then WA_GetCountryName = "Central African Rep." exit function elseif (UCase(countryCode) = "TD") then WA_GetCountryName = "Chad" exit function elseif (UCase(countryCode) = "CL") then WA_GetCountryName = "Chile" exit function elseif (UCase(countryCode) = "CN") then WA_GetCountryName = "China" exit function elseif (UCase(countryCode) = "CX") then WA_GetCountryName = "Christmas Islands" exit function elseif (UCase(countryCode) = "CC") then WA_GetCountryName = "Cocos (Keeling) Islands" exit function elseif (UCase(countryCode) = "CO") then WA_GetCountryName = "Colombia" exit function elseif (UCase(countryCode) = "KM") then WA_GetCountryName = "Comoros (Fed. Islamic Rep.)" exit function elseif (UCase(countryCode) = "CG") then WA_GetCountryName = "Congo (People’s Rep.)" exit function elseif (UCase(countryCode) = "CK") then WA_GetCountryName = "Cook Islands" exit function elseif (UCase(countryCode) = "CR") then WA_GetCountryName = "Costa Rica" exit function elseif (UCase(countryCode) = "CI") then WA_GetCountryName = "Côte d'Ivoire" exit function elseif (UCase(countryCode) = "HR") then WA_GetCountryName = "Croatia" exit function elseif (UCase(countryCode) = "CU") then WA_GetCountryName = "Cuba" exit function elseif (UCase(countryCode) = "CY") then WA_GetCountryName = "Cyprus" exit function elseif (UCase(countryCode) = "CZ") then WA_GetCountryName = "Czech Republic" exit function elseif (UCase(countryCode) = "CD") then WA_GetCountryName = "Congo (Dem. Rep.)" exit function elseif (UCase(countryCode) = "DK") then WA_GetCountryName = "Denmark" exit function elseif (UCase(countryCode) = "DJ") then WA_GetCountryName = "Djibouti" exit function elseif (UCase(countryCode) = "DM") then WA_GetCountryName = "Dominica" exit function elseif (UCase(countryCode) = "DO") then WA_GetCountryName = "Dominican Republic" exit function elseif (UCase(countryCode) = "EC") then WA_GetCountryName = "Ecuador" exit function elseif (UCase(countryCode) = "EG") then WA_GetCountryName = "Egypt" exit function elseif (UCase(countryCode) = "SV") then WA_GetCountryName = "El Salvador" exit function elseif (UCase(countryCode) = "GQ") then WA_GetCountryName = "Equatorial Guinea" exit function elseif (UCase(countryCode) = "ER") then WA_GetCountryName = "Eritrea" exit function elseif (UCase(countryCode) = "EE") then WA_GetCountryName = "Estonia" exit function elseif (UCase(countryCode) = "ET") then WA_GetCountryName = "Ethiopia" exit function elseif (UCase(countryCode) = "FK") then WA_GetCountryName = "Falkland Islands" exit function elseif (UCase(countryCode) = "FO") then WA_GetCountryName = "Faeroe Islands" exit function elseif (UCase(countryCode) = "FJ") then WA_GetCountryName = "Fiji" exit function elseif (UCase(countryCode) = "FI") then WA_GetCountryName = "Finland" exit function elseif (UCase(countryCode) = "FR") then WA_GetCountryName = "France" exit function elseif (UCase(countryCode) = "GF") then WA_GetCountryName = "French Guiana" exit function elseif (UCase(countryCode) = "PF") then WA_GetCountryName = "French Polynesia" exit function elseif (UCase(countryCode) = "TF") then WA_GetCountryName = "French Southern Territories" exit function elseif (UCase(countryCode) = "GA") then WA_GetCountryName = "Gabon" exit function elseif (UCase(countryCode) = "GM") then WA_GetCountryName = "Gambia" exit function elseif (UCase(countryCode) = "GE") then WA_GetCountryName = "Georgia" exit function elseif (UCase(countryCode) = "DE") then WA_GetCountryName = "Germany" exit function elseif (UCase(countryCode) = "GH") then WA_GetCountryName = "Ghana" exit function elseif (UCase(countryCode) = "GI") then WA_GetCountryName = "Gibraltar" exit function elseif (UCase(countryCode) = "GR") then WA_GetCountryName = "Greece" exit function elseif (UCase(countryCode) = "GL") then WA_GetCountryName = "Greenland" exit function elseif (UCase(countryCode) = "GD") then WA_GetCountryName = "Grenada" exit function elseif (UCase(countryCode) = "GP") then WA_GetCountryName = "Guadeloupe" exit function elseif (UCase(countryCode) = "GU") then WA_GetCountryName = "Guam" exit function elseif (UCase(countryCode) = "GT") then WA_GetCountryName = "Guatemala" exit function elseif (UCase(countryCode) = "GG") then WA_GetCountryName = "Guernsey" exit function elseif (UCase(countryCode) = "GN") then WA_GetCountryName = "Guinea" exit function elseif (UCase(countryCode) = "GW") then WA_GetCountryName = "Guinea-Bissau" exit function elseif (UCase(countryCode) = "GY") then WA_GetCountryName = "Guyana" exit function elseif (UCase(countryCode) = "HT") then WA_GetCountryName = "Haiti" exit function elseif (UCase(countryCode) = "HM") then WA_GetCountryName = "Heard Island & McDonald Islands" exit function elseif (UCase(countryCode) = "VA") then WA_GetCountryName = "Holy See (Vatican City State)" exit function elseif (UCase(countryCode) = "HN") then WA_GetCountryName = "Honduras" exit function elseif (UCase(countryCode) = "HK") then WA_GetCountryName = "Hong Kong" exit function elseif (UCase(countryCode) = "HU") then WA_GetCountryName = "Hungary" exit function elseif (UCase(countryCode) = "IS") then WA_GetCountryName = "Iceland" exit function elseif (UCase(countryCode) = "IN") then WA_GetCountryName = "India" exit function elseif (UCase(countryCode) = "ID") then WA_GetCountryName = "Indonesia" exit function elseif (UCase(countryCode) = "IR") then WA_GetCountryName = "Iran" exit function elseif (UCase(countryCode) = "IQ") then WA_GetCountryName = "Iraq" exit function elseif (UCase(countryCode) = "IE") then WA_GetCountryName = "Ireland (Republic)" exit function elseif (UCase(countryCode) = "IM") then WA_GetCountryName = "Isle of Man" exit function elseif (UCase(countryCode) = "IL") then WA_GetCountryName = "Israel" exit function elseif (UCase(countryCode) = "IT") then WA_GetCountryName = "Italy" exit function elseif (UCase(countryCode) = "JM") then WA_GetCountryName = "Jamaica" exit function elseif (UCase(countryCode) = "JP") then WA_GetCountryName = "Japan" exit function elseif (UCase(countryCode) = "JE") then WA_GetCountryName = "Jersey" exit function elseif (UCase(countryCode) = "JO") then WA_GetCountryName = "Jordan" exit function elseif (UCase(countryCode) = "KZ") then WA_GetCountryName = "Kazakhstan" exit function elseif (UCase(countryCode) = "KE") then WA_GetCountryName = "Kenya" exit function elseif (UCase(countryCode) = "KI") then WA_GetCountryName = "Kiribati" exit function elseif (UCase(countryCode) = "KP") then WA_GetCountryName = "Korea North" exit function elseif (UCase(countryCode) = "KR") then WA_GetCountryName = "Korea South" exit function elseif (UCase(countryCode) = "KW") then WA_GetCountryName = "Kuwait" exit function elseif (UCase(countryCode) = "KG") then WA_GetCountryName = "Kyrgyzstan" exit function elseif (UCase(countryCode) = "LA") then WA_GetCountryName = "Lao" exit function elseif (UCase(countryCode) = "LV") then WA_GetCountryName = "Latvia" exit function elseif (UCase(countryCode) = "LB") then WA_GetCountryName = "Lebanon" exit function elseif (UCase(countryCode) = "LS") then WA_GetCountryName = "Lesotho" exit function elseif (UCase(countryCode) = "LR") then WA_GetCountryName = "Liberia" exit function elseif (UCase(countryCode) = "LY") then WA_GetCountryName = "Libyan Jamahiriya" exit function elseif (UCase(countryCode) = "LI") then WA_GetCountryName = "Liechtenstein" exit function elseif (UCase(countryCode) = "LT") then WA_GetCountryName = "Lithuania" exit function elseif (UCase(countryCode) = "LU") then WA_GetCountryName = "Luxembourg" exit function elseif (UCase(countryCode) = "MO") then WA_GetCountryName = "Macao" exit function elseif (UCase(countryCode) = "MK") then WA_GetCountryName = "Macedonia" exit function elseif (UCase(countryCode) = "MG") then WA_GetCountryName = "Madagascar" exit function elseif (UCase(countryCode) = "MW") then WA_GetCountryName = "Malawi" exit function elseif (UCase(countryCode) = "MY") then WA_GetCountryName = "Malaysia" exit function elseif (UCase(countryCode) = "MV") then WA_GetCountryName = "Maldives" exit function elseif (UCase(countryCode) = "ML") then WA_GetCountryName = "Mali" exit function elseif (UCase(countryCode) = "MT") then WA_GetCountryName = "Malta" exit function elseif (UCase(countryCode) = "MH") then WA_GetCountryName = "Marshall Islands" exit function elseif (UCase(countryCode) = "MQ") then WA_GetCountryName = "Martinique" exit function elseif (UCase(countryCode) = "MR") then WA_GetCountryName = "Mauritania" exit function elseif (UCase(countryCode) = "MU") then WA_GetCountryName = "Mauritius" exit function elseif (UCase(countryCode) = "MX") then WA_GetCountryName = "Mexico" exit function elseif (UCase(countryCode) = "FM") then WA_GetCountryName = "Micronesia" exit function elseif (UCase(countryCode) = "MD") then WA_GetCountryName = "Moldova" exit function elseif (UCase(countryCode) = "MC") then WA_GetCountryName = "Monaco" exit function elseif (UCase(countryCode) = "MN") then WA_GetCountryName = "Mongolia" exit function elseif (UCase(countryCode) = "MS") then WA_GetCountryName = "Montserrat" exit function elseif (UCase(countryCode) = "MA") then WA_GetCountryName = "Morocco" exit function elseif (UCase(countryCode) = "MZ") then WA_GetCountryName = "Mozambique" exit function elseif (UCase(countryCode) = "MM") then WA_GetCountryName = "Myanmar" exit function elseif (UCase(countryCode) = "NA") then WA_GetCountryName = "Namibia" exit function elseif (UCase(countryCode) = "NR") then WA_GetCountryName = "Nauru" exit function elseif (UCase(countryCode) = "NP") then WA_GetCountryName = "Nepal" exit function elseif (UCase(countryCode) = "NL") then WA_GetCountryName = "Netherlands" exit function elseif (UCase(countryCode) = "AN") then WA_GetCountryName = "Netherlands Antilles" exit function elseif (UCase(countryCode) = "NC") then WA_GetCountryName = "New Caledonia" exit function elseif (UCase(countryCode) = "NZ") then WA_GetCountryName = "New Zealand" exit function elseif (UCase(countryCode) = "NI") then WA_GetCountryName = "Nicaragua" exit function elseif (UCase(countryCode) = "NE") then WA_GetCountryName = "Niger" exit function elseif (UCase(countryCode) = "NG") then WA_GetCountryName = "Nigeria" exit function elseif (UCase(countryCode) = "NU") then WA_GetCountryName = "Niue Islands" exit function elseif (UCase(countryCode) = "NF") then WA_GetCountryName = "Norfolk Islands" exit function elseif (UCase(countryCode) = "MP") then WA_GetCountryName = "Northern Mariana Islands" exit function elseif (UCase(countryCode) = "NO") then WA_GetCountryName = "Norway" exit function elseif (UCase(countryCode) = "OM") then WA_GetCountryName = "Oman" exit function elseif (UCase(countryCode) = "PK") then WA_GetCountryName = "Pakistan" exit function elseif (UCase(countryCode) = "PW") then WA_GetCountryName = "Palau" exit function elseif (UCase(countryCode) = "PS") then WA_GetCountryName = "Palestinian Territory" exit function elseif (UCase(countryCode) = "PA") then WA_GetCountryName = "Panama" exit function elseif (UCase(countryCode) = "PG") then WA_GetCountryName = "Papua New Guinea" exit function elseif (UCase(countryCode) = "PY") then WA_GetCountryName = "Paraguay" exit function elseif (UCase(countryCode) = "PE") then WA_GetCountryName = "Peru" exit function elseif (UCase(countryCode) = "PH") then WA_GetCountryName = "Philippines" exit function elseif (UCase(countryCode) = "PN") then WA_GetCountryName = "Pitcairn Islands" exit function elseif (UCase(countryCode) = "PL") then WA_GetCountryName = "Poland" exit function elseif (UCase(countryCode) = "PT") then WA_GetCountryName = "Portugal" exit function elseif (UCase(countryCode) = "PR") then WA_GetCountryName = "Puerto Rico" exit function elseif (UCase(countryCode) = "QA") then WA_GetCountryName = "Qatar" exit function elseif (UCase(countryCode) = "RE") then WA_GetCountryName = "Réunion" exit function elseif (UCase(countryCode) = "RO") then WA_GetCountryName = "Romania" exit function elseif (UCase(countryCode) = "RU") then WA_GetCountryName = "Russian Federation" exit function elseif (UCase(countryCode) = "RW") then WA_GetCountryName = "Rwanda" exit function elseif (UCase(countryCode) = "SH") then WA_GetCountryName = "St. Helena" exit function elseif (UCase(countryCode) = "KN") then WA_GetCountryName = "Saint Christopher & Nevis" exit function elseif (UCase(countryCode) = "LC") then WA_GetCountryName = "Saint Lucia" exit function elseif (UCase(countryCode) = "PM") then WA_GetCountryName = "St. Pierre & Miquelon" exit function elseif (UCase(countryCode) = "VC") then WA_GetCountryName = "Saint Vincent & the Grenadines" exit function elseif (UCase(countryCode) = "WS") then WA_GetCountryName = "Western Samoa" exit function elseif (UCase(countryCode) = "SM") then WA_GetCountryName = "San Marino (Rep.)" exit function elseif (UCase(countryCode) = "ST") then WA_GetCountryName = "Sao Tome & Principe" exit function elseif (UCase(countryCode) = "SA") then WA_GetCountryName = "Saudi Arabia" exit function elseif (UCase(countryCode) = "SN") then WA_GetCountryName = "Senegal" exit function elseif (UCase(countryCode) = "CS") then WA_GetCountryName = "Serbia & Montenegro" exit function elseif (UCase(countryCode) = "SC") then WA_GetCountryName = "Seychelles" exit function elseif (UCase(countryCode) = "SL") then WA_GetCountryName = "Sierra Leone" exit function elseif (UCase(countryCode) = "SG") then WA_GetCountryName = "Singapore" exit function elseif (UCase(countryCode) = "SK") then WA_GetCountryName = "Slovakia" exit function elseif (UCase(countryCode) = "SI") then WA_GetCountryName = "Slovenia" exit function elseif (UCase(countryCode) = "SB") then WA_GetCountryName = "Solomon Islands" exit function elseif (UCase(countryCode) = "ZA") then WA_GetCountryName = "South Africa" exit function elseif (UCase(countryCode) = "GS") then WA_GetCountryName = "South Georgia & S. Sandwich Islands" exit function elseif (UCase(countryCode) = "ES") then WA_GetCountryName = "Spain" exit function elseif (UCase(countryCode) = "LK") then WA_GetCountryName = "Sri Lanka" exit function elseif (UCase(countryCode) = "SD") then WA_GetCountryName = "Sudan" exit function elseif (UCase(countryCode) = "SR") then WA_GetCountryName = "Suriname" exit function elseif (UCase(countryCode) = "SJ") then WA_GetCountryName = "Svalbard" exit function elseif (UCase(countryCode) = "SZ") then WA_GetCountryName = "Swaziland" exit function elseif (UCase(countryCode) = "SE") then WA_GetCountryName = "Sweden" exit function elseif (UCase(countryCode) = "CH") then WA_GetCountryName = "Switzerland" exit function elseif (UCase(countryCode) = "SY") then WA_GetCountryName = "Syrian Arab Rep." exit function elseif (UCase(countryCode) = "TW") then WA_GetCountryName = "Taiwan" exit function elseif (UCase(countryCode) = "TJ") then WA_GetCountryName = "Tajikistan" exit function elseif (UCase(countryCode) = "TZ") then WA_GetCountryName = "Tanzania" exit function elseif (UCase(countryCode) = "TH") then WA_GetCountryName = "Thailand" exit function elseif (UCase(countryCode) = "TL") then WA_GetCountryName = "East Timor" exit function elseif (UCase(countryCode) = "TG") then WA_GetCountryName = "Togo" exit function elseif (UCase(countryCode) = "TK") then WA_GetCountryName = "Tokelau Islands" exit function elseif (UCase(countryCode) = "TO") then WA_GetCountryName = "Tonga Islands" exit function elseif (UCase(countryCode) = "TT") then WA_GetCountryName = "Trinidad & Tobago" exit function elseif (UCase(countryCode) = "TN") then WA_GetCountryName = "Tunisia" exit function elseif (UCase(countryCode) = "TR") then WA_GetCountryName = "Turkey" exit function elseif (UCase(countryCode) = "TM") then WA_GetCountryName = "Turkmenistan" exit function elseif (UCase(countryCode) = "TC") then WA_GetCountryName = "Turks & Caicos Islands" exit function elseif (UCase(countryCode) = "TV") then WA_GetCountryName = "Tuvalu" exit function elseif (UCase(countryCode) = "UG") then WA_GetCountryName = "Uganda" exit function elseif (UCase(countryCode) = "UA") then WA_GetCountryName = "Ukraine" exit function elseif (UCase(countryCode) = "AE") then WA_GetCountryName = "United Arab Emirates" exit function elseif (UCase(countryCode) = "UM") then WA_GetCountryName = "United States Minor Outlying Islands" exit function elseif (UCase(countryCode) = "UY") then WA_GetCountryName = "Uruguay" exit function elseif (UCase(countryCode) = "UZ") then WA_GetCountryName = "Uzbekistan" exit function elseif (UCase(countryCode) = "VU") then WA_GetCountryName = "Vanuatu" exit function elseif (UCase(countryCode) = "VE") then WA_GetCountryName = "Venezuela" exit function elseif (UCase(countryCode) = "VN") then WA_GetCountryName = "Vietnam" exit function elseif (UCase(countryCode) = "VG") then WA_GetCountryName = "Virgin Islands (British)" exit function elseif (UCase(countryCode) = "VI") then WA_GetCountryName = "Virgin Islands (U.S.)" exit function elseif (UCase(countryCode) = "WF") then WA_GetCountryName = "Wallis Island" exit function elseif (UCase(countryCode) = "EH") then WA_GetCountryName = "Western Sahara" exit function elseif (UCase(countryCode) = "YE") then WA_GetCountryName = "Yemen" exit function elseif (UCase(countryCode) = "ZM") then WA_GetCountryName = "Zambia" exit function elseif (UCase(countryCode) = "ZW") then WA_GetCountryName = "Zimbabwe" exit function end if WA_GetCountryName = countryCode end function %> <% function WA_VB_Array_Push(theArray, theValue) if (IsArray(theArray)) then oldArray = theArray else dim oldArray(0) end if OldDimension = UBound(oldArray) ArrayDimension = UBound(oldArray)+1 if (ArrayDimension = 0) then ArrayDimension = 1 else ArrayDimension = ArrayDimension end if redim retArr(ArrayDimension) for n=1 To ArrayDimension-1 if (IsObject(oldArray(n))) then set retArr(n) = oldArray(n) else retArr(n) = oldArray(n) end if next if (IsObject(theValue)) then set retArr(ArrayDimension) = theValue else retArr(ArrayDimension) = theValue end if WA_VB_Array_Push = retArr end function function WA_eCart_GetInfo(cartObj, ItemID, ItemProperty) retVal = 0 if (NOT WA_eCart_IsEmpty(cartObj)) then for n=1 To UBound(cartObj.Items) if (NOT cartObj.Items(n) IS NOTHING) then if (cStr(cartObj.Items(n).ID) = cStr(ItemID)) then if (ItemProperty = "Quantity") then retVal = retVal + cDbl(eval("cartObj.Items(" & n & ")." & ItemProperty)) else retVal = (eval("cartObj.Items(" & n & ")." & ItemProperty)) exit for end if end if end if next end if WA_eCart_GetInfo = retVal end function function WA_eCart_GetItem(cartObj, ItemID) retVal = false if (NOT WA_eCart_IsEmpty(cartObj)) then for n=1 To UBound(cartObj.Items) if (NOT cartObj.Items(n) IS NOTHING) then if (cStr(cartObj.Items(n).ID) = cStr(ItemID)) then retVal = cartObj.Items(n) end if end if next end if WA_eCart_GetInfo = retVal end function ' Array object for alternating color rows class WA_eCartLoopArray public ArrayValues public ArrayIndex end class function WA_returnNextIndex(loopObj) loopObj.ArrayIndex = loopObj.ArrayIndex + 1 if (loopObj.ArrayIndex >= UBound(loopObj.ArrayValues)) then loopObj.ArrayIndex = 0 end if WA_returnNextIndex = loopObj.ArrayValues(loopObj.ArrayIndex) end function function WA_isValidPayPal() Dim objHttp, str, paytype paytype = cStr(Request.Form("payment_status")) if (LCase(paytype) = "refunded") then WA_isValidPayPal = false else str = Request.Form & "&cmd=_notify-validate" set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objHttp.open "POST", "https://www.paypal.com/cgi-bin/webscr", false objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded" objHttp.Send str if (objHttp.status = 200 and objHttp.responseText = "VERIFIED") then WA_isValidPayPal = true else WA_isValidPayPal = false end if end if end function Function WA_eCart_IIf( expr, truepart, falsepart ) WA_eCart_IIf = falsepart If expr Then WA_eCart_IIf = truepart End Function Function URLDecode(ByVal str) str = UnEscape(str) str = Replace(str,"+"," ") str = Replace(str,"%2A","*") str = Replace(str,"%40","@") str = Replace(str,"%2D","-") str = Replace(str,"%5F","_") str = Replace(str,"%2B","+") str = Replace(str,"%2E",".") str = Replace(str,"%2F","/") URLDecode = str End Function function WAEC_getTimestamp() Randomize() WAEC_getTimestamp = DateDiff("s", "01/01/1970 00:00:00", Now) & Round(Rnd()*10) end function %> <% function perfume2000_GetItems(ItemString) itemArray = Split(ItemString, "|WAEC|") itemID = itemArray(0) itemName = itemArray(1) itemDescription = itemArray(2) itemWeight = itemArray(3) itemQuantity = itemArray(4) itemPrice = itemArray(5) set retVal = new perfume2000_ItemDefinition retVal.ID = cDbl(itemID) retVal.Name = itemName retVal.Description = itemDescription retVal.Weight = cDbl(itemWeight) retVal.Quantity = cDbl(itemQuantity) retVal.Price = cDbl(itemPrice) set retVal = perfume2000_ResetCalculations(retVal) set perfume2000_GetItems = retVal end function %> <% function perfume2000_SetItems(cartObj, itemIndex) ItemString = "" ItemString = ItemString & cartObj.Items(itemIndex).ID & "|WAEC|" ItemString = ItemString & cartObj.Items(itemIndex).Name & "|WAEC|" ItemString = ItemString & cartObj.Items(itemIndex).Description & "|WAEC|" ItemString = ItemString & cartObj.Items(itemIndex).Weight & "|WAEC|" ItemString = ItemString & cartObj.Items(itemIndex).Quantity & "|WAEC|" ItemString = ItemString & cartObj.Items(itemIndex).Price perfume2000_SetItems = ItemString end function %> <% function perfume2000_AddToCart(AddIfIn, RedirectIfIn, itemID, itemName, itemDescription, itemWeight, itemQuantity, itemPrice) inCartID = perfume2000_ItemIndex(perfume2000, itemID, itemName, itemDescription, itemWeight, itemQuantity, itemPrice) itemQuantity = cDbl(itemQuantity) if (inCartID >= 0) then if (AddIfIn = 0) then perfume2000.Items(inCartID).Quantity = cDbl(perfume2000.Items(inCartID).Quantity)+itemQuantity if (perfume2000.Items(inCartID).Quantity < 0) then perfume2000.Items(inCartID).Quantity = 0 end if if (perfume2000.Items(inCartID).Quantity = 0) then set perfume2000 = WA_eCart_DeleteFromCart(perfume2000, inCartID, true) else set perfume2000.Items(inCartID) = perfume2000_ResetCalculations(perfume2000.Items(inCartID)) end if end if if (AddIfIn = 2 AND itemQuantity > 0) then set retVal = new perfume2000_ItemDefinition retVal.ID = itemID retVal.Name = itemName retVal.Description = itemDescription retVal.Weight = itemWeight retVal.Quantity = itemQuantity retVal.Price = itemPrice set retVal = perfume2000_ResetCalculations(retVal) perfume2000.Items = WA_VB_Array_Push(perfume2000.Items, retVal) set perfume2000 = perfume2000 end if if (AddIfIn = 4 AND itemQuantity > 0) then set perfume2000 = WA_eCart_DeleteFromCart(perfume2000, inCartID, true) set retVal = new perfume2000_ItemDefinition retVal.ID = itemID retVal.Name = itemName retVal.Description = itemDescription retVal.Weight = itemWeight retVal.Quantity = itemQuantity retVal.Price = itemPrice set retVal = perfume2000_ResetCalculations(retVal) perfume2000.Items = WA_VB_Array_Push(perfume2000.Items, retVal) set perfume2000 = perfume2000 end if if (RedirectIfIn <> "") then perfume2000_redirStr = RedirectIfIn end if else if (itemQuantity > 0) then set retVal = new perfume2000_ItemDefinition retVal.ID = itemID retVal.Name = itemName retVal.Description = itemDescription retVal.Weight = itemWeight retVal.Quantity = itemQuantity retVal.Price = itemPrice set retVal = perfume2000_ResetCalculations(retVal) perfume2000.Items = WA_VB_Array_Push(perfume2000.Items, retVal) set perfume2000 = perfume2000 end if end if set perfume2000 = WA_eCart_ResetAll(perfume2000) set perfume2000 = WA_eCart_SaveCart(perfume2000) set perfume2000_AddToCart = perfume2000 end function %> <% function perfume2000_DefineRules() perfume2000.Discounts = Array() perfume2000.Charges = Array() perfume2000.Tax = Array() perfume2000.Shipping = Array() perfume2000.ShippingIsTaxed = false 'Discounts 'Charges 'Tax 'Shipping end function %> <% class perfume2000_ItemDefinition 'columns public ID'n√ public Name't public Description't public Weight'w public Quantity'n public Price'c 'calculations public TotalWeight'w public TotalPrice'c public FullDetails't end class %> <% function perfume2000_ResetCalculations(itmObj) itmObj.TotalWeight = itmObj.Weight * itmObj.Quantity'w itmObj.TotalPrice = itmObj.Price * itmObj.Quantity'c itmObj.FullDetails = itmObj.Quantity & " " & itmObj.Name & " (" & itmObj.ID & ")"'t set perfume2000_ResetCalculations = itmObj end function %> <% ' eCart Language Pack [En] set thisCart = new WA_eCartDefinition thisCart.CartName = "perfume2000" thisCart.Persistance = 0 thisCart.CurrencyPrefix = "$" thisCart.ForceDecimalsC = true thisCart.DecimalPlacesC = 2 thisCart.CurrencyAlign = 0 thisCart.WeightSuffix = "oz" thisCart.ForceDecimalsW = true thisCart.DecimalPlacesW = 2 thisCart.WeightAlign = 1 thisCart.NumberDisplay = 0 thisCart.DisplayIndex = 1 thisCart.DiscountsDisplayIndex = 1 thisCart.ChargesDisplayIndex = 1 thisCart.TaxDisplayIndex = 1 thisCart.ShippingDisplayIndex = 1 set perfume2000 = thisCart set thisCart = nothing if (perfume2000.Persistance = 0) then perfume2000.Items = WA_eCart_Session_GetContent(perfume2000, perfume2000.CartName) end if if (perfume2000.Persistance = 1) then perfume2000.Items = WA_eCart_Cookie_GetContent(perfume2000, perfume2000.CartName) end if perfume2000_DefineRules() perfume2000_cartAction = "" perfume2000_redirStr = "" %> <% function perfume2000_ItemIndex(cartObj, itemID, itemName, itemDescription, itemWeight, itemQuantity, itemPrice) retVal = -1 for n=1 To UBound(cartObj.Items) if (NOT cartObj.Items(n) IS NOTHING) then if ((cStr(cartObj.Items(n).ID) = cStr(itemID))) then retVal = n end if end if next perfume2000_ItemIndex = retVal end function %> <% function perfume2000_UpdateCart(cartObj) for n=1 To UBound(cartObj.Items) itemDelete = cStr(Request(cartObj.CartName & "_Delete_" & n)) resetCalcs = false itemID = "undefined" if (isNumeric(cStr(Request.Form(cartObj.CartName & "_ID_hid_" & n)))) then itemID = cDbl(Request(cartObj.CartName & "_ID_hid_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_ID_list_" & n)))) then itemID = cDbl(Request.Form(cartObj.CartName & "_ID_list_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_ID_" & n)))) then itemID = cDbl(Request.Form(cartObj.CartName & "_ID_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_ID_check_" & n)))) then itemID = cDbl(Request(cartObj.CartName & "_ID_check_" & n)) end if itemName = "undefined" if (NOT isEmpty(Request.Form(cartObj.CartName & "_Name_hid_" & n))) then itemName = cStr(Request(cartObj.CartName & "_Name_hid_" & n)) end if if (NOT isEmpty(Request.Form(cartObj.CartName & "_Name_list_" & n))) then itemName = cStr(Request.Form(cartObj.CartName & "_Name_list_" & n)) end if if (NOT isEmpty(Request.Form(cartObj.CartName & "_Name_" & n))) then itemName = cStr(Request.Form(cartObj.CartName & "_Name_" & n)) end if if (NOT isEmpty(Request.Form(cartObj.CartName & "_Name_check_" & n))) then itemName = cStr(Request(cartObj.CartName & "_Name_check_" & n)) end if itemDescription = "undefined" if (NOT isEmpty(Request.Form(cartObj.CartName & "_Description_hid_" & n))) then itemDescription = cStr(Request(cartObj.CartName & "_Description_hid_" & n)) end if if (NOT isEmpty(Request.Form(cartObj.CartName & "_Description_list_" & n))) then itemDescription = cStr(Request.Form(cartObj.CartName & "_Description_list_" & n)) end if if (NOT isEmpty(Request.Form(cartObj.CartName & "_Description_" & n))) then itemDescription = cStr(Request.Form(cartObj.CartName & "_Description_" & n)) end if if (NOT isEmpty(Request.Form(cartObj.CartName & "_Description_check_" & n))) then itemDescription = cStr(Request(cartObj.CartName & "_Description_check_" & n)) end if itemWeight = "undefined" if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Weight_hid_" & n)))) then itemWeight = cDbl(Request(cartObj.CartName & "_Weight_hid_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Weight_list_" & n)))) then itemWeight = cDbl(Request.Form(cartObj.CartName & "_Weight_list_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Weight_" & n)))) then itemWeight = cDbl(Request.Form(cartObj.CartName & "_Weight_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Weight_check_" & n)))) then itemWeight = cDbl(Request(cartObj.CartName & "_Weight_check_" & n)) end if itemQuantity = "undefined" if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Quantity_hid_" & n)))) then itemQuantity = cDbl(Request(cartObj.CartName & "_Quantity_hid_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Quantity_list_" & n)))) then itemQuantity = cDbl(Request.Form(cartObj.CartName & "_Quantity_list_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Quantity_" & n)))) then itemQuantity = cDbl(Request.Form(cartObj.CartName & "_Quantity_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Quantity_check_" & n)))) then itemQuantity = cDbl(Request(cartObj.CartName & "_Quantity_check_" & n)) end if itemPrice = "undefined" if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Price_hid_" & n)))) then itemPrice = cDbl(Request(cartObj.CartName & "_Price_hid_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Price_list_" & n)))) then itemPrice = cDbl(Request.Form(cartObj.CartName & "_Price_list_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Price_" & n)))) then itemPrice = cDbl(Request.Form(cartObj.CartName & "_Price_" & n)) end if if (isNumeric(cStr(Request.Form(cartObj.CartName & "_Price_check_" & n)))) then itemPrice = cDbl(Request(cartObj.CartName & "_Price_check_" & n)) end if if (itemID <> "undefined") then cartObj.Items(n).ID = itemID resetCalcs = true end if if (itemName <> "undefined") then cartObj.Items(n).Name = itemName resetCalcs = true end if if (itemDescription <> "undefined") then cartObj.Items(n).Description = itemDescription resetCalcs = true end if if (itemWeight <> "undefined") then cartObj.Items(n).Weight = itemWeight resetCalcs = true end if if (itemQuantity <> "undefined") then cartObj.Items(n).Quantity = itemQuantity resetCalcs = true end if if (itemPrice <> "undefined") then cartObj.Items(n).Price = itemPrice resetCalcs = true end if if (IsNumeric(itemQuantity) AND itemQuantity <> "") then if (itemQuantity < 0) then itemQuantity = 0 end if if (itemQuantity = 0) then set cartObj = WA_eCart_DeleteFromCart(cartObj, n, false) else if (cartObj.Items(n).Quantity <> itemQuantity) then cartObj.Items(n).Quantity = itemQuantity set cartObj.Items(n) = eval(cartObj.CartName & "_ResetCalculations(cartObj.Items(n))") end if end if end if if (cStr(itemDelete) <> "") then set cartObj = WA_eCart_DeleteFromCart(cartObj, n, false) end if next set cartObj = WA_eCart_ReIndexContent(cartObj) if (NOT IsArray(cartObj.Items)) then cartObj.Items = Array() end if set cartObj = WA_eCart_ResetAll(cartObj) set cartObj = WA_eCart_SaveCart(cartObj) set perfume2000_UpdateCart = cartObj end function function perfume2000_GetDiscounts() perfume2000_GetDiscounts = WA_eCart_GetDiscounts(perfume2000) end function function perfume2000_GetCharges() perfume2000_GetCharges = WA_eCart_GetCharges(perfume2000) end function %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_1_ATC")) <> "" OR cStr(Request.Form("perfume2000_1_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_1_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "Department Store List"' column binding ATC_itemDescription = "Department And Specialty Stores Of The United States"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_1_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("700")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_2_ATC")) <> "" OR cStr(Request.Form("perfume2000_2_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_2_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "Concept Store List"' column binding ATC_itemDescription = "Concept stores , a growing business in a stagnant economy"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_2_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("700")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_3_ATC")) <> "" OR cStr(Request.Form("perfume2000_3_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_3_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "US Pharmacy List"' column binding ATC_itemDescription = "United States pharmacies and drugstores (Independents and chains)"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_3_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("700")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_4_ATC")) <> "" OR cStr(Request.Form("perfume2000_4_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_4_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "Venture Capital Boutiques List"' column binding ATC_itemDescription = "Venture Capital Boutiques And Angel Investors"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_4_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("200")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_8_ATC")) <> "" OR cStr(Request.Form("perfume2000_8_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_8_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "Beauty Suppliers List"' column binding ATC_itemDescription = "Beauty Suppliers : fragrance, components & raw material manufacturers"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_8_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("1000")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_7_ATC")) <> "" OR cStr(Request.Form("perfume2000_7_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_7_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "Beauty Marketers List"' column binding ATC_itemDescription = "Beauty Marketers Worldwide ( Manufacturers, Distributors, Agents)"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_7_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("1000")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_6_ATC")) <> "" OR cStr(Request.Form("perfume2000_6_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_6_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "Bundle List Package"' column binding ATC_itemDescription = "Includes: Department Store/Independent Perfumeries/Concept Stores/US Pharmacies"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_6_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("2500")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_5_ATC")) <> "" OR cStr(Request.Form("perfume2000_5_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_5_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cart.asp" ATC_RedirectIfIn = "" ATC_itemName = "Independent Perfumeries List"' column binding ATC_itemDescription = "Independent perfumeris And Beauty Stores"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_5_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("1500")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart Redirect if (perfume2000_redirStr <> "") then Response.Redirect(perfume2000_redirStr) end if %> Perfume 2000.com is the leading information provider for the Perfume and Fragrance Industries.
<% if (InStr(Request.ServerVariables("URL"),"Login.asp") = 0) and (InStr(Request.ServerVariables("URL"),"CheckPasswordFail.asp") = 0) then Session("Redirect") = Request.ServerVariables("URL") & "?" & Request.QueryString end if qLoginName = Request.Cookies("LoginName") if qLoginName = "" then qLoginName = "Guest" if Session("ClientType") = "Free" then%> <%=qLoginName%> is
logged off

<% else %> <%=qLoginName%> is
logged on

<% end if%>

Industry News

<%NowDate = Date if (Application("NewsDate") = "01/01/2000") or (NowDate <> Application("NewsDate")) and (Hour(Now) > 11) then Set rsNewsFlash = Application("objDBInformation").Execute("SELECT TOP 3 ID, Title FROM News ORDER BY Date DESC;") Set objNewsFlashID = rsNewsFlash("ID") Set objNewsFlashTitle = rsNewsFlash("Title") 'Randomize 'Application("NewsFlash1ID") = Int(Rnd * 10) 'Application("NewsFlash2ID") = Int(Rnd * 10) 'do Until Application("NewsFlash2ID") <> Application("NewsFlash1ID") ' Application("NewsFlash2ID") = Int(Rnd * 10) 'loop 'Application("NewsFlash3ID") = Int(Rnd * 10) 'do Until (Application("NewsFlash3ID") <> Application("NewsFlash1ID")) and (Application("NewsFlash3ID") <> Application("NewsFlash2ID")) ' Application("NewsFlash3ID") = Int(Rnd * 10) 'loop 'rsNewsFlash.Move Application("NewsFlash1ID") 'Application("NewsFlash1ID") = objNewsFlashID 'Application("NewsFlash1Title") = objNewsFlashTitle 'rsNewsFlash.MoveFirst 'rsNewsFlash.Move Application("NewsFlash2ID") 'Application("NewsFlash2ID") = objNewsFlashID 'Application("NewsFlash2Title") = objNewsFlashTitle 'rsNewsFlash.MoveFirst 'rsNewsFlash.Move Application("NewsFlash3ID") 'Application("NewsFlash3ID") = objNewsFlashID 'Application("NewsFlash3Title") = objNewsFlashTitle rsNewsFlash.MoveFirst Application("NewsFlash1ID") = objNewsFlashID Application("NewsFlash1Title") = objNewsFlashTitle rsNewsFlash.MoveNext Application("NewsFlash2ID") = objNewsFlashID Application("NewsFlash2Title") = objNewsFlashTitle rsNewsFlash.MoveNext Application("NewsFlash3ID") = objNewsFlashID Application("NewsFlash3Title") = objNewsFlashTitle Application("NewsDate") = NowDate end if %>

&NewsTitle=<%=Replace(Application("NewsFlash1Title")," ","%20")%>"><%=Application("NewsFlash1Title")%>

&NewsTitle=<%=Replace(Application("NewsFlash2Title")," ","%20")%>"><%=Application("NewsFlash2Title")%>

&NewsTitle=<%=Replace(Application("NewsFlash3Title")," ","%20")%>"><%=Application("NewsFlash3Title")%>

Search

By Keyword:

Or by Topic:

Perfume Depot

See our new book review section!

Subscribe to a monthly newsletter customized for your needs!

Check out the most comprehensive Perfume Industry database!

Find out about specific Promotional Campaigns

▼ world beauty industry at your fingertips ▼

The Following lists are available for purchase. Just add the one you wish to purchase to your cart by clicking the "add to cart" button and then procceed to checkout. Once your payment has been approved on the receipt page there will be a download link.

If you have any questions or concerns please contact us at: support@perfume2000.com


Department and specialty stores of the United states
320 executives and beauty buyers controlling over 10,000 stores

This list includes most of the specially and departments stores from Saks fifth Ave, Barney, Bloomingdale, Macys, Dillard’s, Sears, Jcpenney, Nordstrom, Marshall, Tmax etc…

Contains: Email; Website; First name; Last name; Company Name, Address, City; State; Zip; Phone; Fax.

$700 
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">


Independent perfumeries and Beauty stores
Over 3000 perfumeries, resort stores, boutiques and beauty stores.

Independents selling perfume, skin care and cosmetics are the most sought after in this retail environment  turmoil where every dollar  counts and where new channels of distribution become a necessity for survival.

Contains:
Email; Website; First name; Last name; Company Name, Address, City; State; Zip; Phone; Fax.

$1,500
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">


Concept stores , a growing business in a stagnant economy
165 Concept store companies representing over 500 doors

A Concept Store is a store which is identified by a special mix of products. Such a store offers products of (almost) all kinds in different branches. It's a modern experience of shopping, always in motion and highly innovative. The store addresses particular groups of customers: e.g. luxury, design, street wear-customers. They'll find (all) the products, they identify with in one store. A typical mix of products and brands in a concept store would be: fashion, shoes, (home-) accessories, books/CD's, food, toys, hardware for daily use and of course Cosmetics, Skin care and Perfume. The range is wide and some stores even change themselves and the products regularly, to stay flexible and surprising

Contains: Email; Website; First name; Last name; Company Name, Address, City; State; Zip; Phone; Fax.

$700 
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">


United States pharmacies and drugstores (Independents and chains)
328 owners, executives and beauty buyers controlling over 18,000 stores

This list includes all independent pharmacies and drug store chains  like Walgreens, CVS, etc…

Contains: Email; Website; First name; Last name; Company Name, Address, City; State; Zip; Phone; Fax.

$700
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">


All United States beauty retailers
(Contains all the above, special bundle).
$2,500
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">


United States gift stores.
$700

Beauty Marketers Worldwide ( Manufacturers, Distributors, Agents)
Over 1700 Beauty Manufacturers, Distributors and Agents.

This list contain the decision makers of our industry (the selective beauty industry)


Contains: Email; Website; First name; Last name; Company Name, Address, City; State; Zip; Phone; Fax.

$1,000
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">


Beauty Suppliers : fragrance, components & raw material manufacturers
Over 450 Beauty Suppliers (components, fragrance and raw material manufacturers).

This list contain the best and the most of the beauty industry supply chain: Fragrance manufacturers, Bottle manufacturers (Glass & plastic), Cap manufacturers, Boxes cartons and display manufacturers  a must to have in your database.

Contains: Email; Website; First name; Last name; Company Name, Address, City; State; Zip; Phone; Fax.

$1,000
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">


American Beauty Editors & internet Blogs
$300

Venture capital boutiques and angel investors
Almost 200 VC’s, Private Bank and angel investors to help you raise capital!

Unlike other Venture Capital forums and associations where you will pay a monthly fee or a per session fee to consult a VC List or even worst, you will pay to post your info and wait for ever to get an answer. This list is straight forward and immediately downloadable.

The list is freshly made: August 2008 and contains: Email; Website; First name; Last name; Company Name, Address, City; State; Zip; Phone; Fax.

$200
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">

 

PXA 2009 Exhibitors, please call Ana to get your credential & password

1+(305) 868 -9383 or by email ana@perfume2000.com

 
home
site map
about us
contact us
advertising
links
specials
help


alexander's list
| industry contacts | event calendar | new products
technology | chat | magazine | partners

Copyright © 2000 Perfume2000 Corp. All Rights Reserved.
All other trademarks and copyrights are the property of their respective holders.