|
Busca.asp
<%
Option Explicit Response.Expires = 0 %> <!--#include file="bib_conexao.asp"--> <!--#include file="header.htm"--> <HTML> <HEAD> <TITLE>Pesquisa</TITLE> </HEAD> <BODY topmargin="0" leftmargin="0" bgcolor="#EEEEEE"> <% If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then varBusca = Trim(Request.Form("pesquisa")) Dim Conexao, rsBusca, sqlProcura, varBusca varBusca = Trim(Request.Form("pesquisa")) sqlProcura = "SELECT * FROM Busca WHERE Descricao LIKE '%" & varBusca & "%' " sqlProcura = sqlProcura & "ORDER BY Nome" Call abre_conexao Set rsBusca = Conexao.Execute(sqlProcura) %> <TABLE border="0" cellpadding="0"
width="97%" cellspacing="1" align="center">
<b><fontface="Verdana" Size="12pt"><br> <% If rsBusca.EOF Then Response.Write "N�o existem registros com este nome, por favor tente outra vez." Else While Not rsBusca.EOF %> </b></font> <TR> <TD width="97%" height="46"><FONT color="#471555" face="Verdana" size="2"> <A HREF="http://<%= rsBusca("URL")%>" target="_blank"><B><%= rsBusca("Nome") %></b></A> - <%= rsBusca("Descricao") %></FONT> </TD> </TR>
<%
rsBusca.MoveNext Wend End If %> </TABLE> <% rsBusca.Close Call fecha_conexao Set rsBusca = Nothing Else %> <FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST"> <br><br> <table width="46%" border="0" align="center"> <tr> <td width="46%"><font face="Arial, Helvetica, sans-serif" size="2">Palavra-Chave:</font></td> <td width="42%"> <input type="text" name="pesquisa"> </td> <td width="36%"> <input type="submit" name="Submit" value="Pesquisar"> </td> </tr> </table> </FORM> <%End If%> </BODY>
</HTML> Para conectar o BD:
bib_conexao.asp
<%
sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\ASP\webpub\Busca.mdb;Driver={Microsoft Access Driver (*.mdb)}" end sub sub fecha_conexao Conexao.close Set Conexao =nothing end sub %> (O header.html �
detalhe)
_____________________________________________________________________________________________________________________
Ajude a Pokemon Site e MidiaNow! crescerem cada vez mais . Estamos participando do TOP30 ent�o basta voc� dar um clique e confirmar o voto! Vote em:
Pokemon Site - http://www.top30.hpg.com.br/cgi/votar.cgi?ID=6979 MidiaNow! - http://www.top30.com.br/cgi/votar.cgi?ID=20140 As Equipes
Pokemon Site - http://www.pokemonst.cjb.net ou http://www.pokemonst.com & MidiaNow! - http://www.midianow.com ou http://www.midianow.cjb.net Agradecem sua participa��o http://www.asp10.net ========================================== Solu��es simples para problemas complexos ==========================================
| ||||||||
