[Resolvido] Lendo XML de outro Servidor

[Gilberto Jr 26]

Pessoal, tem esse webservice CEP de consulta de CEP.

 

Eu preciso recuperar esses valores e jogar em alguns campos, endereco, cidade, estado e cep. Passar esses valores para o campo do formulario.

 

Eu ja tentei de varias formas, e por ultimo achei esse exemplo da Locaweb mas mesmo assim nao consegui.Lendo xml de outro servidor.

 

Quando eu mudo a url apresenta a seguinte mensagem de erro:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário: 'raiz.childNodes.item(...).childNodes.item(...)'

[xanburzum 169]

Isso geralmente é porque você tentou fechar ou definir a nothing ua m objeto que não foi definido. Outra causa comum é usando a palavra chave SET para criar uma string, na maioria das vezes uma declaração SQL, por exemplo,

SET sql "SELECT FROM foo bar" =

 

O que leva ao seguinte:

 

Microsoft VBScript runtime (0x800A01A8)

Objeto necessário: '[string: "SELECT FROM foo bar"]'

 

Outra causa possível é usar um nome de objeto reservado como um nome de variável.

[Gilberto Jr 26]

O estranho é que quando eu pego o codigo fornecedido pela locaweb e mantenho ele com o link que eles mandaram funciona.

[xanburzum 169]

dá um response.write para ver o que esta sendo passado de valor

[Gilberto Jr 26]

Xan, eu fiz o response.write

response.Write(raiz.childNodes.item(i).childNodes.item(0).text)
response.End()

 

Ele me trouxe o resultado igual a 1.

 

Se eu dou um response.write no proximo item

response.Write(raiz.childNodes.item(i).childNodes.item(1).text)
response.End()

 

dai da a mensagem de erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário: 'raiz.childNodes.item(...).childNodes.item(...)'

[xanburzum 169]

O método Load XmlDocument pode solicitar um arquivo remoto.

 

 

Doc Dim New XmlDocument

 

doc.Load ("http://www.exemplo.com/teste.xml")

[Gilberto Jr 26]

Fala ae Xan

 

consegui aqui... segue abaixo o codigo completo

 

acho que seria legal postar no laboratorio

 

<%
set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.open "GET", "http://republicavirtual.com.br/web_cep.php?cep=29056220&formato=xml" & cat, false
xml.send

set objXML = xml.responseXML

set raiz = objXML.getElementsByTagName("webservicecep")
set resultado = objXML.getElementsByTagName("resultado")
set uf = objXML.getElementsByTagName("uf")
set cidade = objXML.getElementsByTagName("cidade")
set bairro = objXML.getElementsByTagName("bairro")
set tipo_logradouro = objXML.getElementsByTagName("tipo_logradouro")
set logradouro = objXML.getElementsByTagName("logradouro")

for i = 0 to raiz.length-1

response.Write(resultado.item(i).text&"<br>")
response.Write(uf.item(i).text&"<br>")
response.Write(cidade.item(i).text&"<br>")
response.Write(bairro.item(i).text&"<br>")
response.Write(tipo_logradouro.item(i).text&"<br>")
response.Write(logradouro.item(i).text&"<br>")

next

set xml = nothing
set objXML = nothing
%>

 

Valeu.

[xanburzum 169]

beleza mano,...

 

+1 resolvido