Script vil ikke som jeg vil

Hvad er årsagen til, at dette skript ikke vil søge på to eller flere usammenhængende ord?


<%
Dim cnnSearch
Dim linkRec
Dim strDBPath

Dim strSQL
Dim strSearch

strSearch = Request.QueryString("search")
%>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<form action="db_search.asp" method="get">
  <div align="center">
    <input name="search" value="<%= strSearch %>" />
    <input type="submit" value="S&oslash;g" />
  </div>
</form>
<%
If strSearch <> "" Then

    strDBPath = Server.MapPath("database/database.mdb")



    Set cnnSearch = Server.CreateObject("ADODB.Connection")


    cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

sstring = split(strSearch)    

for i = lbound(sstring) to ubound(sstring)
    strSQL = "SELECT * " _
        & "FROM links " _
        & "WHERE title LIKE '%" & sstring(i) & Replace(strSearch, "'", "''") & "%' " _
        & "OR description LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
                & "ORDER BY title;"
next
    Set linkRec = cnnSearch.Execute(strSQL)

    Do while NOT linkRec.EOF

Set catsRec = cnnSearch.Execute ("SELECT * FROM cats where catid = " & linkrec("catid") & "")
            %>

</font>
<!-- #INCLUDE file="linktemp.asp"--><%
            linkrec.MoveNext
        loop

    %>
    </table>
    <%

set catsRec = nothing
Set linkRec = Nothing
cnnSearch.Close
Set cnnSearch = Nothing

End If
%>