Ir para conteúdo
Fórum Script Brasil
  • 0

Pesquisa

marcelo

Perguntado por marcelo,

 Share

Pergunta

marcelo

marcelo

Postado
Postado

Bem amigos queria uma ajudinha de voces se for possivel.

Esse codico ae é o da pagina de pesquisa. E o de fazer a busca esta abaixo do outro codico. Com dois menu de opção e um textfield para digitar o enderenço.

Exemplo:. Eu escolho no TipoArea = FARMACIA no TipoCidade = PALMAS no campo = CENTRO.Que esse ultimo é o enderenco que eu digito. Dai queria que aparece só as farmacias de palmas que tem enderenco no centro.

---- CODE DA PAGINA DE PESQUISA -----

<html>
<head>
<title>Grandes Negocios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="menu.css" rel="stylesheet" type="text/css">
</head>

<body>
<p><font face="Courier New, Courier, mono"><em>Busca R&aacute;pida</em></font></p>
<p> 
<form method="get" action="ir.asp">  
<select name="TipoArea" class="menu">
    <option selected>Selecione aqui</option>
    <option>Loja de Cosm&eacute;ticos</option>
    <option>Farm&aacute;cias</option>
    <option>Hoteis</option>
    <option>Restaurantes</option>
  </select>
  <select name="TipoCidade" class="menu">
    <option selected>Selecione a Cidade</option>
    <option>Palmas</option>
    <option>Gurupi</option>
    <option>Araguaina</option>
    <option>Para&iacute;so</option>
  </select>
  <input name="campo" type="text" class="menu">
  <input name="Ir" type="submit" class="botum" id="Ir" value="ir" >
