Sök på flera fält

Fick till det tror jag. Skriver ut rätt i SQLsträngen iallafall.

sort             = "desc"
Falt              = Request.Form("faltet")
Sokordet     = Request.Form("sokord")
typ              = Request.Form("artikeltyp")

SQL = "SELECT * FROM artiklar WHERE" 
varSearchWord = Split(Sokordet) 
For N = 0 TO UBound(varSearchWord)  
   If Falt = "alla" Then
      SQL = SQL & "(titel Like '%" & varSearchWord(N) & "%' or forf Like '%" & varSearchWord(N) & "%' or info Like '%" & varSearchWord(N) & "%' or ref Like '%" & varSearchWord(N) & "%') And" 
   Else
      SQL = SQL & " " & Falt & " Like '%" & varSearchWord(N) & "%' And" 
   End If
Next 'N 
'## -- ta bort det sista , i strängen. annars blir det fel vid exekveringen -- 
SQL = Left(SQL,Len(SQL) - 3) 
If typ = "" Then
   SQL = SQL & " ORDER BY Id " & sort
Else
   SQL = SQL & " And artikeltyp Like '%" & typ & "%' ORDER BY Id " & sort
End If