consulta sobre buscador

[hugorei]

Tengo un buscador que busca articulos en mi sitio, el tema es que busca de a una palabra, si yo quisiera que buscara de más de una palabra por ejemplo que busque "neumonia atipica" , que tendria que modificarle o como tendria que definir las palabras claves en la base de datos ? . alguien me puede dar una pista

[AlexNV]

metes la cadena en un array separado por espacios y luego compones un where con las subcadenas.

Código:

cadena="neumonia atipica"
miarray=split(cadena, " ")

strWhere = " WHERE  FALSE "
for i = 0 to Ubound(miarray) - 1
      strWhere = strWhere & " OR TEXTO LIKE '%" miarray(i) & "%'"
next

strSQL = "SELECT * FROM TABLA " & strWhere

El "Where False" lo uso para no tener que mirar si lleva OR o no en cada iteracion, pero no le des mas importancia. Si la cadena se compusiera con AND, seria Where True.

[hugorei]

Dsisculpame muchisimas gracias ante todo por tu ayuda mira mi código es este :

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

tengo todo el codigo armado y tengo miedo de meter la pata como pondrias lo que me dices dentro de este codigo ?

[AlexNV]

Seria así

Código:

<% 

Dim Conexion,Tabla 
Set Conexion=Server.CreateObject("adodb.connection") 
Set Tabla=Server.CreateObject("adodb.recordset") 
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb") 

Dim Temp

miarray=split(Request("palabra"), " ")

strWhere = " WHERE  FALSE "
for i = 0 to Ubound(miarray) - 1
      strWhere = strWhere & " OR UCase(pal) LIKE '%" miarray(i) & "%'"
next

Temp = "SELECT * FROM TABLA1 " & strWhere

Tabla.Open Temp, Conexion 
If Tabla.BOF And Tabla.EOF Then 
%>