Creo que ahí debería funcionar, pero me tira el sig error, aunque no encuentro el por qué, me deja mas tranquilo porque no es lo mismo que antes. :
Microsoft JET Database Engine error '80040e14'
Instrucción SQL no válida; se esperaba 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' o 'UPDATE'.
ahí va parte del codigo como quedó:
Busqueda=Replace(Request.Form("busqueda"),"'","''" )
vector = split(Busqueda,"/")
response.write ubound(vector)
for i =1 to lbound(vector)
response.write vector(i) &"<br>"
Response.end
strsql="SELECT * FROM publicaciones WHERE autor = '%"&vector(0)&"%' "
next
For i=1 to Ubound(vector)
strsql=strsql&" OR autor LIKE '%"&vector(i)&"%' "
Next
SET objRS=objConn.Execute(strsql) '
linea en la que me tira el error
'objRS.open strsql, objconn
dim encontrados
encontrados = 0
%><table>
<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>
<%