Søge efter flere ting i uordnet rækkefølge

Jeg ville nok gøre det simpelt

Dim strGenre
Dim intLoop
Dim strString

strGenre = Request.form("genre")
intLoop = 1
strString = "SELECT * FROM film WHERE genre LIKE '"
Do until intLoop = Len(strGenre)
  If inloop = 1 Then
      strChar = Left(strGenre, intLoop)
  Else
      strChar = Right(Left(strGenre, intloop), 1)
  End If
  If strChar = " " Then
      strString = strString & "%' AND genre LIKE'"
  Else
      strString = strString & strChar
  End If
Loop

strString = strString & " ORDER BY titel"

Tilsidst vil din strString være lig med den streng du har behov for at bruge i din søgning

Hov jeg mangler enoget i loop'en nemlig intLoop = intLoop + 1

dim sqlreq, genre, linstr, item
genre = request.form.item("genre")
genre = split(genre, " ")
linstr = " OR genre "
for each item in genre

  sqlreq = sqlreq & "LIKE '%" & item & "%'" & linstr
next
sqlreq = left(sqlreq, len(sqlreq)-len(linstr))

SELECT * FROM film WHERE genre " & sqlreq & " ORDER BY titel"

evt. fjerne mellemrum, hvis der tastes flere en én:

for each item in genre

  sqlreq = sqlreq & "LIKE '%" & item & "%'" & linstr
next

det her driller

evt. fjerne mellemrum, hvis der tastes flere en én:
for each item in genre
if len(trim(item)) > 0 then
  sqlreq = sqlreq & "LIKE '%" & item & "%'" & linstr
end if
next

og ændre

linstr = " OR genre "

til

linstr = " AND genre "

hvis alle ord i strengen skal være til stede, og ikke kun nogle ord

Men det må da være muligt via ren SQL, MySQL har også nogle REGEX funktioner ved jeg

rettet udgave med kontrol for flere mellemrum og inkludering af alle søgeord

dim sqlreq, genre, linstr, item
genre = request.form.item("genre")
genre = split(genre, " ")
linstr = " AND genre "
for each item in genre
  if len(trim(item)) > 0 then
    sqlreq = sqlreq & "LIKE '%" & item & "%'" & linstr
  end if
next
sqlreq = left(sqlreq, len(sqlreq)-len(linstr))

SELECT * FROM film WHERE genre " & sqlreq & " ORDER BY titel"

Brugte den her:
genre = split(Request.Form("genre"))
   
for each item in genre
    sqlGenre = sqlGenre & "AND genre LIKE '%" & item & "%'"
next

Så pointene må gå til socle

mine første point! Det er godt nok stort. Mange tak.