Sistema De Busca

iskecy · Outubro 2, 2004

Ola galera, gostaria de criar um sistema de busca... com 3 menus ! um de nome, outro idade e cidade e que o resultado seja na mesma pagina... ate agora criei um so que pega somente um menu.. os outros 2 n ta realizando a busca vou por aki o codigo de como ta! o que devo fazer para que os outros 2 menus pegue do bd.. Queria o resultado: quando eu escolher o primeiro, segundo e terceiro menu e clicar em buscar ele prestasse exatamente como eu quis q a busca fosse realizada

Vai ae o codigo de ond já consegui xegar:

<TABLE ALIGN="LEFT" VALIGN="TOP" WIDTH="572" BORDER="0" cellspacing="4"> 
<tr>
	<TD valign="top" width="560"> 
<DIV STYLE="font-family: verdana; font-size: 8pt; width: 559; height: 75"> 
    <form method=POST action="localidades.asp">
     <font size="2">
<p align="center">Estaddo<select size="1" name="estado">
      <option>AC</option>
      <option>AL</option>
      <option>AP</option>
      <option>AM</option>
      <option>BA</option>
      <option>CE</option>
      <option>DF</option>
      <option>ES</option>
      <option>GO</option>
      <option>MA</option>
      <option>MT</option>
      <option>MS</option>
      <option>MG</option>
      <option>PA</option>
      <option>PB</option>
      <option>PR</option>
      <option>PE</option>
      <option>PI</option>
      <option>RJ</option>
      <option>RN</option>
      <option>RS</option>
      <option>RO</option>
      <option>RR</option>
      <option>SC</option>
      <option>SP</option>
      <option>SE</option>
      <option>TO</option>
    </select></p>
<blockquote>
<p align="center">Idade:<select size="1" name="idade">
      <option>11</option>
      <option>12</option>
      <option>13</option>
      <option>14</option>
      <option>15</option>
      <option>16</option>
      <option>17</option>
      <option>18</option>
      <option>19</option>
      <option>20</option>
      <option>21</option>
      <option>22</option>
      <option>23</option>
      <option>24</option>
      <option>25</option>
      <option>26</option>
      <option>27</option>
      <option>28</option>
      <option>29</option>
      <option>30</option>
      <option>31</option>
      <option>32</option>
      <option>33</option>
      <option>34</option>
      <option>35</option>
      <option>36</option>
      <option>37</option>
      <option>38</option>
      <option>39</option>
      <option>40</option>
      <option>41</option>
      <option>42</option>
      <option>43</option>
      <option>44</option>
      <option>45</option>
      <option>46</option>
      <option>47</option>
      <option>48</option>
      <option>49</option>
      <option>50</option>
      <option>51</option>
      <option>52</option>
      <option>53</option>
      <option>54</option>
      <option>55</option>
      <option>56</option>
      <option>57</option>
      <option>58</option>
      <option>59</option>
      <option>60</option>
      <option>61</option>
      <option>62</option>
      <option>63</option>
      <option>64</option>
      <option>65</option>
      <option>66</option>
      <option>67</option>
      <option>68</option>
    </select><font face="Arial">
<br>
<select size="1" name="localtexto">
  <option value="SOLTEIRO">SOLTEIRO</option>
  <option>ENROLADO</option>
  <option>NAMORANDO</option>
  <option>NOIVO(A)</option>
  <option>CASADO(A)</option>
</select><select size="1" name="localtipo">
  <option value="localnome">Estado Civil</option>
</select>
</font>

<INPUT TYPE=SUBMIT VALUE="Localizar"> 
</blockquote>
</form>
     
     
     
     
     
     
     
     
  </DIV> 
</font>
	</TD> 
</tr>
<TR> 
	<TD valign="top" width="560"> 
<font size="2" face="Arial">

<% if Request.Form("localtipo") <> "" Then 

  Dim textoqueveio, tipoSQL
   textoqueveio = Trim(Request("localtexto"))    

    if Request("localtipo") = "localnome" then 
      Dim user1SQL
       user1SQL = "SELECT * FROM tabelatotal WHERE nome LIKE '%" & textoqueveio & "%' ORDER BY nick"
       tipoSQL = user1SQL
    end if

    if Request("localtipo") = "localnick2" then 
      Dim user2SQL
       user2SQL = "SELECT * FROM tabelatotal WHERE nick LIKE '%" & textoqueveio & "%' ORDER BY nick"
       tipoSQL = user2SQL
    end if

    if Request("localtipo") = "op" then  
      Dim SQLoperadores
    	SQLoperadores = "SELECT * FROM tabelatotal WHERE (situacao = 2) OR (situacao = 3) ORDER BY nick"
      tipoSQL = SQLoperadores
    end if
       

	Dim userRS
	Set userRS = Server.CreateObject("ADODB.Recordset")
	userRS.Open tipoSQL, objcon

  Dim hoje
  hoje = Year(Date())
  
  Dim contador
   contador = 0
  do While Not userRS.EOF 
