Buscar en una base de datos (E-Commerce)

[tarlipes]

es para además poder hacer busquedas de una sola palabra.

Busqueda=Replace(Request.Form("busqueda"),"'","''" )
vector = split(Busqueda,"/")
if ubound(vector) > 0 then
strsql="SELECT * FROM publicaciones WHERE autor like '%"&vector(0)&"%' OR titulo LIKE '%"&vector(0)&"%' OR publicacion LIKE '%"&vector(0)&"%' OR fuente LIKE '%"&vector(0)&"%' OR autor LIKE '%"&vector(1)&"%' OR titulo LIKE '%"&vector(1)&"%' OR publicacion LIKE '%"&vector(1)&"%' OR fuente LIKE '%"&vector(1)&"%' "

for i =1 to ubound(vector)
strsql=strsql & " OR autor LIKE '%"&vector(i)&"%' OR titulo LIKE '%"&vector(i)&"%' OR publicacion LIKE '%"&vector(i)&"%' OR fuente LIKE '%"&vector(i)&"%' "


next
response.write strsql
'response.end
else

strsql = "select * FROM publicaciones WHERE autor LIKE '%"&vector(0)&"%' OR titulo LIKE '%"&vector(0)&"%' or publicacion LIKE '%"&vector(0)&"%' "

saludos

créditos a bakanzipp