<%
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 "
"
%>
Página
de inicio