o como lo harian en php y mysql?
Código:
html> <head> <title>Buscar</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"><center> <b><font size="5">MI BUSCADOR</font></b> <form name="form1" method="post" action="Buscar.asp"> <input type="text" name="textfield"> <input type="submit" name="Submit" value="Buscar!"> </form></center> </body> </html>
Código:
las BD estan en acces <html> <head> <title>Buscar</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <% Dim buscar buscar = Request.Form("textfield") %> <body bgcolor="#FFFFFF" text="#000000"><center> <p><b><font size="5">MI BUSCADOR</font></b> </p> <% Function fBuscar(cnn) Dim rs Dim SQL Dim str SQL="SELECT Titulo, Comentarios, PALAC, Link FROM Busqueda WHERE PALAC LIKE '%"&buscar&"%';" Set rs = CreateObject("ADODB.Recordset") rs.ActiveConnection = cnn rs.Open SQL While Not rs.EOF str = str & "<A Class='t5' Href='" & rs("Link") & "'>" & rs("Titulo") & " >> <br>" & "</a>" & rs("Comentarios")& "<BR> <BR>" rs.MoveNext Wend if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>" if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>" fBuscar = str End Function Dim cnn Dim str Set cnn = CreateObject("ADODB.Connection") str = "Data Source=Pafware" cnn.Open str Response.write "<FONT COLOR=Blue " Response.write "SIZE=4 FACE=Arial> " Response.write "Resultados " Response.write "de la busqueda: <P>" Response.write "</FONT> " Response.write "<FONT COLOR=Green " Response.write "SIZE=3 FACE=Arial> " Response.Write fBuscar(cnn) Response.write "</FONT><hr> " %> <form name="form1" method="post" action="Buscar.asp"> <input type="text" name="textfield"> <input type="submit" name="Submit" value="Buscar!"> </form></center> </body> </html>
![lloron](http://static.forosdelweb.com/fdwtheme/images/smilies/chillando.png)