Bueno, eso luce bien, habrá que buscar el error por otra parte...
Volvamos a esto:
busqueda = request.querystring("busqueda")
strsql= "select * from BIBLIO WHERE AUTOR LIKE '%"&busqueda&"%' or TITULO LIKE '%"&busqueda&"%' or PUBLICACION LIKE '%"&busqueda&"%'"
While Not objRS.EOF
Response.Write objRS("AUTOR") & "<BR>"
Response.Write objRS("TITULO") & "<BR>"
Response.Write objRS("PUBLICACION")"<BR>"
objRS.MoveNext
Wend
¿Donde ejecutás la consulta?
Está faltando (tal vez no lo has puesto para abreviar) algo como:
objRS.source = strsql
objRS.Open
o sino un:
Set objRS = Conn.Execute strsql
o algo por el estilo...
Por otro lado... estás seguro que CACHO no es parte de todos los datos... si, suena ridículo, pero por ahí lo que se nos escapa es lo más obvio (me ha pasado y me pasa)
Suerte