Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/08/2003, 23:29
Buba
 
Fecha de Ingreso: julio-2003
Ubicación: Santiago
Mensajes: 11
Antigüedad: 21 años, 9 meses
Puntos: 0
Pregunta Problema con Codigo

Hola Maestros de ASP
Tengo problemas con un codigo y no se como resolverlo, resulta que uso un OPTION dentro de un SELECT para poder mostrar los datos de una BD dependiendo de la opcion seleccionada, pero me sale al reves, es decir, yo quiero que al seleccionar el NRO DE ORDEN me muestre el nombre de EMPRESA, RUT, COD PRODUCTO, etc, y lo que me hace es al escoger yo el COD PRODUCTO me muestra el NRO DE ORDEN.
Espero me puedan ayudar

ACA VA EL CODIGO

<HTML>
<HEAD>
<TITLE>Listas dependientes</TITLE>
</HEAD>
<BODY>
<H2><CENTER>Listas </CENTER></H2>
<P><B>Elige una categoría </B>
<P>
<FORM NAME="Listas" METHOD="POST" ACTION="receive.asp">
<B>Numero de Orden</B>
<SELECT NAME="Categorias" SIZE="1"
OnChange="ComponerLista (document.forms.Listas.Categorias[selectedIndex].value);">
<%
Dim oConn, rs, SQL, cuenta, categoria
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Servicios.mdb")
SQL="SELECT * FROM Orden_Trabajo"
rs.Open SQL, oConn
cuenta=1
while not rs.EOF
%>
<OPTION VALUE="<%=rs.Fields("Nro_Orden")%>"
<% if cuenta=1 then%>
SELECTED
<%end if%>>
<%=rs.Fields("Nro_Orden")%></OPTION>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close
%>
</SELECT>
<P><B>Productos</B>
<SELECT NAME="Productos" SIZE="1">
</SELECT>
<br><br><br><br>
<P><INPUT TYPE="submit"></FORM>
<SCRIPT LANGUAGE="Javascript">
<!--
function Tupla ( campo1, campo2 )
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<%
SQL="SELECT * FROM Orden_Trabajo"
rs.Open SQL, oConn
cuenta=0
cat="basura"
while not rs.EOF
if cat<>rs.Fields("Nro_Orden") then
cuenta=0
cat=rs.Fields("Nro_Orden")
%>
var opciones<%=cat%> = new Array();
<%
end if
%>
opciones<%=cat%>[<%=cuenta%>]=new Tupla("<%=rs.Fields("Nro_Orden")%>","<%=rs.Fields( "Empresa")%>","<%=rs.Fields("Cod_Producto1")%> ");
<%
cuenta=cuenta+1
rs.MoveNext
wend
%>
<%
rs.Close
set rs=nothing
oConn.Close
set oConn=nothing
%>
var contador;
function ComponerLista ( array ) {
BorrarLista();
array = eval("opciones" + array);
for (contador=0; contador<array.length; contador++)
{
var optionObj = new Option( array[contador].campo1, array[contador].campo2 );
Listas.Productos.options[contador] = optionObj;
} // for
} // ComponerLista
function BorrarLista() {
Listas.Productos.length=0;
}
ComponerLista (1);
-->
</SCRIPT>
<br>
</FORM>
</BODY>
</HTML>