Se esperaba un objeto ';' He leido en le foro para manejar selects dependientes pero no me ha sido factible adecuar ese codigo con el mio de las dos opciones que se manejan en un foro anterior de urjose, no se si alguien me pueda colaborar y decirme que pueda estar mal. Gracias por su colaboracion anexo codigo
<head>
<title>
</title>
</head>
<body>
<%
Dim rsttask
Set rsttask = SQLQuery(cnnDB, "SELECT sc.subcat_id, sc.scategory_id, sc.sname, " & _
"st.taskname, st.iddef, st.id_subcat, ca.category_id, ca.cname " & _
"FROM sub_categories AS sc, categories AS ca, sub_task AS st " & _
"WHERE sc.subcat_id = st.id_subcat")
%>
<div align="center">
<table class="Normal">
<tr class="Head1">
<td colspan="4">
Titulos
</tr>
<tr class="Head2">
<td>
<div align="center">
titul </div>
</td>
<td>
<div align="center">
titul </div>
</td>
</tr>
<FORM NAME="Listas" METHOD="POST" ACTION="viewtask.asp">
<tr class="Body1"> <!-- LISTAS DEPENDIENTES DE CATEGORIAS Y SUBCATEGORIAS -->
<td align="center">
<SELECT NAME="Categories" SIZE="1"
OnChange="componerlista (document.forms.Listas.Categories[selectedIndex].value);">
<%
' Get list of categories to display
Dim rstCatList, namecat, idcat, aux
Set rstCatList = SQLQuery(cnnDB, "SELECT * FROM categories " & _
"WHERE category_id > 0 ORDER BY cname ASC")
aux = 1
While Not rstCatList.EOF
%>
<OPTION VALUE="<%=rstCatList("category_id")%>">
<%If aux = 1 Then %>
<SELECTED>
<% End If %>
<%=rstCatList("cname")%></OPTION>
<%
rstCatList.Movenext
aux = aux + 1
Wend
rstCatList.Close
%>
</SELECT><em>*</em>
</td>
<td align="center">
<SELECT NAME="subcat" SIZE="1">
</SELECT>
</td>
</tr>
<p><INPUT TYPE="submit"></p>
</FORM>
<SCRIPT LANGUAGE="javascript">
<!--
function Tupla ( campo1, campo2 )
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<%
'Vamos a crear nuestros arrays de productos desde ASP
'El primer IF detecta un cambio en la categoría
'para crear un nuevo array en Javascript
%>
<%
Dim rstsubcate, cat
Set rstsubcate = SQLQuery(cnnDB,"SELECT * FROM sub_categories ORDER BY scategory_id, subcat_id")
aux = 0
cat="basura"
response.Write(rstsubcate("subcat_id"))
While Not rstsubcate.EOF
If cat <> rstsubcate("scategory_id") Then
'cambio de categoria, empiezo a contar en 0
aux = 0
cat = Cint(rstsubcate("scategory_id"))
'Además tengo que crear un nuevo array para la categoría
%>
var opciones <%=cat%> = new Array();
<%
End If
%>
opciones<%=cat%>[<%=aux%>]=new Tupla("<%=rstsubcate("sname")%>","<%=rstsubcate("s ubcat_id")%>");
<%
aux = aux + 1
rstsubcate.MoveNext
wend
%>
<%
'Limpiamos objetos
rstsubcate.Close
Set rstsubcate=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.subcat.length=0;
}
//Inicializamos
ComponerLista (1);
-->
</SCRIPT>
</FORM>
</table>
</body>
