Será que tem em algum lugar um script que funcionaria da seguinte maneira:
No site haveria um campo para a pessoa digitar o CEP dela, fazendo isso o script iria fazer uma busca no Banco de Dados e retornaria como resultado para a pessoa, endereço dos revendedores mais próximos do CEP que a pessoa digitou.... Alguém sabe se tem em algum lugar algum script parecido com esse já pronto??? Eu não entendo nada de ASP, e realmente tow precisando desse script... já o BD acho que é mais fácil criar não, seria apenas fazer no access com tabelas de nome do revendedor, endereço, tel, cep e, qdo disponivel, site... ou nem????
Valew,
Tiago
Alguém Já Viu Um Script Assim?
Started By
Cartman
, 21/05/2003, 15:17
2 replies to this topic
#2
ecbert
-
- Usuários
-
- 88 posts
Viver resume tudo!
- Sexo:Não informado
- Interesses:Viver!<br>...resume tudo.
Posted 22/05/2003, 07:44
Bom, vamos lá... Vou tentar ajudá-lo. Vc pode trabalhar basicamente com três arquivos: um formulário, um que conecta com o banco e o outro para fazer a busca...
então vamos ao form DigitaCep.asp:
Agora o arquivo de conexão com seu bd:
E agora o arquivo BuscaRevendedor.asp:
Não tive tempo de testar o buscaRevendedor.asp ok? Se tiver alguma falha pessoal, por favor, corrijam ok?
Espero que te ajude...
Até mais
então vamos ao form DigitaCep.asp:
<html> <head> <title>Pesquisa de revendedores</title> </head> <body> <form method="POST" action="BuscaCep.asp"> <p>Digite seu cep</p> <p> <input type="text" name="txtcep" size="20"> <input type="submit" value="Busca" name="btEnviar"> </p> </form> </body> </html>
Agora o arquivo de conexão com seu bd:
<%
'Variáveis
Dim StrCon 'String de conexão
Dim Conexao 'Objeto de conexão
Set Conexao = CreateObject("ADODB.CONNECTION")
Strcon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("nome do banco.mdb")
Sub AbreConexao()
Conexao.Open Strcon
end sub
Sub FechaConexao()
Conexao.close
end sub
%>E agora o arquivo BuscaRevendedor.asp:
<html>
<head>
<title>Lista revendedores</title>
<!--aqui o include do arquivo de conexão com o banco>
<!--#include virtual="/raiz do site/conecta.inc"-->
<%
AbreConexao
Dim rs 'Recordset
'//Montamos aqui o recordset que irá receber os valores do banco
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conexao.Execute("SELECT * from Revendedores" _
& " Where cep= '"& request.form("txtCep") & "'")
%>
<p>
<%
if rs.eof then
Response.write("Não existem revendedores para este cep.")
%>
</p>
<%else%>
<%
Do While Not rs.EOF
%>
<p><%=rs.Fields("Cep").Value%></p>
<p><%=rs.Fields("NomeRevendedor").Value%></p>
<p><%=rs.Fields("EndRevendedor").Value%></p>
<p>etc...</p>
<%
'//Fecha o Loop
rs.MoveNext
Loop
'//Fecha o recordset e libera os objetos
rs.Close
Set rs = Nothing
conexao.Close
Set conexao = Nothing
%>
<%end if%>
</html>Não tive tempo de testar o buscaRevendedor.asp ok? Se tiver alguma falha pessoal, por favor, corrijam ok?
Espero que te ajude...
Até mais
Elaine
WebDesigner e Produtora Multimídia
ecbert@ig.com.br
Por que cometer erros antigos se há tantos erros novos a escolher?
WebDesigner e Produtora Multimídia
ecbert@ig.com.br
Por que cometer erros antigos se há tantos erros novos a escolher?
#3
ecbert
-
- Usuários
-
- 88 posts
Viver resume tudo!
- Sexo:Não informado
- Interesses:Viver!<br>...resume tudo.
Posted 22/05/2003, 07:46
Só alterando uma coisa.... no action do formulário não é buscaCep.asp... é buscaRevendedor.asp.....ok?
Elaine
WebDesigner e Produtora Multimídia
ecbert@ig.com.br
Por que cometer erros antigos se há tantos erros novos a escolher?
WebDesigner e Produtora Multimídia
ecbert@ig.com.br
Por que cometer erros antigos se há tantos erros novos a escolher?
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
