Holas, no se porq sale error con las listas independientes, funcionanban OK cuando recien cree la BD, pero luego elimine toda la Info de la Bd, y al correr las listas me sale error, aqui le pongo el codigo y el error, espero q me puedan ayudar:
**La linea de error lo señalare en negrita
<!--#include file="../setup.asp" -->
<HTML>
<HEAD>
<TITLE>Listas dependientes</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<BODY background="../imagenes/747400f_k61325.jpg">
<H2><CENTER>
Seleccionar carrera,nivel y material de estudio para el examen
</CENTER></H2>
<P>
<FORM ACTION="examen_add.asp" METHOD="POST" NAME="Listas">
<B>Carrera</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")
SQL="SELECT * FROM Carreras"
rs.Open SQL, cn
cuenta=1
while not rs.EOF
%>
<OPTION VALUE="<%=rs.Fields("id")%>"
<% if cuenta=1 then%>
SELECTED
<%end if%>>
<%=rs.Fields("nombre")%></OPTION>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close
%>
</SELECT>
<P><B>Nivel </B>
<SELECT NAME="Productos" SIZE="1">
</SELECT>
<b><br>
<br>
Ingresar título del examen
<input name="titulo" type="text" id="titulo">
<br>
<br>
Seleccionar meterial de estudio
<input type="file" name="file">
</b>
<P align="center">
<INPUT TYPE="submit" value="Guardar">
</FORM>
<div align="center">
<SCRIPT LANGUAGE="Javascript">
<!--
function Tupla ( campo1, campo2 )
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<%
SQL="SELECT * FROM nivel ORDER BY carrera, id"
rs.Open SQL, cn
cuenta=0
cat="basura"
while not rs.EOF
if cat<>rs.Fields("carrera") then
' cambio de carrera, empiezo a contar en 0
cuenta=0
cat=rs.Fields("carrera")
'además tengo que crear un nuevo array para la categoría
%>
var opciones<%=cat%> = new Array();
<%
end if
%>
opciones<%=cat%>[<%=cuenta%>]=new Tupla("<%=rs.Fields("nivel")%>","<%=rs.Fields("id" )%>");
<%
cuenta=cuenta+1
rs.MoveNext
wend
%>
<%
'Limpiamos objetos
rs.Close
set rs=nothing
cn.Close
set cn=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
} // ComponerLista
function BorrarLista() {
Listas.Productos.length=0;
}
//Inicializamos
ComponerLista (1);
-->
</SCRIPT>
<strong><br></FORM>
<a href="default.asp"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Regresar
al menú</font></a> </strong></div>
</BODY>
</HTML>
ESTE ES EL ERROR QUE ME MUESTRA:
linea :60
Car:1
Error: 'opciones1' no esta definido
Codigo: 0
URL:http:/www.ceseas.com.pe/examenadd.asp
