Add product data to Google Analytics tracking

This may be included in a recent update, as we're still on 4.2b. On orderCompleteTracking.asp, you can find this comment:


          ' Advanced users: you use any of the following variables in your tracking code:
          ' pOID:  This variable holds the order number from the ProductCart database
          ' pOrderNumber: The order number shown to customer
          ' ptotal: The order total amount
          ' pOrderStatus: An integer representing the status of the order

We already had some order data being tracked in GA (Google Analytics), but it was basically just the Order ID and total price. However, wanted to take full advantage of GA's tracking functions, and track tax, shipping charges, geographical data, and product information. This actually turned out to be easier than I expected. We modified our orderCompleteTracking like so:


          <script type="text/javascript">
            var _gaq = _gaq || [];
            _gaq.push(['_setAccount', 'UA-9999999-1']);
            _gaq.push(['_trackPageview']);
            _gaq.push(['_addTrans',
               '<%=pOrderNumber%>',           // order ID - required
               'Liftchair.com',  // affiliation or store name
               '<%=ptotal%>',          // total - required
               '<%=ptaxAmount%>',           // tax
               '<%=Postage%>',              // shipping
               '<%=pcity%>',       // city
               '<%=pstate%>',     // state or province
               '<%=pcountryCode%>'             // country
            ]);
            <% for each orderProduct in orderProducts %>
             _gaq.push(['_addItem',
                '<%=pOrderNumber%>',         // transaction ID - necessary to associate item with transaction
                '<%=orderProduct.item("sku")%>',         // SKU/code - required
                '<%=orderProduct.item("name")%>',      // product name - necessary to associate revenue with product
                '<%=orderProduct.item("category")%>', // category or variation
                '<%=orderProduct.item("price")%>',        // unit price - required
                '<%=orderProduct.item("quantity")%>'             // quantity - required
             ]);     
             <% next %>       
          
            _gaq.push(['_trackTrans']); //submits transaction to the Analytics servers

All of the new information for the _addTrans was already on the orderComplete.asp page, so it was just a matter of finding the variables (this may not work for countries that use VAT instead of Tax).

For the product information, I had to make a couple changes to orderComplete.asp:

