Ir para conteúdo

POWERED BY:

Arquivado

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

Ivan.Teles

Preenchimento de endereço automático via Ajax

Por , em ASP Clássico

Recommended Posts

Ivan.Teles    23

Ivan.Teles
Postado

Adaptei um sistema, onde o usuário entra com o cep e ele pega o endereço e a cidade. e joga o resultado em um input text. funciona na boa.

 

mas o que eu queria era jogar o endereço em um local e a cidade no outro.

 

dêem uma olhada pra ver se da pra fazer ou não.

 

default.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="banco.asp" -->
<% Session.LCID = 1046 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>VISANET</title>
<script src="js.js" type="text/javascript"></script>
<script type="text/javascript" language="javascript">
   var http_request = false;
   function testarMail(mail) {
	   http_request = false;
	   if (window.XMLHttpRequest) { 
		   http_request = new XMLHttpRequest();
		   if (http_request.overrideMimeType) {
			   http_request.overrideMimeType('text/xml');
		   }
	   } else if (window.ActiveXObject) {
		   try {
			   http_request = new ActiveXObject("Msxml2.XMLHTTP");
		   } catch (e) {
			   try {
				   http_request = new ActiveXObject("Microsoft.XMLHTTP");
			   } catch (e) {}
		   }
	   }

	   if (!http_request) {
		   alert('Erro.');
		   return false;
	   }
	   http_request.onreadystatechange = resultado;
	   http_request.open('GET', mail, true);
	   http_request.send(null);

   }

   function resultado() {

	   if (http_request.readyState == 4) {
		   if (http_request.status == 200) {

					 document.getElementById("endereco").value =  http_request.responseText;
					 document.getElementById("cidade").value =  http_request.responseText;

		   }
	   }

   }
</script>
</head>
<body>
<form method="post" id="form1" name="form1" action="">
  <div align="center">
	<table cellpadding="2" cellspacing="0" class="KT_tngtable">
	  <tr>
		<td colspan="2"></td>
	  </tr>
	  <tr>
		<td><label for="id">CEP</label></td>
		<td><div align="left">
		  <input type="text" name="cep" id="cep" size="32" onKeyUp="testarMail('verifica.asp?cep='+document.getElementById('cep').value);return false;" /> <SPAN id="verificaemail"></SPAN></div></td>
	  </tr>
	  <tr>
		<td><label for="senha">Endereço:</label></td>
		<td><div align="left">
		  <input type="text" name="endereco" id="endereco" size="32" />
		</div></td>
	  </tr>
	  <tr>
		<td>Cidade</td>
		<td><input type="text" name="cidade" id="cidade" size="32" /></td>
	  </tr>
	  <tr>
		<td> </td>
		<td><div align="left">
		  <input type="submit" class="bt" name="submit" id="submit" value="Cadastrar" />
		</div></td>
	  </tr>
	</table>
  </div>
</form>
</body>
</html>

 

verifica.asp

<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\sites\ende\cepbr.mdb"
Conexao.Open ConStr

cep = request("cep")
If cep <> "" Then
	Set rs = Conexao.Execute("SELECT nome, bai_ini, cep FROM cep WHERE cep = '"& cep &"'")
		nome = rs("nome")
		bai_ini = rs("bai_ini")
			If NOT  rs.eof Then
			Response.Write ""&nome&""&  Vbcrlf
			Response.Write ""&nome&""
			else
			Response.Write("Não localizado")
			end if

Else

Response.Write("")

End if

Conexao.Close %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

O q eu estou querendo é o seguinte.

com essa linha

 

Response.Write ""&nome&""& Vbcrlf

Response.Write ""&nome&""

 

eu escrevo nome da cidade duas vezes, em dois locais diferentes

 

document.getElementById("endereco").value = http_request.responseText;

document.getElementById("cidade").value = http_request.responseText;

 

eu queria que ele escrevesse uma cidade em cada.

 

por que ele escreve a mesma coisa nos dois.

 

eu queria que ficasse assim

 

endereço: nome_da_cidade

cidade: nome_da_cidade

 

 

Response.Write ""&nome&""& Vbcrlf --> esse fosse pro campo endereço

Response.Write ""&nome&"" ---> esse pro campo cidade

 

 

 

so que faz assim

 

endereço: nome_da_cidade nome_da_cidade

cidade: nome_da_cidade nome_da_cidade

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

queria que ficasse + ou - assim

 

na pagina verifica asp.

Response.Write ""&nome&""& Vbcrlf --> resposta 1

Response.Write ""&nome&"" ---> resposta 2

 

e na default ele setasse os resultados assim.

 

endereço: resposta 1

cidade: resposta 2

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