Dynamisk Rullemenu skjuler Tekstfelt

<form name=\"form1\" method=\"post\" action=\"\">
    <p>
      <select name=\"select\">
        <%
While (NOT rsHovedkategori.EOF)
%>
        <option value=\"<%=(rsHovedkategori.Fields.Item(\"Hovedkategori\").Value)%>\" ><%=(rsHovedkategori.Fields.Item(\"Hovedkategori\").Value)%></option>
        <%
  rsHovedkategori.MoveNext()
Wend
If (rsHovedkategori.CursorType > 0) Then
  rsHovedkategori.MoveFirst
Else
  rsHovedkategori.Requery
End If
%>
      </select>
    </p>
    <p>
      <input type=\"text\" name=\"textfield\">
    </p>
  </form>