Søgefunktion

Hej :-)

Jeg har følgende søgefunktion:

<%
' # INDSÆTTER SØGERESULTATER
    If Request.QueryString("Tekst") <> "" Then

    ' # HENTER SØGEORD
        strTekst = Trim(Request.QueryString("Tekst"))

        If Request.QueryString ("Side") = "" Then
          Response.Redirect "Soeg.asp?Tekst=" & strTekst & "&Side=1"
        End If

        If Len(strTekst) = 0 Then
      ' # HVIS DER IKKE ER SKREVET I FELTET
          Response.Clear
          Response.Redirect("Soeg.asp")
        Else
      ' # HVIS DER ER SKREVET I FELTET
          strTekst = Replace(strTekst,"'","''")
        End If

    ' # SKABER DNSLESS FORBINDELSE TIL DATABASEN
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\www\db\artikler.mdb"
        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open strDSN

    ' # INDSÆTTER PAGING-FUNKTION
        intPage = Request("Side")
        If isNumeric(intPage) = False Or intPage < 1 Then
          intPage = 1
        End If

    ' # ÅBNER RECORDSETTET
        Set rs = Server.CreateObject("ADODB.RecordSet")

    ' # OPBYGGER EN DYNAMISK SQL-STRENG
        strSQL = "SELECT * FROM artikler WHERE "
        strSQL = strSQL & " (Titel LIKE '%" & strTekst & "%')"
        strSQL = strSQL & " OR (Blikfang LIKE '%" & strTekst & "%')"
        strSQL = strSQL & " OR (Indhold LIKE '%" & strTekst & "%')"

    ' # TÆLLER ANTAL FUNDNE RESULTATER
        Set rs2 = myConn.Execute("SELECT COUNT(*) AS Resultater_Count FROM artikler WHERE (Titel LIKE '%" & strTekst & "%' OR Blikfang LIKE '%" & strTekst & "%' OR Indhold LIKE '%" & strTekst & "%')")
        If rs2("Resultater_Count") = 1 Then
          strResultater = "resultat."
        ElseIf rs2("Resultater_Count") > 1 Then
          strResultater = "resultater."
        Else
          strResultater = "resultater."
        End if

    ' # FORKORTER SØGETEKST, HVIS OVER 25 TEGN
        If Len(Request.QueryString("Tekst")) <= 25 Then
          strTekst2 = Request.QueryString("Tekst")
        Else
          strTekst2 = Left(Request.QueryString("Tekst"),25) & "..."
        End If
%>

Hvordan får jeg i ovenstående kode implementeret muligheden for at søge på enten ét eller flere ord, indtastet i samme input?

Håber at nogen kan hjælpe mig...

Apo