ERROR EN CARGA DE LISTA [SELECT]

DENK
21 de Enero del 2005
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>

[email protected]
21 de Enero del 2005
pues no tengo idea...

aaaaa
21 de Enero del 2005
ayudenme please...