Søgemaskine hjælp

<%
if request.querystring(\"action\") = \"sog\" then

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"203.mdb\")

SQL = \"SELECT id, firma, beskrivlse FROM ordrer\"
Set rs4 = Conn.Execute (SQL)
%>



<form name=\"form1\" method=\"post\" action=\"odrer.asp?action=sog\">
<table width=\"470\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"brodtext\">
<tr>
<td width=\"41\">S&oslash;g :</td>
<td width=\"429\">
<input type=\"text\" name=\"id\">  <-- her skrives det man søger
</td>
</tr>
<tr>
<td width=\"41\">&nbsp;</td>
<td width=\"429\">
<input type=\"submit\" name=\"Submit\" value=\"Submit\">      <------ her er submit
</td>
</tr>
<tr>
<td width=\"470\" colspan=\"2\"> <br>
<%
if not rs4.EOF then
   
resultat = rs4.getrows()
   
rs4.close
Set rs4 = Nothing

matches = ubound(resultat, 2)

for i = 0 to matches

response.write \"ID = \" & resultat(0,i) & \"<br><br>\"
response.write \"Firma = \" & resultat(1,i) & \"<br><br>\"
response.write \"Beskrivlse = \" & resultat(2,i) & \"<br><br>\"

next

end if
%>