Fri tekst søgning

Hej,

Jeg har hentet et script fra activerserverpages.dk der hedder \"Fri tekst søgning\" (tror jeg nok) jeg har lavet lidt om på den men ikke nok til at jeg kan bruge den.

Den skal bruges til at søge efter NAVNE det kan den også nu, men jeg vil have at når man tryker på link bogstav f.eks. A skal den komme frem med alle det navne der starter med bogstav A og den må kun vise 10 stk. par side og man kan vælge hvilken køn det skal være.

Jeg har lavet DB med følge€ne felter:
ID NAVN BESKRIVELSE KØN STAMER_FRA

Her er koden:

<% Response.Buffer = True %>
<html><head>
<title>N A V N E - B A S E N</title>
</head><body>

<%
\' Uzima vrijednosti sa trazi.htm
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
    \' Ako nista nije upisato u polju
    Response.Clear
    Response.Redirect(\"trazi.htm\")
Else
    \' ako je upisato
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

\' Uzpostavlja jednu dynamicku SQL vezu
strSQL = \"SELECT ID, Navn, Beskrivelse, Stamer_fra, Køn FROM Imenik WHERE\"
strSQL = strSQL & \" (Navn LIKE \'\" & strKeyword & \"%\')\"
\'strSQL = strSQL & \" OR (Beskrivelse LIKE \'%\" & strKeyword & \"%\')\"

\' Povezuje DSNLess  na DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"trazi.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

\' Nemam objasnjenja
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    \' Ako nije pronadjeno nista
    Response.Write \"<font face=\'Verdana,Georgia,Times\' size=\'1\'><p>Søgende resultat</p></font>\"
    Response.Write \"<table border=\'0\' cellspacing=\'1\' style=\'border: 1 solid #000000\'>\"
    Response.Write \"<tr><th><font face=\'Verdana,Georgia,Times\' size=\'1\'>Navn</th></font><th><font face=\'Verdana,Georgia,Times\' size=\'1\'>Beskrivelse</th></tr></font>\"
    Do While Not rs.EOF
        Response.Write \"<tr><td style=\'border-right: 1 solid #000000; border-bottom-style: solid; border-bottom-width: 1\'><font face=\'Verdana,Georgia,Times\' size=\'1\'>\" & rs(\"Navn\") & \"</td></font>\"
        Response.Write \"<td style=\'border-top: 1 solid #000000\'><font face=\'Verdana,Georgia,Times\' size=\'1\'>\" & rs(\"Beskrivelse\") & \"</td></tr></font>\"
        Response.Write \"<td style=\'border-top: 1 solid #000000\'><font face=\'Verdana,Georgia,Times\' size=\'1\'>\" & rs(\"Stamer_fra\") & \"</td></tr></font>\"
        Response.Write \"<td style=\'border-top: 1 solid #000000\'><font face=\'Verdana,Georgia,Times\' size=\'1\'>\" & rs(\"Køn\") & \"</td></tr></font>\"
        rs.MoveNext
    Loop
    Response.Write \"</table>\"
Else
    \' Ako nebude nista pronadjeno na pretragi
    Response.Write \"<font face=\'Verdana,Georgia,Times\' size=\'1\'><p>Nazalost, vasa pretraga nije mogla biti pronadjena</p></font>\"
End If

\' Zavrsava cisti
myConn.Close
Set myConn = Nothing
%>

</body></html>