Hvad er der galt ??

Kik lige her og prøv søge funktionen
http://www.rc-internet.com/aj/aj2/index.asp

Hvis man skriver et ord der ikke er der eller undlader at skrive og bare trykker søg knækker filmen.

Mit script ser sådan ud:

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
strSQL = \"SELECT El_side, El_overskrift, ID FROM tele WHERE\"
strSQL = strSQL & \" (El_side LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (El_overskrift LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (ID LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db/alfred.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" >\"
For x = 1 To 5
Response.Write \"<tr><td width=100% ><b><font size=\"\"2\"\" face=\"\"Arial, Helvetica, sans-serif\"\">Overskrift </font></b><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" >\"  & \"<a href=detail.asp?ID=\"& rs(\"ID\")&\" TARGET=_self>\"& rs(\"El_overskrift\") &\"</A> <br><b><font size=\"\"2\"\" face=\"\"Arial, Helvetica, sans-serif\"\">Resultat: </font></b>\" &  Left(rs(\"El_side\"),30)&\"...<br><HR></td></tr>\"
rs.MoveNext
Next
Response.Write \"</FONT></table>\"
Else
Response.Write \"<p><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" ><b>Desværrer fandt vi ikke noget til dig.<br>Prøv med nogle andre søgeord.</b><br><br>\"
End If
myConn.Close
Set myConn = Nothing
%>

Ps. ingen komentar til udsenet af siden det er ikke mig der har noget med det at gøre, jeg skulle bare lige prøve at hjælpe.