Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

filipescoob

busca Cep mais perto do informado

Por , em ASP Clássico

Recommended Posts

jrcardozo    4

jrcardozo
Postado

eu tenho a faixa de ceps mas não está a mão(se eu conseguir trago amanhã), porém vale salientar que as faixas não são fixas e podem mudar. O mais garantido seria comprar a base dos correios, mas é um absurdo os valores para se ter uma informação que é pública

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipescoob    1

filipescoob
Postado

Ted'k,

 

Apenas repassei a informação mas o topico continua tratando sobre o CEP inclusive estou em contato com o patrique para arrumar uma maneira de disponibilizar para a galera... mas o foco não mudou!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

codigo da faixa de cep por estado(está desatualizado mas serve de referencia)

<%
Function cepEstado(cep)
  Dim estado
cep = Clng(cep)
  estado = ""
  If cep >= 69900000 And cep <= 69999999 Then
	estado = "AC"
  ElseIf cep >= 57000000 And cep <= 57999999 Then
	estado = "AL"
  ElseIf cep >= 68900000 And cep <= 68999999 Then
	estado = "AP"
  ElseIf cep >= 69000000 And cep <= 69899999 Then
	estado = "AM"
  ElseIf cep >= 40000000 And cep <= 48999999 Then
	estado = "BA"
  ElseIf cep >= 60000000 And cep <= 63999999 Then
	estado = "CE"
  ElseIf cep >= 70000000 And cep <= 72799999 Then
	estado = "DF"
  ElseIf cep >= 29000000 And cep <= 29999999 Then
	estado = "ES"
  ElseIf cep >= 69300000 And cep <= 69399999 Then
	estado = "RR"
  ElseIf cep >= 72800000 And cep <= 76999999 Then
	estado = "GO"
  ElseIf cep >= 65000000 And cep <= 65999999 Then
	estado = "MA"
  ElseIf cep >= 78000000 And cep <= 78899999 Then
	estado = "MT"
  ElseIf cep >= 79000000 And cep <= 79999999 Then
	estado = "MS"
  ElseIf cep >= 30000000 And cep <= 39999999 Then
	estado = "MG"
  ElseIf cep >= 66000000 And cep <= 68899999 Then
	estado = "PA"
  ElseIf cep >= 58000000 And cep <= 58999999 Then
	estado = "PB"
  ElseIf cep >= 80000000 And cep <= 87999999 Then
	estado = "PR"
  ElseIf cep >= 50000000 And cep <= 56999999 Then
	estado = "PE"
  ElseIf cep >= 64000000 And cep <= 64999999 Then
	estado = "PI"
  ElseIf cep >= 20000000 And cep <= 28999999 Then
	estado = "RJ"
  ElseIf cep >= 59000000 And cep <= 59999999 Then
	estado = "RN"
  ElseIf cep >= 90000000 And cep <= 99999999 Then
	estado = "RS"
  ElseIf cep >= 78900000 And cep <= 78999999 Then
	estado = "RO"
  ElseIf cep >= 77000000 And cep <= 77999999 Then
	estado = "TO"
  ElseIf cep >= 88000000 And cep <= 89999999 Then
	estado = "SC"
  ElseIf cep >= 01000000 And cep <= 19999999 Then
	estado = "SP"
  ElseIf cep >= 49000000 And cep <= 49999999 Then
	estado = "SE"
  End If
cepEstado = estado
End Function


