søg med for få parametre

Hej
Jeg er ved at rette en søgedims til jeg har fundet på activeserverpages.dk, men den fastholder der er for få parametre i linie 40. Linie 40 er: Set rs = myConn.Execute(strSQL)

Ellers ser det sådan ud:

<%
\' Henter v&aelig;rdien fra soeg.asp
strKeyword = trim(Request.Form(\"Keyword\"))

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

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT ID, fornavn, efternavn, adresse, sted, tlfnr, fax, mobil, email, hjemmeside FROM alfa WHERE\"
strSQL = strSQL & \" (fornavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (efternavn LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (adresse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (sted LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (tlfnr LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (fax LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (mobil LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (email LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (hjemmeside LIKE \'%\" & strKeyword & \"%\')\"




\' Skaber DSNLess forbindelse til DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../database/database.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&aring; s&oslash;gningen
   
    Response.Write \"<table border=0 align=center>\"
Response.Write \"<tr><td><p><h1>S&oslash;geresultat</h1></p></td></tr>\"
    Do While Not rs.EOF
response.write\"<tr><td><A HREF=\'test.asp?efternavn=\" & Server.URLEncode(rs(\"efternavn\")) & \"&fornavn=\" & Server.URLEncode(rs(\"fornavn\")) & \"\'><B>\" & rs(\"efternavn\") & \", \" & rs(\"fornavn\") & \"</b></a><BR></td></tr>\"

        rs.MoveNext
    Loop
    Response.Write \"</table><BR><BR><DIV STYLE=\'text-align:center\'><form><input class=\'button\' type=\'button\' value=\'tilbage\' onClick=\'history.go(-1)\'></form></DIV>\"
Else
    \' Hvis der ikke er fundet poster p&aring; s&oslash;gningen
    Response.Write \"<p><table align=center><tr><td><h1>Din s&oslash;gning gav ingen adresser</h1><BR><DIV STYLE=\'text-align:center\'><a href=\'java script:history.back();\' target=_parent>Tilbage</a></DIV></td></tr></table></p>\"
End If

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