Acessando Web Services com ASP

1.  <%
2.  Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
3.  Set xmlResult = Server.CreateObject("MSXML2.DomDocument.3.0")
4. 
5.  xmlHttp.open "GET","http://www.buscarcep.com.br/?cep=35164049&formato=xml", true
6.  xmlHttp.Send()
7.  xmlHttp.waitForResponse 4
8.  xmlHttp.waitForResponse 200
9. 
10. xmlResult.loadXML(xmlHttp.ResponseText)
11. resultado = xmlResult.selectSingleNode("/webservicecep/retorno/resultado").Text
12.
13. if xmlHttp.ResponseText = "" or resultado = "-2" then
14.     %><script>alert("CEP inválido");</script><%
15. else
16.     resultado_txt = xmlResult.selectSingleNode("/webservicecep/retorno/resultado_txt").Text
17.     uf = xmlResult.SelectNodes("//uf").item(0).Text
18.     cidade = xmlResult.SelectNodes("//cidade").item(0).Text
19.     bairro = xmlResult.SelectNodes("//bairro").item(0).Text
20.     tipo_logradouro = xmlResult.SelectNodes("//tipo_logradouro").item(0).Text
21.     logradouro = xmlResult.SelectNodes("//logradouro").item(0).Text
22. end if
23.
24. set xmlHttp = nothing
25. set xmlResult = nothing
26. %>
27.
28. Resultado: <%=resultado&" - "&resultado_txt%><br>
29. UF: <%=uf%><br>
30. Cidade: <%=cidade%><br>
31. Bairro: <%=bairro%><br>
32. Tipo logradouro: <%=tipo_logradouro%><br>
33. 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

obs.: o Web Service usado consta só para exemplo