Søgefunktion

Hej,

Jeg er ved at lave en hjemmeside hvor der skal være en søgefunktion.

Jeg har egentlig en søgefunktion, men jeg vil gerne have en der virker lidt bedre. Den jeg har nu finder ikke så meget som jeg ønsker. Jeg vil gerne have den skal søge på hele hjemmesiden og så finde alt hvad der indeholder det man søger på.

Håber i forstår mit spørgsmål.

På forhånd tak!

PS: min nuværende søgning ser ud som nedenstående, men jeg syntes ikke den virker så godt. Der udover syntes jeg det er ret besværligt at skulle indtaste alle de søgeord den skal kunne lede efter.

    <%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("index.html")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Gruppe, Indhold, Beskrivelse, Link FROM Tennis WHERE"
strSQL = strSQL & " (Gruppe LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Indhold LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Link LIKE '%" & strKeyword & "%')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("search.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<table border=0>"
    Response.Write "<tr><th style=""margin-right:10px;""""width: 200px;"">Gruppe</th><th>Indhold</th><th>Beskrivelse</th><th>Link</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("Gruppe") & "</td>"
        Response.Write "<td>" & rs("Indhold") & "</td>"
        Response.Write "<td>" & rs("Beskrivelse") & "</td>"
        Response.Write "<td><a href=""" & rs("Link") & """>klik her</a></td></tr>"
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>