un buscador potente, pero solo me busca la primer palabra

[speedy]

Hola a todos bueno antes que otra cosa feliz navidad y feliz año nuevo, ok.
Estoy depurando un buscador que tengo ya la llevo de gane y ya esta en mi aplicacion operando, pero tiene un detalle pongo por ejemplo.

jamon a

y solo me busca la palabra jamon

si le pongo o no palabras mas adelante no les hace caso, solo busca la primer palabra, si le pongo por ejemplo

a jamon

me busca todo lo que tenga la letra a ya no le importa lo demas a la derecha.

¿Como puedo colocar el codigo para que me jala todos los registros de acuerdo a las palabras que le ponga? ejemplo:

jamon pavo

para que me jala todos los registros que tengan jamon pero solo los que sean de pavo...

Les pongo el codigo que tengo, muchas gracias por sus comentarios.

Código PHP:

  textStr = trim(Request.QueryString("s")) ‘lo que se va a buscar
Dim pos1
 Dim pos2
 Dim wordLen
 x = 1
 pos1 = 1
 pos2 = instr(1,textSTR,SeperatorSTR)
 if pos2 = 0 then pos2 = len(textstr): pos1 = 0
 Redim Preserve ArraySTR(x)
 wordLen = pos2 - pos1
 ArraySTR(0) = mid(textstr,1, wordLen)
 
 While pos1 <> 0 
  pos1 = pos2
  pos2 = instr(pos2+1,textSTR,SeperatorSTR)
  if pos2 = 0 then 
   if pos1 > 0 then 
    pos2 = len(textstr) + 1
   end if
  end if 
 
  if pos2 <> 0 then 
   if pos1 <> 0 then 
    Redim Preserve ArraySTR(x)
    wordLen = pos2 - pos1 - 1
    ArraySTR(x) = mid(textstr,pos1 + 1,wordLen)
    x=x+1
   End if
  End if
  if pos2 => len(textstr) then pos1 = 0 
 
 Wend
 
 WordCount = x
' strSQL = "Select TOP 350 * from Anuncios where ComentariosAnuncio like '%" & ArraySTR(0) & "%'"
 strSQL = "Select * from Anuncios where Metapalabras like '%" & ArraySTR(0) & "%' or NombreNegocio like '%" & ArraySTR(0) & "%'  or Descripcion like '%" & ArraySTR(0) & "%' ORDER BY ServicioContratado DESC, Contador DESC, NombreNegocio"
 
 for x = 0 to Wordcount - 1
  if  lcase(ArraySTR(x)) <> "and" then 
   if x > 0 then 
    strSQL = StrSQL & " AND Descripcion like '%" & ArraySTR(x) & "%"
   end if
  end if
 next
 
 strSQL = StrSQL & ";"
end if 
   

Saludos.

[Myakire]

"al vuelo", sería algo como:

Código:

textStr = trim(Request.QueryString("s"))
vecPalabras = split(textStr," ")
sql=""
for i=0 to ubound(vecPalabras)
    sql = " Descripcion like '%" & vecPalabras(i) & "%' and "
next
sql = MID(sql,1 , LEN(sql)-4)
....y concatenar sql a la sentencia sql

lineas mas, lineas menos, la idea es esa.

Saludos

[orharo2003]

Puedes simplicar las cosas usando Full-Text Search del sql server, la otra es hacer exactamente lo que te dice myakire . a pesar de que tambien queria hacer un buscador potente algo asi como el corrector ortografico de word termine por hacerlo con un like tradicional concatenandolo.el full text search te ayuda, pero eso si, hay que estar reconstruyendo el catalogo en cada movimiento.

[speedy]

Hola Myakire y orharo2003 gracias por contestar; ok voy a meter las cosas como me comentas Myakire, solo una pregunta que esta pasando cuando pones:

sql = MID(sql,1 , LEN(sql)-4)

[speedy]

el 1 y el -4 que serian como fungen o que pasa en ese caso?, gracias.

[Myakire]

Bueno, como se esta concatenando siempre el " AND", pues hay que quitárselo al final, por eso el -4

Tendrias despues de dos iteraciones, algo como:
sql = " Descripcion like '%algo%' and Descripcion like '%otra_cosa%' and"

entonces, si lo ejecutas así, claramente te dará error, si cortamos la cadena desde el inicio hasta el final-4 caracteres, quitas el and y el espacio.

sql = MID(sql,1 , LEN(sql)-4)

Saludos


EDITADO

Bueno, lo hice solo para asegurarme, y así quedaría más o menos:

Código:

 vSQL = "SELECT     dbo.Articulos.Id_Arti, ........... WHERE " 
 CadBusqueda = Request("Palabra")
 Palabras = SPLIT(CadBusqueda," ")
 vWhere = ""
 For i=0 To UBound(Palabras)
     Cadena = Trim(Palabras(i))
     if Cadena <> "" Then
        vWhere = vWhere & "(dbo.Articulos.Descripcion LIKE ''%"+Cadena+"%'') AND"
     End If
 Next
 If LEN(vWhere) > 0 Then
    vWhere = MID(vWhere,1,LEN(vWhere)-3)
 End If 
 vSQL = vSQL & vWhere
 response.write vSQL
 response.end

Saludos one more time

PD. El Full-Text Search del Sql Server que apuntó orharo2003 () no lo he usado, pero conociéndolo, seguro simplificaría mucho las cosas, sería bueno ver esa alternativa también.

[speedy]

Gracias Myakire este ultimo codigo lo entendi mucho mejor GRACIAS EN VERDAD Y con respecto a la solucion de orharo2003 si seguro es excelente pero es para sql server y ahorita estoy trabajando con access, pero se agradece de todas formas tambien, SALUDOS A TODOS y les comento como me fue, bye.