<% ' Script produzido por Marcos Kenji Nakamura ' Dúvidas? casa.cifras@casa.cifras.nom.br ' Você pode ver o script em funcionamento em http://www.casa.cifras.nom.br ' ' Coloque aqui seu número de afiiado afiliado = 297076 ' Estas são as variáveis: ' qts = Quantidade a ser mostrada (max. 10) ' cat = Categoria dos produtos a ser mostrado ' palavra = Você pode especificar uma palavra em sua busca ' pais = País de onde vai puxar os dados do Mercado Livre ' (MLA-Argentina, MLB-Brasil, MLM-México, MLC-Chile, MLV-Venezuela, MCO-Colômbia ' ' Funcionamento: ' Utilizar as variáveis conforme exemplo abaixo: ' http://www.casa.cifras.nom.br/xml_hor.asp?qts=5&pais=MLB&cat=1668 ' qts = Request.QueryString("qts") cat = Request.QueryString("cat") palavra = Request.QueryString("palavra") pais = Request.QueryString("pais") select case pais case "MLB" dominio = "www.mercadolivre.com.br" case "MLA" dominio="www.mercadolibre.com.ar" case "MLM" dominio="www.mercadolibre.com.mx" case "MLC" dominio="www.mercadolibre.cl" case "MLV" dominio="www.mercadolibre.com.ve" case "MCO" dominio="www.mercadolibre.com.co" end select if dominio = "" then dominio = "www.mercadolivre.com.br" end if if cat = "" then cat = "1000" end if if qts = "" then qts = "5" end if set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.open "GET", "http://" & dominio & "/jm/searchXml?as_word=" & palavra & "&site=" & afiliado & "&as_order_id=MAS_OFERTADOS&as_qshow=" & qts & "&noQCat=Y&as_categ_id=" & cat, false xml.send set objXML = xml.responseXML set link = objXML.getElementsByTagName("link") set imagem = objXML.getElementsByTagName("image_url") set titulo = objXML.getElementsByTagName("title") set preco = objXML.getElementsByTagName("price") set moeda = objXML.getElementsByTagName("currency") %>
26/07/1962 
- 18:43 | 109 pessoas comentaram 
| + Antigos |
Todos |
+ Recentes |
