Ola pessoal, boa tarde.Desenvolvi uma funcao que busca exibe advertisments (no caso banners) filtrados por Profile e Product.Consegui informacoes interessantes nos sites abaixo:http://blogs.msdn.com/maxakbar/archive/2006/08/16/702257.aspxhttp://social.msdn.microsoft.com/Forums/en-US/commserver2007/thread/4d13eef3-340b-4366-93aa-c3f4cbf2f196/Abaixo segue o codigo da funcao:------------------------------------------- Public Function GetCampanha(ByVal p_strPageGroup As String, _ Optional ByVal p_strGrupoFabricanteCodigo As Integer = 0, _ Optional ByVal p_strGrupoLinhaCodigo As Integer = 0, _ Optional ByVal p_strLinhaCodigo As Integer = 0) As String Dim l_strRenderHTML As String Dim adContentSelector As ContentSelector = CommerceContext.Current.TargetingSystem.SelectionContexts("advertising").GetSelector() adContentSelector.Profiles.Add("TargetingContext", CommerceContext.Current.TargetingSystem.TargetingContextProfile()) '// Adicionando PageGroup CommerceContext.Current.TargetingSystem.TargetingContextProfile("PageGroup").Value = p_strPageGroup '// Buscado revenda logada Dim l_objTicket As New Profile.BusinessObjects.TicketFrontEnd If l_objTicket.TipoTicket = Profile.BusinessObjects.TicketType.LogadoFrontEnd Then Dim objCliente As New Profile.BusinessRules.Cliente Dim objPessoa As Profile.BusinessObjects.Pessoa = objCliente.GetClientes(l_objTicket.Cliente.Guid) If Not (objPessoa Is Nothing) Then adContentSelector.Profiles.Add("UserObject", objPessoa.Profile) ' inserindo perfil para exibir Banner End If End If '// Produtos selecionados Dim productProperties As New DictionaryClass If p_strGrupoFabricanteCodigo <> 0 Then 'ClvGrupoFabricanteCodigo productProperties.let_Value(String.Format("_product_{0}", "ClvGrupoFabricanteCodigo"), p_strGrupoFabricanteCodigo) End If If p_strGrupoLinhaCodigo <> 0 Then 'p_strGrupoLinhaCodigo productProperties.let_Value(String.Format("_product_{0}", "ClvGrupoLinhaCodigo"), p_strGrupoLinhaCodigo) End If If p_strLinhaCodigo <> 0 Then 'p_strLinhaCodigo productProperties.let_Value(String.Format("_product_{0}", "ClvLinhaCodigo"), p_strLinhaCodigo) End If If productProperties.Count > 0 Then adContentSelector.Profiles.Add("Product", productProperties) ' inserindo produto para exibir Banner End If '// Fim Produtos selecionados Dim adContentCollector As StringCollection = adContentSelector.GetContent() For Each adContent As String In adContentCollector l_strRenderHTML = adContent Next Return l_strRenderHTML '// Retorno End Function-------------------------------------------Na funcao acima, no relacionamento com produtos, necessito apenas de tres ProductDefinition, por isso nao carreguei todas as definitions de um produto.P.S.: A classe ticket e um controle que temos para saber se o usuario esta logado ou nao no site. Substitua seu controle de login nessa parte do codigo.Duvidas e comentarios, por favor enviem!Abracos O "Fobarros" enviou esse link e achei interessante postar.http://blogs.msdn.com/tess/archive/2009/06/16/first-look-at-debugging-net-4-0-dumps-in-visual-studio-2010.aspx Quem diria que seria tao rapido. A Amazon superou as minhas expectativas. Fiz o pedido dos livros para certificacao (http://www.amazon.com/Self-Paced-Training-70-536-70-528-70-547/dp/0735623767/ref=sr_1_3?ie=UTF8&s=books&qid=1245672888&sr=1-3) dia 23/Junho e a previsao de entrega era dia 30/Jul (37 dias). Ontem dia 06/Jul (14 dias) o pedido estava na portaria de casa. Chegou mais rapido do que fazer a compra em qualquer livraria do Brasil e custando menos da metade do preco (O total do pedido ficou em $ 110,00, cerca de R$ 220,00. Se eu comprasse na livraria custaria cerca de R$ 500,00).Meu primeiro pedido na Amazon com entrega no Brasil foi mais de que aprovado!!!Vou comecar pelo livro do Exame 70-536 que tem cerca de 1000 paginas. Vou ter que organizar os estudos para que o mesmo nao fique muito extenso. Assim que conseguir, postarei novas dicas. Enquanto isso, fiquem ligados nos conteudos postados na sessao .Net para o Exame 70-536. Sobre esse "teoria" eu nunca tinha ouvido falar, mas e um conceito bem simples, desde que seja tomado alguns cuidados de "cast".O que e Boxing e UnBoxing?Com certeza nao tem nada a ver com esportes sangrentos, hehehe...O .NET Framework possui duas grandes divisoes em seus tipos de dados, os Value Types (Tipos por Valor) e os Reference Types (Tipos por Referencia). Os Value Types sao armazenados na stack e os Reference Types sao armazenados na heap (memoria).Chamamos de Boxing a conversao de um Value Type para um Reference Type e a conversao de volta de um Reference Type para um