' Control permalinks and enable shopping cart functionality in IE
Sub slideshowflash_FSCommand(ByVal command, ByVal args)        
    select case command
    case "putHREF" getLink(args)
    end select        
end Sub

Sub getLink(args)    
    temp = Split(args, "num=")
    
    If Not IsNull(temp(1)) Then
        strNode = temp(1) 
        location.href = args              
    End If
    
    set objImgLink = document.getElementById("ctl00_plcMain_ShoppingCartMiniPreviewWebPart_cartPreview_lnkShoppingCart")
   
    If IsObject(objImgLink) Then 
        strImgLink = objImgLink.href             
        temp2 = Split(strImgLink, "?")
        If Not IsNull(temp2(0)) And Not IsNull(strNode) Then
            strImgLink = temp2(0) & "?node="& strNode
            objImgLink.href = strImgLink
        End If
    End If
    
end Sub