<% Dim buscar buscar = Request.Form("textfield") %>

MI BUSCADOR

<% Function fBuscar(cnn) SQL="SELECT * FROM productos WHERE nombre LIKE '%"&buscar&"%' or descripcion Like '%"&buscar&"%';" rs.Open SQL While Not rs.EOF str = str & "" & rs("Descripcion") & " >>
" & "
" & rs("Precio")& "

" rs.MoveNext Wend if str = "" then str ="
Lo siento, no se encontraron resultados
" if buscar = "" then str ="
Por favor, especifique su búsqueda
" fBuscar = str End Function Dim cnn, str, rs, SQL DBName = "driver={Microsoft Access Driver (*.mdb)};dbq=http://www.humuschile.cl/producto.mdb" Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open DBName Set rs = CreateObject("ADODB.Recordset") rs.ActiveConnection = cnn Response.write " " Response.write "Resultados " Response.write "de la busqueda:

" Response.write " " Response.write " " Response.Write fBuscar(cnn) Response.write "


" %>