Function cepRegiao(cep, estado)
Dim regiao
	If estado = "AC" Then
	  If Int("1"&Left(cep,5)) >= 169900 And Int("1"&Left(cep,5)) <= 169920 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "AL" Then
	  If Int("1"&Left(cep,5)) >= 157000 And Int("1"&Left(cep,5)) <= 157099 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "AP" Then
	  If Int("1"&Left(cep,5)) >= 168900 And Int("1"&Left(cep,5)) <= 168909 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "AP" Then
	  If Int("1"&Left(cep,5)) >= 168925 And Int("1"&Left(cep,5)) <= 168929 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "AM" Then
	  If Int("1"&Left(cep,5)) >= 169000 And Int("1"&Left(cep,5)) <= 169099 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "BA" Then
	  If Int("1"&Left(cep,5)) >= 140000 And Int("1"&Left(cep,5)) <= 143849 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "BA" Then
	  If Int("1"&Left(cep,5)) >= 144450 And Int("1"&Left(cep,5)) <= 144470 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "CE" Then
	  If Int("1"&Left(cep,5)) >= 160000 And Int("1"&Left(cep,5)) <= 161699 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "CE" Then
	  If Int("1"&Left(cep,5)) >= 161900 And Int("1"&Left(cep,5)) <= 161939 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "DF" Then
	  If Int("1"&Left(cep,5)) >= 170000 And Int("1"&Left(cep,5)) <= 172919 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "DF" Then
	  If Int("1"&Left(cep,5)) >= 173000 And Int("1"&Left(cep,5)) <= 173699 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "DF" Then
	  If Int("1"&Left(cep,5)) >= 173750 And Int("1"&Left(cep,5)) <= 173757 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "DF" Then
	  If Int("1"&Left(cep,5)) >= 173800 And Int("1"&Left(cep,5)) <= 173816 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "ES" Then
	  If Int("1"&Left(cep,5)) >= 129000 And Int("1"&Left(cep,5)) <= 129184 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "GO" Then
	  If Int("1"&Left(cep,5)) >= 174000 And Int("1"&Left(cep,5)) <= 174999 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "GO" Then
	  If Int("1"&Left(cep,5)) >= 175250 And Int("1"&Left(cep,5)) <= 175259 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "GO" Then
	  If Int("1"&Left(cep,5)) >= 175380 And Int("1"&Left(cep,5)) <= 175384 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "MA" Then
	  If Int("1"&Left(cep,5)) >= 165000 And Int("1"&Left(cep,5)) <= 165099 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "MT" Then
	  If Int("1"&Left(cep,5)) >= 178000 And Int("1"&Left(cep,5)) <= 178169 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "MS" Then
	  If Int("1"&Left(cep,5)) >= 179000 And Int("1"&Left(cep,5)) <= 179124 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "MG" Then
	  If Int("1"&Left(cep,5)) >= 130000 And Int("1"&Left(cep,5)) <= 134999 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PA" Then
	  If Int("1"&Left(cep,5)) >= 166000 And Int("1"&Left(cep,5)) <= 167999 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PB" Then
	  If Int("1"&Left(cep,5)) >= 158000 And Int("1"&Left(cep,5)) <= 158099 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PB" Then
	  If Int("1"&Left(cep,5)) >= 158300 And Int("1"&Left(cep,5)) <= 158314 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PR" Then
	  If Int("1"&Left(cep,5)) >= 180000 And Int("1"&Left(cep,5)) <= 183189 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PR" Then
	  If Int("1"&Left(cep,5)) >= 180000 And Int("1"&Left(cep,5)) <= 183189 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PR" Then
	  If Int("1"&Left(cep,5)) >= 183300 And Int("1"&Left(cep,5)) <= 183349 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PR" Then
	  If Int("1"&Left(cep,5)) >= 183400 And Int("1"&Left(cep,5)) <= 183749 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PR" Then
	  If Int("1"&Left(cep,5)) >= 183800 And Int("1"&Left(cep,5)) <= 183939 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PE" Then
	  If Int("1"&Left(cep,5)) >= 150000 And Int("1"&Left(cep,5)) <= 153989 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PE" Then
	  If Int("1"&Left(cep,5)) >= 154000 And Int("1"&Left(cep,5)) <= 154799 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "PI" Then
	  If Int("1"&Left(cep,5)) >= 164000 And Int("1"&Left(cep,5)) <= 164099 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "RJ" Then
	  If Int("1"&Left(cep,5)) >= 120000 And Int("1"&Left(cep,5)) <= 123799 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "RJ" Then
	  If Int("1"&Left(cep,5)) >= 124000 And Int("1"&Left(cep,5)) <= 124799 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "RN" Then
	  If Int("1"&Left(cep,5)) >= 159000 And Int("1"&Left(cep,5)) <= 159149 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "RS" Then
	  If Int("1"&Left(cep,5)) >= 190000 And Int("1"&Left(cep,5)) <= 191999 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "RO" Then
	  If Int("1"&Left(cep,5)) >= 178900 And Int("1"&Left(cep,5)) <= 178924 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "RR" Then
	  If Int("1"&Left(cep,5)) >= 169300 And Int("1"&Left(cep,5)) <= 169339 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "SC" Then
	  If Int("1"&Left(cep,5)) >= 188000 And Int("1"&Left(cep,5)) <= 188139 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "SC" Then
	  If Int("1"&Left(cep,5)) >= 188140 And Int("1"&Left(cep,5)) <= 188149 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "SC" Then
	  If Int("1"&Left(cep,5)) >= 188160 And Int("1"&Left(cep,5)) <= 188179 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "SP" Then
	  If Int("1"&Left(cep,5)) >= 101000 And Int("1"&Left(cep,5)) <= 109999 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "SE" Then
	  If Int("1"&Left(cep,5)) >= 149000 And Int("1"&Left(cep,5)) <= 149099 Then regiao = "capital" Else regiao = "interior"
	ElseIf estado = "TO" Then
	  If Int("1"&Left(cep,5)) >= 177000 And Int("1"&Left(cep,5)) <= 177299 Then regiao = "capital" Else regiao = "interior"
	End If
cepRegiao = regiao
End Function

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lúcio Gomes    0

Lúcio Gomes
Postado

Olá Jonathan. Me interessei pelo código da faixa de cep por estado. Me pareceu uma função muito boa, mas gostaria de mais detalhes sobre essa utilização e sobre o que você disse de estar desatualizada.

 

E também, não é possível identificar pela cidade mais próxima? Expandindo essa função?

 

Pois no meu caso, tenho um site onde as lojas (redistribuidores) são todos da mesma região (tudo do interior de São Paulo), e acho que essa função não iria distinguir isso, ou estou enganado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Lúcio Gomes, sugiro que crie um tópico especifico para sua dúvida, pois não é permitido postagem de dúvida em tópico alheio, mesmo que haja relação.

 

 

Tópico Movido.

 

Origem: Empregos / Currículos / Parcerias e Negócios » Negócios http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito