<% sub formulario %> <% 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 ="BUSCADOR" fBuscar = str End Function Dim str, rs, SQL dim conexion Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath ("pafware.mdb") Set rs = CreateObject("ADODB.Recordset") rs.ActiveConnection = conexion Response.write " " Response.write "" Response.write " " Response.write " " Response.Write fBuscar(cnn) Response.write "

---

" %>