<% Dim buscar buscar = Request.Form("textfield") %> <% Function fBuscar(cnn) SQL="SELECT Titulo, Comentarios, PALAC, Link FROM Busqueda WHERE PALAC LIKE '%"&buscar&"%';" rs.Open SQL While Not rs.EOF str = str & "" & rs("Titulo") & " >>
" & "" & rs("Comentarios")& "

" 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 = "DSN=cibernet-computer.com.buscar" 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 "

---

" %> Búsqueda por empresa, actividad o productos: