Dropdown bokse problem !!!

Kan man se noget kode ???

<!--#include file=\"conn.asp\"-->
<%


Set Conn = Server.CreateObject(\"ADODB.Connection\")
            Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../Database/senior.mdb\")
            strSQL = \"Select * From Mad_Kalender ORDER BY Dato\"
            set rs = Conn.execute(strSQL)
           
           
%>
<html>
<head>
<title>Madkalender</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<form name=\"Madkalender\" method=\"post\" action=\"bestiltmad.asp\">


<%
WHILE NOT RS.EOF
%>
<table width=\"480\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
    <td height=\"27\" valign=\"top\" colspan=\"3\">Den ugentlige kalender :</td>
  </tr>
  <tr>
    <td height=\"30\" colspan=\"3\" valign=\"top\"> Den <%= RS(\"Dato\") %> </td>
  </tr>
    <tr>
      <td width=\"111\" valign=\"top\" rowspan=\"2\">Frokost :</td>
      <td valign=\"top\" height=\"30\" colspan=\"2\">
      Klik her for at v&aelig;lge din varme ret :
     
      </td>
    </tr>
    <tr>
      <td valign=\"top\" height=\"30\" colspan=\"2\">
       
        <select Name=\"Varmret\">
          <option value=\"<%= RS(\"Varmret_1\") %>\"><%= RS(\"Varmret_1\") %></option>
          <option value=\"<%= RS(\"Varmret_2\") %>\"><%= RS(\"Varmret_2\") %></option>
        </select>
     
      </td>
    </tr>
  <tr>
    <td colspan=\"3\" height=\"20\" valign=\"top\">&nbsp;</td>
  </tr>
  <tr>
    <td height=\"30\" valign=\"top\">Dessert :</td>
    <td width=\"89\" valign=\"top\">
     
     
      <select Name=\"Dessert\">
        <option value=\"Ja\">Ja</option>
        <option value=\"Nej\">Nej</option>
      </select>
   

   
    </td>
    <td valign=\"top\" width=\"280\"><%= RS(\"Dessert\") %></td>
  </tr>
  <tr>
    <td valign=\"top\" height=\"30\">Aftensmad :</td>
    <td valign=\"top\">
     
      <select Name=\"Aftensmad\">
        <option value=\"Ja\">Ja</option>
        <option value=\"Nej\">Nej</option>
      </select>
     
         
    </td>
    <td valign=\"top\"><%= RS(\"Aftensmad\") %></td>
  </tr>
  <tr>
    <td height=\"20\" colspan=\"3\" valign=\"top\">
       
      </td>
  </tr>
</table>
  <%
RS.MoveNext
WEND
%>
  <input type=\"submit\" name=\"Bestil\" value=\"Bestil\">
  <%
    Conn.close
  set Conn = nothing
%>
</form>

</body>
</html>

\'fil er bestiltmad.asp
<%
Varmret = request.querystring(\"Varmret\")

response.write(Varmret)
%>

eller

<%
Varmret = request(\"Varmret\")

response.write(Varmret)
%>

Hmm øjeblik!

Hver option skal have et unikt navn :)

        <select Name=\"Varmret\">
          <option value=\"<%= RS(\"Varmret_1\")%> name=\'varmret1\'\"><%= RS(\"Varmret_1\") %></option>
          <option value=\"<%= RS(\"Varmret_2\") %> name=\'varmret2\'\"><%= RS(\"Varmret_2\") %></option>
        </select>

\'fil er bestiltmad.asp

<%
If Varmret1 <> \"\" Then
    Varmret = request.form(\"Varmret1\")
Else
    Varmret = request.form(\"Varmret2\")
End If

response.write(Varmret)
%>

Det var et hurtigt løsningsforslag :)

-Grunken

undskyld at jeg ikke har lukket dette spørgsmål... sorry...