[Resolvido] ler a base XML do MercadoLivre

[xanburzum 169]

Script que ler a base XML do MercadoLivre e cria uma coluna de artigos de até 10 itens

 

<%
' Coloque aqui seu número de afiliado
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")
%>
<table width="120" border="1" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<%
for i = 0 to link.length-1
	url = Replace(link.item(i).text, "XXX", afiliado)

	%>
	
	<td align="center">
		<a href="<%=url%>" target="_blank">
		<img src="<%=imagem.item(i).text%>" border="0"><BR>
		<%=titulo.item(i).text%></a><BR>

		<B><%=moeda.item(i).text%> <%=preco.item(i+1).text%></B>
	</td>

	<%
next
response.write "</tr>"
set xml = nothing
set objXML = nothing

%>