Ler xml?

[RCM 0]

Boa noite a todos!

 

Com o seguinte código:

<%
	cep		= "73252900"
	url		= "http://republicavirtual.com.br/web_cep.php?cep="&cep&"&formato=xml"  
	Set objXML = Server.CreateObject("MSXML2.XMLHTTP")
	objXML.open "GET",url,false
	ObjXML.Send()
	
	Response.Write  objXML.responseText
	
	Set objXML = Nothing

		   %>

 

Aparece asim na tela:

 

<?xml version="1.0" encoding="iso-8859-1" ?> 
	- <webservicecep>
	<uf>DF</uf> 
	<cidade>Sobradinho</cidade> 
	<bairro>Regi?dos Lagos</bairro> 
	<tipo_logradouro>Rodovia</tipo_logradouro> 
	<logradouro>DF-440 km 2</logradouro> 
	<resultado>1</resultado> 
	<resultado_txt>sucesso - cep completo</resultado_txt> 
	</webservicecep>

 

------------------------------------------------------------------------------------------------------

Agora vem a dúvida, como eu faço para imprimir isso na tela como abaixo?

 

uf = DF

cidade = Sobradinho

bairro = Regiao dos Lagos

tipo_logradouro = Rodovia

logradouro = DF-440 km 2

resultado_txt = sucesso - cep completo

[jrcardozo 4]

você precisa utilizar algum componente, como o xmlhttp e dom para manipular cada dado

[RCM 0]

E como eu faço isso, não tenho a mínima idéia?

[jrcardozo 4]

dê uma olhada no laboratorio de scripts, existem diversos scripts que utilizam esses metodos. Eu mesmo já postei alguns. Veja o que consegue desenvolver de inicio que depois te dou uma força pra finalizar

[RCM 0]

ok, vou procurar!

Obrigado

 

ok, vou procurar!

Obrigado

[RCM 0]

Infelizmente eu sou horrível nesta área, mesmo eu pegando uns aqui no laboratórios de script, não consigo fazer funcionar.

Se você poder dar esse help seria muito bom.

[RCM 0]

Aí Jonathan, eu fiz assim, porém não me retorna nada!

 

<%

 

strCEP = "73252900"

SET objXMLHTTP = SERVER.CREATEOBJECT("Msxml2.ServerXMLHTTP")

SET objRESULTADO = SERVER.CREATEOBJECT("Msxml2.DomDocument")

 

 

objXMLHTTP.OPEN "GET", "http://republicavirtual.com.br/web_cep.php?cep="&strCEP&"&formato=xml", FALSE

objXMLHTTP.send()

objRESULTADO.loadXML(objXMLHTTP.responseText)

Set objXMLHTTP = Nothing

 

SET ASP_webservicecep = objRESULTADO.selectNodes("//webservicecep")

SET ASP_uf = objRESULTADO.selectNodes("//uf")

SET ASP_cidade = objRESULTADO.selectNodes("//cidade")

SET ASP_bairro = objRESULTADO.selectNodes("//bairro")

SET ASP_tipo_logradouro = objRESULTADO.selectNodes("//tipo_logradouro")

SET ASP_logradouro = objRESULTADO.selectNodes("//logradouro")

SET ASP_resultado = objRESULTADO.selectNodes("//resultado")

 

RESPONSE.WRITE "QUANTIDADE DE REGISTROS <br>"

RESPONSE.WRITE (ASP_webservicecep.length)

RESPONSE.WRITE "<br>-----------------------------------------------------"

 

i = 0

WHILE (i < ASP_webservicecep.length)

RESPONSE.WRITE(ASP_uf.ITEM(i).text &"<br>")

RESPONSE.WRITE(ASP_cidade.ITEM(i).text &"<br>")

RESPONSE.WRITE(ASP_bairro.ITEM(i).text &"<br>")

RESPONSE.WRITE(ASP_tipo_logradouro.ITEM(i).text &"<br>")

RESPONSE.WRITE(ASP_logradouro.ITEM(i).text &"<br>")

RESPONSE.WRITE(ASP_resultado.ITEM(i).text)

i = i + 1

WEND

%>