asp MSXML2.XMLHTTP

[saloeric 1]

Boa tarde, tou aqui com um problema que não estou a conseguir resolver, eu requisito uma página via MSXML2.XMLHTTP, essa página depois de requisitada está no seguinte formato:

<map name="NotNamed">
<area name="Gavetão Antigo Pequeno Nº1" shape="poly" coords="156,310,157,325,171,324,171,306" href="../../../../campa.aspx?talhao=Gavetões Antigos Pequenos&campa=1&tipo=Gavetão"  alt="Gavetão Antigo Pequeno Nº1" OnMouseOver="window.status='Gavetão Antigo Pequeno Nº1'; return true" OnMouseOut="window.status=''; return true" target="_top">
  <area name="Gavetão Antigo Pequeno Nº2" shape="poly" coords="172,307,171,323,186,316,187,300" href="../../../../campa.aspx?talhao=Gavetões Antigos Pequenos&campa=2&tipo=Gavetão"  alt="Gavetão Antigo Pequeno Nº2" OnMouseOver="window.status='Gavetão Antigo Pequeno Nº2'; return true" OnMouseOut="window.status=''; return true" target="_top">
  <area name="Gavetão Antigo Pequeno Nº3" shape="poly" coords="187,301,189,314,203,311,203,296" href="../../../../campa.aspx?talhao=Gavetões Antigos Pequenos&campa=3&tipo=Gavetão"  alt="Gavetão Antigo Pequeno Nº3" OnMouseOver="window.status='Gavetão Antigo Pequeno Nº3'; return true" OnMouseOut="window.status=''; return true" target="_top">
  <area name="Gavetão Antigo Pequeno Nº7" shape="poly" coords="253,274,252,288,264,284,264,270" href="../../../../campa.aspx?talhao=Gavetões Antigos Pequenos&campa=7&tipo=Gavetão"  alt="Gavetão Antigo Pequeno Nº7" OnMouseOver="window.status='Gavetão Antigo Pequeno Nº7'; return true" OnMouseOut="window.status=''; return true" target="_top">
</map>

eu preciso resgatar as variaveis que estão no link, ficaria assim

 

talhao=Gavetões Antigos Pequenos

campa=7

tipo=Gavetão

 

...

 

, não tou a conseguir http://forum.imasters.com.br/public/style_emoticons/default/no.gif

[xanburzum 169]

você ker recuperar o conteudo de uma pagina, seria isso...

dá uma pesquisada no lab. de scripts, k existe uma funcaun para isso, pode te ajudar...

[saloeric 1]

recuperar mas apenas uma parte, o retorno seria a querystring, fiz assim e já consegui recuperar

 

'Declaração das variáveis
Dim objXmlHttp,Url,Conteudo
'Inicialização do objeto
Set objXmlHttp	= Server.CreateObject("MSXML2.XMLHTTP")
'Url do Site
Url = "http://localhost/html/GAVETOES.html"
'Resgatando os dados da URL via HTTP
objXMLHttp.Open "GET", Url, False
objXMLHttp.Send
'Utilizando a função "BinaryToString" não haverá mais problemas com acentos.
Conteudo = BinaryToString(objXmlHttp.ResponseBody)
Response.ContentType = "text/html"
'Destruição do objeto
Set objXmlHttp	= nothing

dim inimap,fimmap,omapa,arrtem
'limpa html desnecessário
inimap = InStr(1,Conteudo,"<map")
fimmap = InStr(1,Conteudo,"</map>")
omapa = Mid(Conteudo,inimap,fimmap-inimap+6)
'array com os elementos pretendidos
arrtem=split(omapa,"<area")
'ciclo para retirar o desejado
dim i,ini,fim
for i = lbound(arrtem) to ubound(arrtem)
	ini = InStr(1,arrtem(i),"aspx?")
	if ini > 0 then
	fim = InStr(ini,arrtem(i),""&chr(34)&"") 
	response.write server.htmlencode(Mid(arrtem(i),ini,fim-ini))&"<br />"
	end if
	
next

[xanburzum 169]

existe uma funcaun , onde você pode recuperar determinandas tag´s da page...