Pelo que eu entendi e me explique esta parte caso eu tenha entendido errado, você quer que ao pesquisar por exemplo por placa, apareça somente as "placas" em sua pesquisa, ou seja: digito lá abc, daí ao invés de aparecer "abc audi a3 fabio 7dias 1" você quer que imprima em tela apenas "abc" é isso? Bom... se for isso um jeito interessante seria criar vários inputs de pesquisa, por exemplo: Pesquise por placa: Pesquise por marca: então criei aqui um exemplinho básico pra você ver: Busca.html <form action="busca.asp" method="post">
você quer pesquisar como:
<input type="radio" name="cmbBusca" value="1" checked="checked" />por placa
<input type="radio" name="cmbBusca" value="2" />por marca
<input type="radio" name="cmbBusca" value="3" />por carro
<br>
<input type="text" name="Placa" size="7" maxlength="7">
<br>
<br>
<input type="submit" value="Buscar">
</form>
busca.asp
<%
vPlaca = request.form("Placa")
busca = requst.form("cmbBusca")
if busca = 1 then
call porplaca()
elseif busca = 2 then
call pormarca()
elseif busca = 3 then
call porcarro()
end if
sub porplaca()
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")
sqlstmt = "SELECT * FROM Carros WHERE Placa like '%" & vPlaca & "%' OR Carro like '%" & Marca & "%' OR Dono like '%" & ID & "%'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
totalrecs = rs.recordcount
x = 0
for x = 1 to totalrecs
if rs.eof then
exit for
else
id = rs("ID")
carro = rs("Carro")
placa = rs("Placa")
marca = rs("Marca")
dono = rs("Dono")
tempo = rs("Tempo")
%>
<br>
<b>Placa:</b> <%=placa%>
<br>
<p>
<% rs.MoveNext %>
<% end if
next
%>
end sub
sub pormarca()
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")
sqlstmt = "SELECT * FROM Carros WHERE Placa like '%" & vPlaca & "%' OR Carro like '%" & Marca & "%' OR Dono like '%" & ID & "%'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
totalrecs = rs.recordcount
x = 0
for x = 1 to totalrecs
if rs.eof then
exit for
else
id = rs("ID")
carro = rs("Carro")
placa = rs("Placa")
marca = rs("Marca")
dono = rs("Dono")
tempo = rs("Tempo")
%>
<br>
<b>Marca:</b> <%=marca%>
<br>
<p>
<% rs.MoveNext %>
<% end if
next
%>
end sub
sub porcarro()
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")
sqlstmt = "SELECT * FROM Carros WHERE Placa like '%" & vPlaca & "%' OR Carro like '%" & Marca & "%' OR Dono like '%" & ID & "%'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
totalrecs = rs.recordcount
x = 0
for x = 1 to totalrecs
if rs.eof then
exit for
else
id = rs("ID")
carro = rs("Carro")
placa = rs("Placa")
marca = rs("Marca")
dono = rs("Dono")
tempo = rs("Tempo")
%>
<br>
<b>Carro:</b> <%=carro%>
<br>
<p>
<% rs.MoveNext %>
<% end if
next
%>
end sub testa aí e ve se é isso que você precisa... se for existem outros jeitos de fazer tb, mas esse aí foi o que me ocorreu agora... retorne ao tópico se deu certo para que outros possam aproveitar; []'s Rafael Spilki mano deu erro mais e isso mesmo q nóis queremos min ajude leandro010188@hotmail.com # Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03F8) 'Sub' esperado /asp/veterano/busca.asp, line 80, column 4 end if ---^
