<%
Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
Set xmlResult = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlHttp.open "GET","http://www.buscarcep.com.br/?cep=35164049&formato=xml", true
xmlHttp.Send()
xmlHttp.waitForResponse 4
xmlHttp.waitForResponse 200
xmlResult.loadXML(xmlHttp.ResponseText)
resultado = xmlResult.selectSingleNode("/webservicecep/retorno/resultado").Text
if xmlHttp.ResponseText = "" or resultado = "-2" then
%><script>alert("CEP inválido");</script><%
else
resultado_txt = xmlResult.selectSingleNode("/webservicecep/retorno/resultado_txt").Text
uf = xmlResult.SelectNodes("//uf").item(0).Text
cidade = xmlResult.SelectNodes("//cidade").item(0).Text
bairro = xmlResult.SelectNodes("//bairro").item(0).Text
tipo_logradouro = xmlResult.SelectNodes("//tipo_logradouro").item(0).Text
logradouro = xmlResult.SelectNodes("//logradouro").item(0).Text
end if
set xmlHttp = nothing
set xmlResult = nothing
%>
Resultado: <%=resultado&" - "&resultado_txt%><br>
UF: <%=uf%><br>
Cidade: <%=cidade%><br>
Bairro: <%=bairro%><br>
Tipo logradouro: <%=tipo_logradouro%><br>
Logradouro: <%=logradouro%>
- linha 2 cria um objeto para enviar as informações para o Web Service
- linha 3 cria um objeto para fazer o load das informações
- linha 5 seta o método de envio, a url e o tipo de sincronia utilizado
- linha 6 envia as informações para o Web Service
- linhas 7 e 8 fazem a aplicação esperar ate obter uma resposta do Web Service (necessário se o modo de envio for assícrono)
- linhas 10 e 11 fazem o loading do xml retornado e seta uma informação do Web Service numa variavel necessária para verificarmos se o CEP é valido
- linhas 13 e 14 verificam se o CEP é valido, caso não seja mostra um alerta
- linhas 16 a 21 setam informações retornadas pelo Web Service em variáveis
- linhas 24 e 25 destroem os objetos criados
- linhas 28 a 33 mostram na tela o resultado retornado