ERROR EN CARGA DE LISTA [SELECT]
Intente adaptar un código que baje de internet, para cargar dos listas la segunda depende de los resultados de la primera, pero ya la adapte y no logro hacer cargar la segunda... cuando se carga la pagina me envia le siguiente error:
Línea: 52
Car: 15
Error: Se esperaba ','
URL: http://...
y cuando ocurre el evento onChange me envia el siguiente error:
Línea 13
Car: 1
Error: Se esperaba un objeto
código: 0
URL: http://...
podrían ayudarme...
son solo 2 tablas que uso... y cada una tiene su ID y su descripción.
este es el código, haber si me pueden ayudar....
Gracias
<%'Este es un asp que contiene 5 lineas para conectarse a la base de datos....%>
<!--#include file="cBD.asp"-->
<HTML>
<HEAD>
<TITLE>Sample</TITLE>
</HEAD>
<BODY>
<H2><CENTER>...</CENTER></H2>
<P><B>Test:</B>
<P>
<FORM NAME = "Listas" METHOD = "POST" ACTION = "receive.asp">
<B>Grupo 1: </B>
<select name = "Categorias" size = "1"
onChange = "ComponerLista (document.forms.Listas.Categorias[selectedIndex].value);">
<%
Dim SQL, cuenta, categoria
SQL = "SELECT * FROM infraestructuras WHERE id_gerencia = 1"
Set rs = cnn.Execute(SQL)
cuenta = 1
While Not rs.EOF
%>
<OPTION VALUE = "<%=rs("Id_Infraestructura")%>"
<% if cuenta = 1 then%>
SELECTED
<%end if%>>
<%=rs("descripcion")%></OPTION>
<%
rs.MoveNext
cuenta = cuenta + 1
wend
rs.Close
%>
</select>
<P><strong>Subgrupo 2: </strong>
<SELECT NAME="Productos" SIZE="1">
</SELECT>
<P><INPUT TYPE="submit"></FORM>
<SCRIPT LANGUAGE="Javascript">
<!--
function Tupla ( campo1, campo2 )
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<%
'Creamos el QUERY para realizar la segunda consulta
SQL = "SELECT * FROM inventarios"
Set rs = cnn.Execute(SQL)
cuenta = 0
cat = "basura"
while not rs.EOF
if cat <> rs("no_inventario") then
cuenta = 0
cat = rs("no_inventario")
%>
var opciones<%=cat%> = new Array();
<%
end if
%>
opciones<%=cat%>[<%=cuenta%>] = new Tupla("<%=rs("inventario")%>","<%=("id_infraestructura")%>");
<%
cuenta = cuenta + 1
rs.MoveNext
wend
%>
<%
'Limpiamos objetos
rs.Close
set rs=nothing
cnn.Close
set oConn=nothing
%>
var contador;
function ComponerLista ( array )
{
// Compone la lista dependiente a partir
// del valor de la opcion escogida en la lista "Padre"
BorrarLista();
array = eval("opciones" + array);
for (contador=0; contador<array.length; contador++)
{
// Añade elementos nuestro combobox
var optionObj = new Option( array[contador].campo1, array[contador].campo2 );
Listas.Productos.options[contador] = optionObj;
} // For
} // Fin ComponerLista
function BorrarLista()
{
Listas.Productos.length=0;
}
//Inicializamos
ComponerLista (1);
-->
</SCRIPT>
<br>
</FORM>
</BODY>
</HTML>
Línea: 52
Car: 15
Error: Se esperaba ','
URL: http://...
y cuando ocurre el evento onChange me envia el siguiente error:
Línea 13
Car: 1
Error: Se esperaba un objeto
código: 0
URL: http://...
podrían ayudarme...
son solo 2 tablas que uso... y cada una tiene su ID y su descripción.
este es el código, haber si me pueden ayudar....
Gracias
<%'Este es un asp que contiene 5 lineas para conectarse a la base de datos....%>
<!--#include file="cBD.asp"-->
<HTML>
<HEAD>
<TITLE>Sample</TITLE>
</HEAD>
<BODY>
<H2><CENTER>...</CENTER></H2>
<P><B>Test:</B>
<P>
<FORM NAME = "Listas" METHOD = "POST" ACTION = "receive.asp">
<B>Grupo 1: </B>
<select name = "Categorias" size = "1"
onChange = "ComponerLista (document.forms.Listas.Categorias[selectedIndex].value);">
<%
Dim SQL, cuenta, categoria
SQL = "SELECT * FROM infraestructuras WHERE id_gerencia = 1"
Set rs = cnn.Execute(SQL)
cuenta = 1
While Not rs.EOF
%>
<OPTION VALUE = "<%=rs("Id_Infraestructura")%>"
<% if cuenta = 1 then%>
SELECTED
<%end if%>>
<%=rs("descripcion")%></OPTION>
<%
rs.MoveNext
cuenta = cuenta + 1
wend
rs.Close
%>
</select>
<P><strong>Subgrupo 2: </strong>
<SELECT NAME="Productos" SIZE="1">
</SELECT>
<P><INPUT TYPE="submit"></FORM>
<SCRIPT LANGUAGE="Javascript">
<!--
function Tupla ( campo1, campo2 )
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<%
'Creamos el QUERY para realizar la segunda consulta
SQL = "SELECT * FROM inventarios"
Set rs = cnn.Execute(SQL)
cuenta = 0
cat = "basura"
while not rs.EOF
if cat <> rs("no_inventario") then
cuenta = 0
cat = rs("no_inventario")
%>
var opciones<%=cat%> = new Array();
<%
end if
%>
opciones<%=cat%>[<%=cuenta%>] = new Tupla("<%=rs("inventario")%>","<%=("id_infraestructura")%>");
<%
cuenta = cuenta + 1
rs.MoveNext
wend
%>
<%
'Limpiamos objetos
rs.Close
set rs=nothing
cnn.Close
set oConn=nothing
%>
var contador;
function ComponerLista ( array )
{
// Compone la lista dependiente a partir
// del valor de la opcion escogida en la lista "Padre"
BorrarLista();
array = eval("opciones" + array);
for (contador=0; contador<array.length; contador++)
{
// Añade elementos nuestro combobox
var optionObj = new Option( array[contador].campo1, array[contador].campo2 );
Listas.Productos.options[contador] = optionObj;
} // For
} // Fin ComponerLista
function BorrarLista()
{
Listas.Productos.length=0;
}
//Inicializamos
ComponerLista (1);
-->
</SCRIPT>
<br>
</FORM>
</BODY>
</HTML>
pues no tengo idea...