ahí va:
busqueda = ucase(cstr(trim(request.querystring("busqueda"))))
Busqueda=Split(Replace(Request.Form("busqueda"),"' ","''"))
strsql="SELECT * FROM PRODUCTOS WHERE NOMBRE LIKE '%"&Busqueda(0)&"%' "
For i=1 to Ubound(Busqueda)
strsql=strsql&" OR autor LIKE '%"&Busqueda(i)&"%' "
Next
SET objRS=objConn.Execute(SQL)
dim encontrados
encontrados = 0
%><table>
<tr align = center><td bgcolor = "#00008b" align = center WIDTH = 800><font color = "#ffffff"><%Response.Write " <h4>Resultados de la busqueda en base a la aparición<b><i> " & busqueda & "</b><h4></i></font></td></tr><br>"
While Not objRS.EOF%>
<% if colorcelda="#ffffff" then
colorcelda="#87ceeb"
else
colorcelda="#ffffff"
end if %><P>
<table bgcolor="<%=colorcelda%>"ALIGN= CENTER WIDTH = 800 >
<tr><td FONT STYLE= VERDANA, ARIAL SIZE=2 align = <%=alineado%>>Autor: <%=objRS("AUTOR")%></FONT></td></tr>
<tr><td FONT STYLE= VERDANA, ARIAL SIZE=2 align = <%=alineado%>>Título: <%=objRS("TITULO")%></FONT></td></tr>
<tr><td FONT STYLE= VERDANA, ARIAL SIZE=2 align = <%=alineado%>>Publicación: <%=objRS("PUBLICACION")%></FONT></td></tr>
<tr><td FONT STYLE= VERDANA, ARIAL SIZE=2 align = <%=alineado%>>Fuente: <%=objRS("FUENTE")%></FONT></td></TR></table>
<tr><td FONT STYLE= VERDANA, ARIAL SIZE=2 ><input type = "checkbox" name= "cons" value =<%=objrs("id")%>></font></a></td>
<%
encontrados = encontrados + 1
%><%
objRS.MoveNext
Wend
%><br><%
response. write "TOTAL " & encontrados & " COINCIDENCIAS"
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing