Søgning i Access database

<table border=\"0\" bgcolor=\"#CC3300\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
  <tr>
    <td align=\"center\" valign=\"middle\">
      <p>
      <% Query = request.Form(\"txtQuery\")%>
      <% If Query = \"\" then %>
<form method=\"post\" action=\"index.asp?valg=soeg\" name=\"submit_search\">
  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
            <td> <font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">
              &nbsp;<font color=\"#FFFFFF\">Søg vare:</font>
              <input type=\"text\" name=\"txtQuery\">
                    <input type=\"submit\" name=\"Submit\" value=\"S&oslash;g\">
        </font></td>
    </tr>
  </table>
</form>

      <%
        If Request.Form(\"Submit\") = \"Submit\" Then
        Response.Write \"Du skal skrive et søgeord i feltet, før du trykker på søg.<BR>\"
        End If
      %>
      <% Else %>
      <%
        If Query = \"\" then
        Response.Write(\"Søgningen gav intet resultat\")
        end if
      %>
<form method=\"post\" action=\"index.asp?valg=soeg\" name=\"submit_search\">
  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
    <tr>
            <td> <font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">&nbsp;<font color=\"#FFFFFF\">Søg vare:</font>
              <input type=\"text\" name=\"txtQuery\">
                    <input type=\"submit\" name=\"Submit\" value=\"S&oslash;g\">
        </font></td>
    </tr>
  </table>
</form>
      <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
      <%
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Set Rs = Server.CreateObject(\"ADODB.Recordset\")
          \'Modify and use this connection if your database is in your database directory
        \'Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\\your database directory\\items.mdb\"
        Conn.Open \"DBQ=\" & Server.Mappath(\"items.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"

        SQL = \"SELECT ProductNum, Name, Price, ImageURL, Description, Category FROM Items WHERE Name like \'%\" & Query & \"%\'\"
        rs.Open SQL, Conn

        x = 0
        For x = 1 to 9999
        If rs.eof then
        If x = 1 Then
        Response.Write \"Søgningen gav intet resultat.<BR>\"
        End If
        Exit For
        Else

        ImageURL = rs(\"ImageURL\")
        ImageURL = \"<img src=\'\" & ImageURL & \"\'>\"
      %>
      </font>
      <table width=\"90%\" border=\"0\" cellspacing=\"1\" cellpadding=\"0\" bgcolor=\"#000000\">
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">
              &nbsp;Vare Nr.</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
      <% =rs(\"ProductNum\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Varenavn&nbsp;</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =rs(\"Name\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Beskrivelse&nbsp;</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =rs(\"Description\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
            <div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;Pris&nbsp;</font></div>
          </td>
          <td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =rs(\"Price\")%>
            </font></td>
        </tr>
        <tr>
          <td width=\"152\" align=\"right\" valign=\"bottom\" bgcolor=\"#FFFFFF\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\"><a href=\"index.asp?valg=viskurv&amp;action=add&amp;item=<% =rs(\"ProductNum\")%>&amp;count=1\"><img src=\"images/koeb.jpg\" width=\"34\" height=\"20\" border=\"0\" alt=\"K&oslash;b vare\"></a>&nbsp;</font></td>
          <td width=\"448\" align=\"left\" valign=\"bottom\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <% =ImageURL %>
            </font></td>
        </tr>
      </table>
      <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> </font>
      <hr color=\"#CCCCCC\" size=\"1\" noshade>
      <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
      <%
        rs.MoveNext
        End If
        Next
        End If
      %>
      </font> </td>
        </tr>
</table>

her:
http://www.activeserverpages.dk/aspdigital/kapitel2/search.asp

tak for hjælpen