%>
<hr size="1" width="70%">
</font>  
<p align="center">

<font size="1" face="Arial">

<b>Nome</b>: <%= userRS("nick")%>   <b>E-mail</b><font color="#000080">: <%= userRS("email")%>
 </font> <b>Idade</b>: <% If userRS("anoniver") <> "" then Response.Write hoje - userRS("anoniver") else Response.Write userRS("anoniver") end if%><br>
<b>Estado Civil</b>:
<font color="#800000">
<%= userRS("nome")%>   &nbsp;</font>
<br>
<b>Perfil</b>: <%= userRS("perfil")%>   &nbsp;<br>
<b>Peso</b>:<%= userRS("peso")%> <b>Altura</b>:<%= userRS("altura")%> <b>Cor da Pele</b><%= userRS("cor")%><br>
<b>
Ocupação</b><br><%= userRS("ocupa")%>
 <b>Cidade</b>: <%= userRS("cidade")%>  <b>Estado</b>: <%= userRS("estado")%><br>
</font>  
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="1" bgcolor="#FFCF9F">
        <tr>
          <td width="100%">
            <p align="center"> 
<font size="1" face="Arial">

<b>
Procuro por:</b>
</font>  
          </td>
        </tr>
        <tr>
          <td width="100%">
            <p align="center"><font face="Arial" size="1"><%= userRS("procuro")%></font></td>
        </tr>

        <tr>
          <td width="100%">
            <p align="center"> 
<font size="1" face="Arial">

<b>Entre</b>: <%= userRS("entre")%>  <b>Altura</b>: <%= userRS("alturade")%>  <b>Peso</b>:
<%= userRS("pesode")%>  <b>Físico</b>: <%= userRS("fisico")%>
</font>  </td>
        </tr>
        <tr>
          <td width="100%">
            <p align="center"> 
<font size="1" face="Arial">

<b>
Para Relacionamento</b>: <%= userRS("relacionamento")%>
</font>  </td>
        </tr>
        <tr>
          <td width="100%">
            <p align="center"> 
<font size="1" face="Arial">

<b>
Que More na Cidade</b>: <%= userRS("onde")%>
</font>  </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<p align="center">

<b>Blog</b>: <%= userRS("site")%><br> <% userRS.MoveNext 
contador = contador + 1
Loop 
userRS.close
Set userRS = Nothing

end if %> 
<hr size="1" width="70%">
<p align="center">

 Resultados encontrados: <%= contador %>
</font>  </TD> 
</TR> 
</TABLE> 

  </TD> 
 </TR> 
 <tr> 
   <td width="367" height="22" background="cdown2.gif" align="center"> 
  &nbsp; 
  </TD> 
 </TR> 
</TABLE>

Gostaria q o resultado fosse dos 3 menus ....

Quem puder me ajudar ficaria grato

Editado Outubro 4, 2004 por cyberalexxx

rzilnet · Outubro 4, 2004

Meu amigo,

esse seu código mais parece uma novela, e daquelas que não acabam mais. Mas, mesmo assim, vou dar uma analizada. Isso é porque, hoje, estou bonzinho.

bareta · Outubro 4, 2004

utilize as tags code e quote..... você deve alterar seu sql que faz a busca... utilizando alguns ifs de acordo com o que o user digitar.....

você quer algo assim:

http://www.cgmotion.com/edson/form_consulta.asp

iskecy · Outubro 4, 2004

Isso Bareta.. !! se possivel me disponibilize essa pagina !!

Um abraço!

rzilnet · Outubro 5, 2004

Apesar de muito extenso, já consegui entender seu código. Estou desenvolvendo sistema que utiliza método bem semelhante, porém, com mais praticidade.

Só que agora estou sem tempo para te passar uma resposta. Vou fazer isso à noite e transmito o resultado assim que possível, talvez amanhã.

iskecy · Outubro 5, 2004

ok mano! fico agradecido !! um abraço ! qualquer coisa e-mail! iskecy@hotmail.com ou webmaster@chatpa.com.br

Abraços!

bareta · Outubro 5, 2004

Isso Bareta.. !! se possivel me disponibilize essa pagina !!
Um abraço!

e ai beleza??? quando o sistema estiver pronto te passo todos os arquivos...... hehehehe

Entrar

Sistema De Busca

Pergunta

iskecy

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

rzilnet

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

iskecy

Link para o comentário

Compartilhar em outros sites

rzilnet

Link para o comentário

Compartilhar em outros sites

iskecy

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades