Este é o meu arquivo busca.asp
CODE
<table width="195" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="195" height="24" valign="top">
<form action="resultado.asp" method="post">
<input type = text name="buscando" size=11 style= "font-family : Verdana; font-size : 11px; width : 100px;">
<input type="submit" name="Submit" value="Buscar">
</form></td>
</tr>
</table>
<tr>
<td width="195" height="24" valign="top">
<form action="resultado.asp" method="post">
<input type = text name="buscando" size=11 style= "font-family : Verdana; font-size : 11px; width : 100px;">
<input type="submit" name="Submit" value="Buscar">
</form></td>
</tr>
</table>
E o meu arquivo resultado.asp é este:
CODE
<%
Busca = Trim(Request.form("buscando"))
%>
<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("banco.mdb")
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function
%>
<%
Busca=TiraAspas(Busca)
strSql = "SELECT * FROM cadastro WHERE nome LIKE '%"&Busca&"%'"
objRS.Open strSQL,DB,1,1
%>
<p>Resultado da busca<br>
<%
if (len(busca)<=2) then
Response.write("Digite uma palavra com o mínimo de 3 letras para fazer a busca.")
ElseIf (Busca = "") then
Response.write("Você precisa escrever uma palavra para fazer uma busca.")
ElseIf (objRS.EOF = true) then
response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente ser menos específico."
Else
do While not objRS.EOF
%>
<%=objRS(TiraAspas("nome"))%><br>
<%
objRS.MoveNext
Loop
End IF
%>
</p>
Busca = Trim(Request.form("buscando"))
%>
<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("banco.mdb")
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function
%>
<%
Busca=TiraAspas(Busca)
strSql = "SELECT * FROM cadastro WHERE nome LIKE '%"&Busca&"%'"
objRS.Open strSQL,DB,1,1
%>
<p>Resultado da busca<br>
<%
if (len(busca)<=2) then
Response.write("Digite uma palavra com o mínimo de 3 letras para fazer a busca.")
ElseIf (Busca = "") then
Response.write("Você precisa escrever uma palavra para fazer uma busca.")
ElseIf (objRS.EOF = true) then
response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente ser menos específico."
Else
do While not objRS.EOF
%>
<%=objRS(TiraAspas("nome"))%><br>
<%
objRS.MoveNext
Loop
End IF
%>
</p>
na meu banco de dados cadastro tem uma coluna chamada "nome" e outra chamada "codigo"
Gostaria de saber como coloco esta coluna "codigo" no resultado da busca junto com o resultado nome...
Não estou conseguindo..
Obrigado..
Abraços...

Help














