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 cdigos 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 intencin que tengo es que al seleccionar un subproducto determinado se cargue una capa u otra pgina en el que aparezcan una serie de valores (segn el fragmento de cdigo que os anexo vendra dado por "campo de texto 1") en funcin 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, segn se seleccione cualquiera de stos la pgina te pida unos datos u otros (estos datospor supuesto harn referencia a cada subproducto en concreto). Aqu va un fragmento del cdigo:


...

<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 tenis cualquier cuestin por favor no dudis en hacrmela saber. Muchas gracias.

Un saludo.
Gin