a que te referis con que si es parte de todos los datos?, existe como primer nombre de uno de los autores.
el codigo completo es el siguiente:
<body>
<%'Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim strDatabaseType
'aca elijo con quien me conecto
strDatabaseType = "Access"
'strDatabaseType = "MSDE"
'abro la coneccion (en este caso abre con access)
If strDatabaseType = "Access" Then
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\datastores\biblio.mdb;" & _
"Persist Security Info=False"
Else
objConn.Open "Provider=SQLOLEDB;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=PUBLICACIONES;" & _
"Initial File Name=G:\MSSQL\Data Files\MSSQL\DATA\biblio.mdf"
End If
objRS.open "publicaciones", objconn
busqueda = ucase(cstr(trim(request.querystring("busqueda"))))
strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%" & busqueda & "%' or PUBLICACION LIKE '%" & busqueda & "%'"
dim encontrados
encontrados = 0
While Not objRS.EOF %><P>
Autor: <%Response.Write objRS("AUTOR") & "<BR>"%>
Título: <% Response.Write objRS("TITULO") & "<BR>"%>
Publicación: <% Response.Write objRS("PUBLICACION") &"<BR>"
response.write "fuente: " &objRS("FUENTE") & "<br>"
encontrados = encontrados + 1
objRS.MoveNext
Wend
response. write "TOTAL " & encontrados & " COINCIDENCIAS"
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
</BODY>
</HTML>