Mysko fel på sökord.

Jag får ett mystiskt fel när jag på min sökmotor försöker att få sökordet att skrivas ut med fet text. Jag visar det mesta här:

strFieldName = Request("Column")
strTableName = Request("Table")
strOrderByField = Request("OrderBy")
SValue = Request("SValue")
SType = Request("SType")

For i = 1 to len(SValue)
   If mid(SValue, i, 1) = " " Then
     WordCounter = WordCounter + 1
   End If
Next

WordCounter = WordCounter + 1

Dim Word(100)
CurrentWord = 1
For i = 1 to len(SValue)
     If mid(SValue, i, 1) = " " Then
	CurrentWord = CurrentWord + 1
     Else
	Word(CurrentWord) = Word(CurrentWord) + mid(SValue, i, 1)
     End If
Next
SQL = "SELECT * FROM " & strTableName & " WHERE "

	For i = 1 to WordCounter
		If SType = "AllWords" Then
			If i <> WordCounter Then
				SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%' AND "
			ElseIf i = WordCounter Then
				SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%'"
			End If
		ElseIf SType = "AnyWord" Then
			If i <> WordCounter Then
				SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%' OR "
			ElseIf i = WordCounter Then
				SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%'"
			End If
		End If

	Next
if Len(strOrderByField) > 0 then

	SQL = SQL & SQL1 & " ORDER BY " & strOrderByField
Else
	SQL = SQL & SQL1
End If

Sen kopplar jag databasen osv och skriver ut den aktuella posten så här:

           <%= Replace(ParseURLs(Left((RS("Artikel")),165) & "..."),sValue ,"<b>" & request("sValue") & "</B>",1) & "<BR>" %> </p>

Vad som händer är att om jag t ex söker på kul så får jag upp t ex skull
Scriptet plockar alltså upp orden innuti andra ord.
Hur göra?

------------------
saw
__
saw@songer.com
www.mp3.com/saw_songer
__