<% Response.Charset="ISO-8859-1" Set CEP_obj = CreateObject("Correios.CEP") CEP_obj.EncontraCEP(Trim(Request("CEP"))) If CEP_obj.Erro = 0 Then endereco = CEP_obj.Endereco bairro = CEP_obj.Bairro cidade = CEP_obj.Cidade estado = CEP_obj.Estado cep = CEP_obj.CEP response.write endereco&","&bairro&","&cidade&","&estado&"," Else erro_descricao = CEP_obj.DescricaoErro End If Set CEP_obj = Nothing %>