</form>
</p>
</body>
</html>
---- CODE DA PAGINA DE BUSCA CHAMADA ir.asp ------ 
<%@LANGUAGE = VbScript%>
<% option explicit %>
<html>
<head>
<title>Acessando Banco de Dados</title>
</head>
<body>
<%
 ' *** Variaveis que vão conectar com a pagina grande.asp ***
 dim PesquisaCidade, texto,  cont
 dim PesquisaArea
 ' *** Variavel de Conexao com o Banco  de Dados *** 
 dim conGrande, cntCaminho,strConn
 ' *** Variavel de Abertura da Tabela *** 
 dim recBusca

 PesquisaCidade = (Request.QueryString ("TipoCidade"))
 texto          = (Request.QueryString ("campo"))
 PesquisaArea   = (Request.QueryString ("TipoArea"))


 ' *** Constante para informar o Banco de Dados ***
  cntCaminho = "C:\Inetpub\wwwroot\grande.mdb"
 ' *** Cria um objeto de Conexao (Connection) ***
 Set conGrande = Server.CreateObject ("ADODB.Connection")
 ' *** Crie um objeto Recordsert ***
 ' Recorset = é uma variavel no caso recAmigos que contera
 ' dados da tabela empresa.
 Set recBusca = Server.CreateObject ("ADODB.Recordset")


 strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& cntCaminho &";"
 conGrande.Open (strConn) 
 ' *** Abrir a Tabela Amigos  = 
 ' - Abrir a Tabela armazenada na variavel do recorset
 ' - Nome da conexão usada  
  recBusca.Open "Busca",conGrande
  
  if  PesquisaArea = "Farmacias" and PesquisaCidade = "Palmas" then 
  recBusca.Open "SELECT * FROM Busca WHERE Tipo = 'Farmacia' AND Cidade='Palmas' AND Enderenco  like '%"&texto&"%'" ,conGrande
  end if 

  if (PesquisaArea = "Loja de Cosmetico" and PesquisaCidade = "Palmas") then 
  recBusca.Open  "SELECT * FROM Busca where (Tipo = 'Loja de Cosmetico' and Cidade='Palmas' and  Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Hoteis" and PesquisaCidade = "Palmas") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Hoteis' and PesquisaCidade='Palmas' and  Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Restaurante" and PesquisaCidade = "Palmas") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Restaurante' and PesquisaCidade='Palmas' and  Enderenco like '%"&texto&"%')",conGrande
  end if

  if (PesquisaArea = "Loja de Cosmetico" and PesquisaCidade = "Gurupi") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Loja de Cosmetico' and PesquisaCidade='Palmas' and Enderenco like '%"&texto&"%')",conGrande
  end if

  if (PesquisaArea = "Farmacia" and  PesquisaCidade = "Gurupi") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Farmacia' and PesquisaCidade='Gurupi' and Enderenco like '%"&texto&"%')",conGrande
  end if 

  if (PesquisaArea = "Restaurante" and PesquisaCidade = "Gurupi") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Restaurante' and PesquisaCidade='Gurupi'and Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Hoteis" and PesquisaCidade = "Gurupi") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Hoteis' and PesquisaCidade='Gurupi'and Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Farmacia" and PesquisaCidade = "Paraiso") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Farmacia' and PesquisaCidade='Paraiso' and Enderenco like '%"&texto&"%')",conGrande
  end if 

  if (PesquisaArea = "Loja de Cosmetico" and PesquisaCidade = "Paraiso") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Loja de Cosmetico' and PesquisaCidade='Paraiso' and Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Hoteis" and PesquisaCidade = "Paraiso") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Hoteis' and PesquisaCidade='Paraiso' and Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Restaurante" and PesquisaCidade = "Paraiso") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Restaurante' and PesquisaCidade='Paraiso' and Enderenco like '%"&texto&"%')",conGrande
  end if
  
  
  if (PesquisaArea = "Farmacia" and PesquisaCidade = "Araguaina") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Farmacia' and PesquisaCidade='Araguaina' and Enderenco like '%"&texto&"%')",conGrande
  end if 

  if (PesquisaArea = "Loja de Cosmetico" and PesquisaCidade = "Araguaina") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = ' Loja de Cosmetico' and PesquisaCidade='Araguaina' and Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Hoteis" and PesquisaCidade = "Araguaina") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Hoteis' and PesquisaCidade='Araguaina' and Enderenco like '%"&texto&"%')",conGrande
  end if
  
  if (PesquisaArea = "Restaurante" and PesquisaCidade = "Araguaina") then 
  recBusca.Open  "SELECT * FROM Busca where (PesquisaArea = 'Restaurante' and PesquisaCidade='Araguaina' and Enderenco like '%"&texto&"%')",conGrande
  end if
  'if (PesquisaArea = "" and PesquisaCidade = "") then 
  'response.Write("Digite denovo o enderenço")
  

%>
<%
cont = 0 
Do While Not RecBusca.EOF
cont = cont + 1

   Response.Write "Cidade escolhida: " & PesquisaCidade & "</B><br>"
   Response.Write "A Area escolhida: " & PesquisaArea & "</B><br>"
    Response.Write "Nome:"
   Response.Write "<B>" & recBusca ("Nome") & "</B><br>"
   Response.Write recBusca ("Enderenco") & "<br>"
   Response.Write recBusca ("Cidade") & "<br>" 
   Response.Write "<br>" & recBusca ("Enderenco") & "<br>"
   Response.Write "<br>" & recBusca ("Pagina") & "<br>"
   Response.Write recBusca ("Telefone") & "<P><HR<P>"
   Response.Write("<p><hr><p>")
  
   Recbusca.Movenext 
   Loop

   Response.Write " <p><font color='red' size='3' face='arial'> <b> " & "Foram  encontrado " & cont & " ocorrencia do enderenco " &texto & "</b></font></p>"
   Response.Write "<font color ='black' size = '2' face = 'arial'><b>" & "Pesquisa   por:" &PesquisaCidade&  " e " &PesquisaArea & "</b></font><br>"
   recBusca.Close
   recGrande.Close
   %>
</body>
</html>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,5k
    • Posts
      652,4k
×
×
  • Criar Novo...