Busca CEP

Srs.Segue

Set Obj = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")StrCEP = "02401-100"strURL = "http://www.correios.com.br/servicos/falecomoscorreios/ctBuscaEndereco.cfm?cep=" & strCEPObj.open "GET",strURL,FalseObj.send strHtml = Obj.responseText POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsEndereco = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.write dsEndereco & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsBairro = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.Write dsBairro  & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsCidade = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm + 1)Response.Write dsCidade & "<br>"POsINi = InStr(1, strHtml, "=")PosFIm = InStr(1, strHtml, ";")dsEstado = Mid(strHtml, POsINi + 3, PosFIm - POsINi - 4)strHtml = Mid(strHtml, PosFIm)Response.Write dsEstado & "<br>"