Menù a tendina

[spila.p]

Menù a tendina

ho realizzato questo menù a tendina in una form di ricerca .
in pratica sono due campi il secondo si aggiorna in base alla scelta fatta nel primo e fin quì tutto ok
la domanda è come faccio a mantenere la scelta fatta all'interno del primo campo?
quando io effettuo una selezione il secondo si aggiorna ma sul primo la scelta sparisce invece io voglio che resti ancora visibile

ecco il link per capire : .....roma122.it/AreaDownload/cerca.asp

<table width="273" border="1" align="center">
  <tr>
    <td width="155">Categoria</td>
    <td width="102">      <form action="cerca.asp" method="get" name="cerca" id="cerca">
          <select name="Sel_cat" id="Sel_cat" onchange="submit()">
            <option value="value">--</option>
            <%
While (NOT categoria.EOF)
%>
            <option value="<%=(categoria.Fields.Item("codifica").Value)%>"><%=(categoria.Fields.Item("Categoria").Value)%></option>
            <%
  categoria.MoveNext()
Wend
If (categoria.CursorType > 0) Then
  categoria.MoveFirst
Else
  categoria.Requery
End If
%>
          </select>
                    </form></td>
  </tr>
  <tr>
    <td><p>Sub Categoria </p></td>
    <td><select name="sel_subCat" id="sel_subCat">
      <%
While (NOT SubCategoria.EOF)
%>
      <option value="<%=(SubCategoria.Fields.Item("SubCateg").Value)%>" <%If (Not isNull((SubCategoria.Fields.Item("SubCateg").Value))) Then If (CStr(SubCategoria.Fields.Item("SubCateg").Value) = CStr((SubCategoria.Fields.Item("SubCateg").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(SubCategoria.Fields.Item("SubCateg").Value)%></option>
      <%
  SubCategoria.MoveNext()
Wend
If (SubCategoria.CursorType > 0) Then
  SubCategoria.MoveFirst
Else
  SubCategoria.Requery
End If
%>
    </select></td>
  </tr>
</table>