Søgning virker ikke! Hvorfor?

Her er koden:

<% Response.Buffer = True %>

<%    dim mode

mode = request(\"mode\")

if mode = \"\" then
    response.redirect(\"search.asp?mode=start\")
end if

%>

<html>

<head>
<title>Søgeresultat</title>
</head>

<body>

<%
if mode = \"start\" then
    Soeg
end if

if mode = \"search\" then
    Resultat
end if
%>

<%    sub Soeg %>

<form name=\"soeg\" action=\"search.asp\" onsubmit=\"returnValidator(this)\">
<div align=\"center\">
  <center>
  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"450\">
    <tr>
      <td width=\"100\"><input type=\"text\" name=\"Keyword\" size=\"20\"></td>
      <td><input type=\"submit\" name=\"mode\" value=\"Search\"></td>
    </tr>
  </table>
  </center>
</div>

<% end sub %>


<%    sub Resultat
\' Henter værdierne
strKeyword = Trim(Request.Form(\"Keyword\"))

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

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT OPGNAVN, AFDNAVN, PROJEKTNAVN, OPGID, OPGLEDER, OPGOPRETTET FROM opgave1 WHERE\"
strSQL = strSQL & \" (OPGNAVN LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (PROJEKTNAVN LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (OPGID LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (OPGLEDER LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (OPGOPRETTET LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" ORDER BY OPGID\"

\' Skaber forbindelse til DBen
%>
<!-- #include file=\"database.asp\" -->
<%

\' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    \' Hvis der er fundet poster på søgningen
    Response.Write \"<p>Søgeresultat</p>\"
    Response.Write \"<table border=1>\"
    Response.Write \"<tr><th>OpgID</th><th>OpgNavn</th><th>Afdnavn</th><th>Projekt</th><th>Opgleder</th><th>Opgoprettet</th></tr>\"
    Do While Not rs.EOF
        Response.Write \"<tr><td>\" & rs(\"OPGID\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"OPGNAVN\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"AFDNAVN\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"PROJEKTNAVN\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"OPGLEDER\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"OPGOPRETTET\") & \"</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
Conn.Close
Set Conn = Nothing
%>

<% end sub %>
</body>
</html>
_____________________________________________

Efter man trykker søg får jeg bare en helt blank side - ingen feflmeddelelser.

Adresselinien er også ok - der står f.eks. search.asp?keyword=mig&mode=search

...og det er jo godt nok!!! Hvad er der galt?