menu dinamico en asp

gin75
15 de Diciembre del 2004
Buenas tardes,

ante todo un saludo a todos en este mi primer mensaje (en mucho tiempo) en este foro:)

estoy tratando de hacer que funcione un menú de Subproductos en asp que se carga por BD (una BD con los códigos de Productos, Productos y Subproductos asociados). Este menú está incorporado en un formulario que incluye otros campos y que todos cargan perfectamente. El problema se ha presentado en este menú, ya que la intención que tengo es que al seleccionar un subproducto determinado se cargue una capa u otra página en el que aparezcan una serie de valores (según el fragmento de código que os anexo vendría dado por "campo de texto 1") en función del subproducto que se seleccione. Es decir, que si por ejemplo en el formulario se carga un producto que a su vez tiene 3 subproductos asociados, según se seleccione cualquiera de éstos la página te pida unos datos u otros (estos datospor supuesto harán referencia a cada subproducto en concreto). Aquí va un fragmento del código:


...

<SELECT NAME="Subproducto">
<%If ((Request.QueryString("Cargar_Subproductos") = "SI") OR _
(Request.QueryString("CargardeDatos") = "SI")) Then
sSQL="SELECT DISTINCT Subproducto FROM Tbl_CodigosProductos " & _
"WHERE Producto = '" & Request.Form("Producto") & "' " & _
"ORDER BY Subproducto"
Else
RS_Productos.MoveFirst
sSQL="SELECT DISTINCT Subproducto FROM Tbl_Cod_Productos " & _
"WHERE Producto = '" & RS_Productos("Producto") & "'"
End If

SET RS_Subproductos = Conexion.Execute(sSQL)

While Not RS_Subproductos.EOF
If ((Request.QueryString("Cargar_Datos") = "SI") OR _
(Request.QueryString("Cargar_Subproductos") = "SI")) Then
If (Request.Form("Subproducto") = RS_Subproductos("Subproducto")) Then
%>
<OPTION SELECTED><%=RS_Subproductos("Subproducto")%></OPTION>
<%
Else
%>
<OPTION><%=RS_Subproductos("Subproducto")%></OPTION>
<%
End If
Else
%>
<OPTION><%=RS_Subproductos("Subproducto")%></OPTION>
<%
End If
RS_Subproductos.MoveNext
Wend
%>
</SELECT>

...


If ((Request.QueryString("Cargardedatos") = "SI") OR _
(Request.QueryString("Cargar_Subproductos") = "SI")) Then
%>
<INPUT TYPE="TEXT" NAME="campo de texto1" SIZE="20" VALUE="<%=Request.Form("Documento")%>">
<%
Else
%>
<INPUT TYPE="TEXT" NAME="campo de texto 1" SIZE="20">
<%
End If
%>

Si tenéis cualquier cuestión por favor no dudéis en hacérmela saber. Muchas gracias.

Un saludo.
Gin