obtener valores de un combo

[mvegasa]

Hola a todos.

tengo el siguiente codigo:

<Form Action=activa_encuesta.asp Method=Get>
<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ=E:\Asp\Diagnostico\Menu\Diagnostico.mdb;Drive r={Microsoft Access Driver (*.mdb)}"
SQL = "Select * From encuesta"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("id_encuesta")%>"><%=rs("nombre")%></option>'
<%
rs.MoveNext
Wend
rs.Close
%>
</Select>
<input name="Activar" type="submit" id="Activar" value="Activar">
</FORM>

con lo que el combo se crea así:

1 opcion 1
2 opcion 2
3 opcion 3
n opcion n

donde 1 = rs("id_encuesta")
donde opcion 1 = rs("nombre")

cómo hago para obtener el opcion 1, opcion 2..... y pasarlo a un campo de texto.

con el valoe del indice no hay problema 1, 2, 3....


gracias de antemano.
Marcelo

[u_goldman]

mmmmhhhh, más bien esto es de javascript

Aquí tienes una idea:

<script language=javascript>
function EscribeAInput(un_option)
{
indice = un_option.selectedIndex;
texto = Eleccion.options[indice].text;
document.tu_forma.queSeleccion.value = texto;
}
</script>

<input type=text name=queSeleccion value="">
<Select Name="Eleccion" onchange="EscribeAInput(Eleccion);">

Salu2,

[AlZuwaga]

Lo que suelo hacer en estos casos es agregar la descripción del option al ID, separado por algún delimitador dentro del value. Luego, cuando lo recojo, lo separo mediante split y los manejo independientemente uno de otro. Así:



<Form Action=activa_encuesta.asp Method=Get>
<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ=E:\Asp\Diagnostico\Menu\Diagnostico.mdb;Drive r={Microsoft Access Driver (*.mdb)}"
SQL = "Select * From encuesta"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<% = rs("id_encuesta") & "|" & rs("nombre") %>"><%=rs("nombre")%></option>
<%
rs.MoveNext
Wend
rs.Close
%>
</Select>
<input name="Activar" type="submit" id="Activar" value="Activar">
</FORM>



Y luego, en activa_encuesta.asp:

Eleccion = Split(Request("Eleccion"), "|")
id_encuesta = Eleccion(0)
nombre = Eleccion(1)

[AlZuwaga]

mmmmhhhh, más bien esto es de javascript

Aishh, parece que si
Yo había interpretado que quería pasar el nombre de la encuesta (y por supuesto su id) a otra página