At the beginning of the file I defined a new array to hold ordered product data (i don't know if it needs to go in a certain place, but i put it under all of the other dim statements as that seemed to make sense):


' // BRETT Add Product SKUs to GA Order Tracking START
dim orderProducts()
' // BRETT Add Product SKUs to GA Order Tracking END

Then I set up this block of code to create an array of dictionary items holding all of the product data. I also had to pull the category from the database as it is not included in orderComplete.asp by default:


                    ' BRETT Get default category query START
                    queryCategories="SELECT categories_products.idCategory, categories_products.defaultCategory, categories.categoryDesc FROM categories_products LEFT JOIN categories ON categories_products.idCategory=categories.idCategory WHERE idProduct=" & pidProduct
                    set rsCategories=server.CreateObject("ADODB.RecordSet")
                    set rsCategories=conntemp.execute(queryCategories)
                    if rsCategories.EOF then
                        set rsCategories = nothing
                    else
                        categoriesArray=rsCategories.getRows()
                        categoriesArrayCount=ubound(categoriesArray,2)
                        set rsCategories = nothing
                    end if
                        pIdCategory = categoriesArray(0,0)
                        pCategoryName = categoriesArray(2,0)
                    for currentCat=0 to categoriesArrayCount
                        if categoriesArray(1, currentCat) = 1 then
                            pIdCategory = categoriesArray(0, currentCat)
                            pCategoryName = Server.HTMLEncode(categoriesArray(2, currentCat))
                        end if
                    next
                    ' BRETT Get default category query END

                         ' // BRETT Add Product SKUs to GA Order Tracking START
                         redim preserve orderProducts(productCount)
                         set orderProducts(productCount) = Server.CreateObject("Scripting.Dictionary")

                        orderProducts(productCount).Add "sku", pSku
                        orderProducts(productCount).Add "name", pdescription
                        orderProducts(productCount).Add "category", pCategoryName
                        orderProducts(productCount).Add "price", punitPrice
                        orderProducts(productCount).Add "quantity", pquantity

                         productCount = productCount + 1
                         ' // BRETT Add Product SKUs to GA Order Tracking END

I put that block of code right after this stuff:


                         '// Product Options Arrays
                         pcv_strSelectedOptions = rsOrdObj("pcPrdOrd_SelectedOptions") ' Column 11
                         pcv_strOptionsPriceArray = rsOrdObj("pcPrdOrd_OptionsPriceArray") ' Column 25
                         pcv_strOptionsArray = rsOrdObj("pcPrdOrd_OptionsArray") ' Column 4
                         pcPrdOrd_BundledDisc=rsOrdObj("pcPrdOrd_BundledDisc")
                         pGWText=rsOrdObj("pcPO_GWNote")
                         pprocessDate=ShowDateFrmt(pprocessDate)
                         
                         pIdConfigSession=trim(pidconfigSession)

...and right before this stuff...


                         '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                         ' START: Get the total Price of all options
                         '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                         pOpPrices=0
                         dim pcv_tmpOptionLoopCounter, pcArray_TmpCounter

So the whole section of the page should look like:


                         '// Product Options Arrays
                         pcv_strSelectedOptions = rsOrdObj("pcPrdOrd_SelectedOptions") ' Column 11
                         pcv_strOptionsPriceArray = rsOrdObj("pcPrdOrd_OptionsPriceArray") ' Column 25
                         pcv_strOptionsArray = rsOrdObj("pcPrdOrd_OptionsArray") ' Column 4
                         pcPrdOrd_BundledDisc=rsOrdObj("pcPrdOrd_BundledDisc")
                         pGWText=rsOrdObj("pcPO_GWNote")
                         pprocessDate=ShowDateFrmt(pprocessDate)
                         
                         pIdConfigSession=trim(pidconfigSession)
                         
                    ' BRETT Get default category query START
                    queryCategories="SELECT categories_products.idCategory, categories_products.defaultCategory, categories.categoryDesc FROM categories_products LEFT JOIN categories ON categories_products.idCategory=categories.idCategory WHERE idProduct=" & pidProduct
                    set rsCategories=server.CreateObject("ADODB.RecordSet")
                    set rsCategories=conntemp.execute(queryCategories)
                    if rsCategories.EOF then
                        set rsCategories = nothing
                    else
                        categoriesArray=rsCategories.getRows()
                        categoriesArrayCount=ubound(categoriesArray,2)
                        set rsCategories = nothing
                    end if
                        pIdCategory = categoriesArray(0,0)
                        pCategoryName = categoriesArray(2,0)
                    for currentCat=0 to categoriesArrayCount
                        if categoriesArray(1, currentCat) = 1 then
                            pIdCategory = categoriesArray(0, currentCat)
                            pCategoryName = Server.HTMLEncode(categoriesArray(2, currentCat))
                        end if
                    next
                    ' BRETT Get default category query END

                         ' // BRETT Add Product SKUs to GA Order Tracking START
                         redim preserve orderProducts(productCount)
                         set orderProducts(productCount) = Server.CreateObject("Scripting.Dictionary")

                        orderProducts(productCount).Add "sku", pSku
                        orderProducts(productCount).Add "name", pdescription
                        orderProducts(productCount).Add "category", pCategoryName
                        orderProducts(productCount).Add "price", punitprice
                        orderProducts(productCount).Add "quantity", pquantity

                         productCount = productCount + 1
                         ' // BRETT Add Product SKUs to GA Order Tracking END

                         '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                         ' START: Get the total Price of all options
                         '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

You'll see something in there about defaultCategory. We noticed there was no good way to set a "default" product category for breadcrumbs, canonicals, and other stuff. I just added a new defaultCategory column to categories_products and changed the modifyProduct.asp page on the dashboard to allow us to set a default category for each product.

This helped as, by default, productcart would use the first category to which the product was assigned for the breadcrumbs, which can sometimes be problematic.

However, you can probably replace that whole "Get default category" with a simple query to just pull the category name of the first assigned category for the product:


' BRETT Get default category query START
queryCategories="SELECT categories_products.idCategory, categories.categoryDesc FROM categories_products LEFT JOIN categories ON categories_products.idCategory=categories.idCategory WHERE idProduct=" & pidProduct
set rsCategories=server.CreateObject("ADODB.RecordSet")
set rsCategories=conntemp.execute(queryCategories)
if rsCategories.EOF then
    set rsCategories = nothing
    set categoryName = "Unable to locate category."
else
    categoriesArray=rsCategories.getRows()
    set rsCategories = nothing
    pIdCategory = categoriesArray(0,0)
    pCategoryName = categoriesArray(1,0)
end if
' BRETT Get default category query END

I'm not sure if this will be useful for anyone else, but I figured I'd post it here as it was a fairly simple modification. If anyone notices any errors / vulnerabilities in the code please let me know.

Edited by Brett - 01-March-2014 at 12:31am