Resultado da busca mostra mais do que deve

[Argos 0]

Tenho uma busca de vistorias de carro em um site, mas ela está ordenando o resultado, não mostrando apenas o que procurei.

 

Exemplo:

tenho no banco, uno branco, uno preto, corsa verde.

Ao buscar por uno, aparecem os unos em primeiro e o corsa em seguida.

 

Já cansei de olhar o código e não acho onde consertar

 

<%
If Session("logado") = true then
if Request.QueryString("usuario")= "" then
Response.Write("Voce precisa estar logado")
Else

Dim rec1
rec1 = "1"
If (Request.Form("busca") <> "") Then 
  rec1 = Request.Form("busca")
End If
%>
<%
Dim rcs1
Dim rcs1a

Set rcs1 = Server.CreateObject("ADODB.recordset")
rcs1.ActiveConnection = strCon
rcs1.Source = "SELECT * FROM vistorias WHERE marca = '" + Replace(rec1, "'", "''") + "'"
rcs1.CursorType = 0
rcs1.CursorLocation = 2
rcs1.LockType = 1
rcs1.Open()

rcs1a = 0
%>
        
<form method="POST" action="vistorias.asp?usuario=<%=Request.QueryString("usuario")%>">
Procurar
<input type="text" name="string_busca" value="<%=Request("string_busca")%>">
em 
<label>
<select name="criterio">
  <option value="Cliente">Cliente</option>
  <option value="Marca">Marcas</option>
  <option value="Modelo">Modelos</option>
  <option value="Placa">Placas ou Chassis</option>
</select>
</label>
<input type='submit' value='Buscar'>
</form>
<%
'Cria instância rcs e faz a consulta na tabela tbClientes
sql =  "SELECT * FROM vistorias WHERE seguradora LIKE '%"&Request.QueryString("usuario")&"%' ORDER BY ID"

 If Request.Form("criterio") = "Cliente" Then
      sql = sql & " AND cliente like '%" & Trim(Request("string_busca")) & "%'"
   End If
 If Request.Form("criterio") = "Marca" Then
      sql = sql & " AND marca like '%" & Trim(Request("string_busca")) & "%'"
   End If
   If Request.Form("criterio") = "Modelo" Then
      sql = sql & " AND modelo like '%" & Trim(Request("string_busca")) & "%'"
   End If
   If Request.Form("criterio") = "Placa" Then
     sql = sql & " AND chassi like '%" & Trim(Request("string_busca")) & "%'"
   End If

 Set rsBusca = Server.CreateObject("ADODB.recordset")
   rsBusca.Open sql, strCon, 3


'Verifica se foi encontrado algum registro
If rsBusca.EOF Then
Response.Write "<br> Não foi encontrado nenhum registro!"
Else

'Lista os clientes se encontrados
Response.Write "<div align='left'>Seu login:"
Response.Write rsBusca("seguradora") & "</div><br>"

Response.Write "<table width='100%'>"
Response.Write "<b><tr bgcolor=#219629><td>"
Response.Write "</td><td align=center style=font-size:11px>"
Response.Write "CLIENTE" & "</td><td align=center style=font-size:11px>"
Response.Write "MARCA" & "</td><td align=center style=font-size:11px>"
Response.Write "MODELO" & "</td><td align=center style=font-size:11px>"
Response.Write "PLACA OU CHASSI" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 1" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 2" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 3" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 4" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 5" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 6" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 7" & "</td><td align=center style=font-size:11px>"
Response.Write "IMAGEM 8" & "</td></tr align=center></b>"

While Not rsBusca.EOF
Response.Write "<tr><td>"
Response.Write "<A HREF=backup.asp?ID=" & rsBusca("ID") &">"
Response.Write "<img src='imagens/layout/down.png' width=20 height=20 border=0 alt=Download/></A></td><td>"
Response.Write rsBusca("cliente") & "</td><td>"
Response.Write rsBusca("marca") & "</td><td>"
Response.Write rsBusca("modelo") & "</td><td>"
Response.Write rsBusca("chassi") & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem1").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem2").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem3").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem4").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem5").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem6").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem7").Value
Response.Write " border=0 width=40 height=30>" & "</td><td>"
Response.Write "<img src=imagens_vist/"
Response.Write rsBusca.Fields.Item("pasta").Value & "/"
Response.Write rsBusca.Fields.Item("imagem8").Value
Response.Write " border=0 width=40 height=30>" & "</td></tr>"

'Move para o próximo registro
rsBusca.MoveNext
Wend
Response.Write "</table>"
End If
End If
End If
%>
</p>

[xanburzum 169]

é pq ele esta dando um SELECT *, assim pega tudo k satisfaça a condicaun WHERE, verifique a real necessiade dos campos e faça a busca...