Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa noite pessoas,
estou com uma dúvida aqui, é o seguinte, tenho uma página de cadastro e nela tem busca de CEP com retorno sincronizado... AJAX né..rs
Pois é... pra mim pegar o CEP, eu sempre faço um submit...
A questão é o seguinte, toda vez que faço o submit pra rodar a página q busca o CEP, todos os dados já preenchidos do form vão pro beleléu...
Tem como eu fazer uma requisição usando xmlhttp dentro de outra?...
a requisição q faço do CEP é da Republica Virtual.. vou postar o código;
<!--"CadCep.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<% ON ERROR RESUME NEXT '
' Função de busca de Endereço pelo CEP
' - Desenvolvido Felipe Olivaes para ajaxbox.com.br
' - Adaptação de exemplo para utilização com ASP por Otávio Nogueira
' - Utilizando WebService de CEP da republicavirtual.com.br
'
dim i, sT, sR
function busca_cep( cep )
url = "[http://republicavirtual.com.br/web_cep.php?cep="&](http://republicavirtual.com.br/web_cep.php?cep=) cep &"&formato=query_string"
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
xmlhttp_resultado = xmlhttp.responseText
set xmlhttp = nothing
arr_resultado = split( xmlhttp_resultado, "&" )
dim resultado(7)
for i = lbound( arr_resultado ) to ubound( arr_resultado )
resultado( i ) = arr_resultado( i )
next
arr = split( join( resultado, "=" ), "=" )
dim arr_2(14)
for i = lbound( arr ) to ubound( arr )
arr_2( i ) = replace( arr( i ), "+", " " )
next
busca_cep = arr_2
end function
'
' Exemplo de utilização
'
'Vamos buscar o CEP 90020022
CEP=request.form("CobCep")
resultado = busca_cep( CEP )
'VALIDAR OS CARACTERES ESPECIAIS RECEBIDO POR QUERY
select case resultado( 2 )
case "2"
texto = " "&_
"<br>Cidade com logradouro único" &_
"<br><b>Cidade: </b> "&resultado( 8 ) &" "&_
"<br><b>UF: </b> "&resultado( 5 )
case "1"
texto = " "&_
"<br>Cidade com logradouro completo "&_
"<br><b>Tipo de Logradouro: </b> "&resultado( 12 ) &" "&_
"<br><b>Logradouro: </b> "&resultado( 14 ) &" "&_
"<br><b>Bairro: </b> "&resultado( 10 ) &" "&_
"<br><b>Cidade: </b> "&resultado( 8 ) &" "&_
"<br><b>UF: </b> "&resultado( 6 )
case else
texto = "Falha ao buscar cep: "& resultado( 4 )
end select
'response.write texto
%>
Tem como eu executar isso sem precisar fazer um submit?
meu form ta assim
<!--FORMULARIO CADASTRO.ASP-->
<form name="form" method="post" action="Cadastro.asp">
<% if request.form("enviar")="send" then%>
<!--#include file="CadCep.asp"-->
<%if CIDADE="" then
msg2="CEP Inválido."
funcaocep=1
else
session("cadcidade")=CIDADE
session("cadestado")=UF
session("cadendereco")=LOGRAD
session("cadtipoendereco")=TIPOLOGR
session("cadbairro")=BAIRRO
session("cadcep")=request.Form("CadCep")
end if
end if%>
CEP: <input name="CobCep" type="texto" class="box-buscar" id="CobCep" size="30" >
<input type="submit" value="Pesquisar" class="box-buscar-OK">
<input type="hidden" value="send" name="enviar"></FORM>Carregando comentários...