Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/03/2013, 02:13
maialenlopez
 
Fecha de Ingreso: abril-2012
Mensajes: 449
Antigüedad: 12 años, 1 mes
Puntos: 7
Exclamación opción seleccionada de combobox

Hola, necesito que me echéis una mano. Os muestro lo que tengo y abajo os explico lo que necesito.
Código ASP:
Ver original
  1. <form action="coplanrev.asp" method = "post" id="form1" name="buscar">
  2.    LINEA:
  3.    <select name='seleccion' onchange ="document.getElementById('form1')">
  4.       <option></option>
  5.       <option>WindPower</option>
  6.       <option>Hydro</option>
  7.       <option>CIM</option>
  8.    </select>
  9.    <input type="submit" name="buscar" value="Buscar">
  10.    <%Dim combo
  11.    if request.Form("seleccion")<> "" then%>
  12.       <%Dim valorcombo
  13.       valorcombo = request.Form("seleccion")
  14.    end if%>
  15. </form>
  16.  
  17. <form action="coplanrev.asp" method = "post" id="form2" name="añadir">
  18.    <input type="text" name="elemento" size=20 value="">
  19.    <input type="submit" name="agregar" value="Agregar">
  20.    <%if request.Form("elemento")="" then%>
  21.    <%else%>
  22.         <%Dim valortext
  23.         valortext = request.Form("elemento")%>
  24.         <%tablabase.open "select count(n_pedido) as n_pedido from tablabase where n_pedido ='"&valortext&"'", conn%>
  25.          <%while not (tablabase.eof)%>
  26.                   <%Dim existe
  27.                   Session(tablabase("n_pedido")) = tablabase("n_pedido").value
  28.                   existe = tablabase("n_pedido")%>
  29.               <%tablabase.moveNext%>
  30.          <%wend%>
  31.          <%tablabase.Close%>
  32.          <%if existe = "1" then%>
  33. [B]COGER VALOR SELECCIONADO DEL COMBO[/B]
  34.                <%if combo<> "" then%>  
  35.                      <%tablabase.open "update tablabase set preaprobacion='1', preaprobacionl='"&combo&"' where n_pedido ='"&valortext&"'", conn%>
  36.                      <%response.redirect "coplanrev.asp"%>
  37.                <%else
  38.                       response.write "<br> * Elige la linea"%>
  39.                <%end if%>
  40.       <%else%>
  41.            <%if valorcombo <> "" then%>
  42.                <%="<BR> * El pedido no existe"%>
  43.            <%else
  44.                response.write "<br> * Elige la linea e introduce el pedido correcto"%>
  45.            <%end if%>
  46.       <%end if%>
  47.    <%end if%>
  48. </form>

Lo que quiero es que en el cacho de código que he introducido, donde he escrito en mayúscula, me coja el valor que elijo del combo del form1 para hacer comprobaciones y coger el valor.

Como puedo hacerlo?

__________________
Gracias por todo;

Un saludo