Ir para conteúdo

POWERED BY:

Arquivado

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

kaplan

busca

Por , em ASP Clássico

Recommended Posts

kaplan    0

kaplan
Postado

Fala galera beleza??

 

montei uma busca simples com asp e sql, so tem um problema pareçe que ele esta trazendo toda a informação do banco de dados.........tipo eu vou pesquisar por nome coloco tiago, ele traz tudo que é tiago e que naum é, pq sera?

 

olha o codigo ai

ASP

[*]

 

[*]<%@LANGUAGE="VBSCRIPT" %>

 

[*]<html>

 

[*]<head>

 

[*]<title>Busca</title>

 

[*]</head>

 

[*]<body>

 

[*]<%

 

[*]Dim Sql

 

[*]Set Conn = Server.CreateObject("ADODB.Connection")

 

[*]Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Visitantes.mdb")

 

[*]

 

[*]Sql = "Select * From Visitas"

 

[*]

 

[*] If Request.Form("Campo") = "Nome" Then

 

[*]  Sql = Sql & " Where Nome Like '%" & Request.Form("Criterio") & "%'"

 

[*] End If

 

[*] If Request.Form("Campo") = "Email" Then

 

[*]  Sql = Sql & " Where Email Like '%" & Request.Form("Criterio") & "%'"

 

[*] End If

 

[*] If Request.Form("Campo") = "Mensagem" Then

 

[*]  Sql = Sql & " Where Mensagem Like '%" & Request.Form("Criterio") & "%'"

 

[*] End If

 

[*]

 

[*] Set Rs = Server.CreateObject("ADODB.Recordset")

 

[*] Rs.Open Sql, Conn, 3

 

[*]%>

 

[*]<%

 

[*] If Rs.BOF and Rs.EOF Then

 

[*]  %>

 

[*]  <h2 align="center">Nenhuma informação localizada ! </h2>

 

[*]  <hr>

 

[*]  <center><a href="busca.htm">Retorna</a></center>

 

[*]  <%

 

[*] Else

 

[*]  If Not Rs.BOF Then

 

[*]  %>

 

[*]  <h2>Resultado da Busca:</h2>

 

[*]  <hr>

 

[*]  <table border="0" width="100%" cellpadding="3">

 

[*]  <%

 

[*]  Do While Not Rs.EOF

 

[*]  %>

 

[*] <tr>

 

[*]  <td><b>Nome : </b>

 

[*]  <%=Rs("Nome")%>  </td>

 

[*]  <td><b>E-mail : </b>

 

[*]  <%=Rs("Email")%></td>

 

[*]  <td><b>Mensagem: </b>

 

[*]  <%=Rs("Mensagem")%></td>

 

[*] </tr>

 

[*] <hr>

 

[*] <tr>

 

[*]  <td><a href="mailto:<%=Rs("Email")%>"><%=Rs("Email")%></a></td>

 

[*] </tr>

 

[*] <%

 

[*]  Rs.MoveNext

 

[*]  Loop

 

[*]  %>

 

[*]  <center><a href="busca.htm">Retorna</a></center>

 

[*]  </table>

 

[*]  <%

 

[*]  End If

 

[*] End If

 

[*]

 

[*]Rs.Close

 

[*]Conn.Close

 

[*]%>

 

[*]</body>

 

[*]</html>

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

globim    0

globim
Postado

If Request.Form("Campo") = "Nome" Then    Sql = Sql & " Where Nome Like '%" & Request.Form("Criterio") & "%'"  End If  If Request.Form("Campo") = "Email" Then    Sql = Sql & " Where Email Like '%" & Request.Form("Criterio") & "%'"  End If  If Request.Form("Campo") = "Mensagem" Then    Sql = Sql & " Where Mensagem Like '%" & Request.Form("Criterio") & "%'"  End If

se eu nao me ingano você tem que muar essa parte ai pra nao tzer tudo e provavelmente eh o que tem char ^^]abraços []'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

verifica se esta vindo algo nos requestsao que parece estao vindo vazios e não concatena com os wheres...

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