Drop down

jeg har en Drop down, der henter data fra en data base, den virker fin, men jeg ville gerne at den selv ville vælge en en i drop down\'en, så man derved fik et input med når man går til neste
min kode er :

<%
SQLserveradr=\"xxx\"
SQLdatabase=\"xx\"   
SQLlogin=\"xxx\"
SQLpassword=\"xxx\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"driver={MySql};server=\"& SQLserveradr &\";database=\"& SQLdatabase &\";uid=\"& SQLlogin &\";pwd=\"& SQLpassword

SQLstmt = \"SELECT menu.* FROM menu WHERE userID= \"&session(\"userID\")& \" \" & \" ORDER BY menu.sort ASC\"
\'Response.Write SQLstmt
Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
    id = rs(\"id\")
%>
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1352\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Bruger login</title>
<style type=\"text/css\">
<!--
A { text-decoration: none }
A { color: #FFCC00; font-family: Arial; font-size: 14px; }
A:hover    { text-decoration: nounderline }
A:hover { color: #FFFFFF }-->
</style>

<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<title>Tilføj undermenu</title>
</head>

<body bgcolor=\"#42495A\" text=\"#FFCC00\" link=\"#C0C0C0\" vlink=\"#C0C0C0\" alink=\"#C0C0C0\">



<form method=\"POST\" action=\"add_submenu2.asp\"

<head>


  <table border=\"0\" width=\"568\" >

   
    <td width=\"190\">
    <tr>
      <td width=\"300\" valign=\"top\" align=\"left\" ><b>Vælg under hvilket menu punkt den&nbsp;&nbsp;</b></td>
        </tr>
    <tr>
  <td width=\"300\" valign=\"top\" align=\"left\" ><b>nye undermenu skal findes:&nbsp;&nbsp;</b></td>

     
    <td width=\"364\" valign=\"bottom\" ><select name=\"id\" >
<% Do While Not rs.EOF %>

<option value=\"<% = rs(\"id\") %>\"><%=rs(\"kategorinavn\")%>&nbsp [<%=RS(\"id\")%>]</option>
<% rs.movenext %>
<% loop %>
</select>
</font>
<%
rs.close
conn.close
set rs = nothing
set conn = nothing
%>

</td>
   
  </table>


<%session(\"id\") = Request(\"id\")%>
  <p><input type=\"submit\" value=\"Næste >\" name=\"B1\"></p>
</form>

<BR>
  <table border=\"0\" width=\"568\" >
      <td width=\"150\" valign=\"top\" align=\"right\" ><b>Vises som nummer:&nbsp;&nbsp; </b></td>
      <td width=\"400\" valign=\"top\" >Er den rækkefølge menuen skal vises i.</td>
    <tr>

  </table>

        <BR>
<BR>


<a href=\"vis_event.asp\" >Tilbage til forsiden</a>
           
</html>