Mantener las variables seleccionadas

[aurelitus]

Hola a quien me pueda colaborar...

Tengo dos listas desplegables, y con lo seleccionado extraigo datos de una base de datos y armo una consulta...hasta ahi perfecto....pero cuando me presenta los resultados enla pagina..las listas quedan otravez como cuando se inicia la pagina, necesito que conserve los items seleccionados...como lo hago?...

Gracias por su ayuda

[Myakire]

Una forma:

<select name="x">
<option value="algo" <%if request(x)="algo" then%> selected<%end if%>>valor
...

Saludos

[ElAprendiz]

response.write "<select name=""select"">"
if variable=rs("valor") then
response.write "<option value="""&rs("valor")&"" selected>"&rs("texto")&"</option>"
else
response.write "<option value="""&rs("valor")&"">"&rs("texto")&"</option>"
end if
response.write "</select>"

[roland.net]

Lo que yo he hecho es cachar los items seleccionados con request, despues cuando formas otra vez el contenido de las listas comparas el valor seleccionado por el que vas a mostrar si coincide entonces pones un Selected al elemento; espero ser claro,

[aurelitus]

Anexo la parte del codigo que me llena la lista numero 1...

<SELECT NAME="SUCURSALES" SIZE="1"
OnChange="ComponerLista (document.forms.Listas.SUCURSALES[selectedIndex].value);">
<%

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rs1=Server.CreateObject("ADODB.Recordset")

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("MAPA.mdb")

SQL="SELECT CODIGO, DESCRIPCION FROM NIVELES_PRINCIPALES ORDER BY CODIGO"
rs.Open SQL, oConn
cuenta=1
while not rs.EOF
%>
<OPTION VALUE="<%=rs.Fields("CODIGO")%>"
<% if cuenta=1 then%>
SELECTED
<%end if%>><FONT SIZE=1>
<%=rs.Fields("DESCRIPCION")%></FONT></OPTION>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close

En que parte de este codigo le anexo lo que ustedes me explican?..gracias por su ayuda.