El tema que en la subcategorias existen repetidas por ejemplo tengo una categoria de electricidad donde figura la subcategoria accesorios , y tengo otra categoria que se llama computacion que tiene una subcategoria llamada accesorios ese es el problema .
Por otro lado estube trabajando con un codigo de listas dependientes , pero una lista que es la primera me la carga sin problemas pero la otra lista que es dependiente de la 1 no me la carga , les paso el codigo a ver quien me puede dar una mano antes que me vuelva loco -
<td height="250"><FORM NAME="Listas" METHOD="POST" ACTION="file:receive.asp">
<div align="center">
<p><B><font color="#FFFFFF"> <br>
</font></B></p>
<table width="500" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="21" colspan="2"><div align="center" class="navlink10bl"></div></td>
</tr>
<tr>
<td class="bbullet7w"><div align="right"></div></td>
<td height="20" class="bbullet7w"><font color="#FF0000">Note
(*) are fequired fields</font></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">*
Nombre del Negocio: </div></td>
<td><input type="text" name="name"> </td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">*Direccion:
</div></td>
<td><input name="address" type="text" size="30"></td>
</tr>
<tr>
<td width="150" valign="top"> <div align="right" class="bodyBold8">
*Servicio o Rubro: </div></td>
<td><textarea name="services" cols="30" rows="4" id="services"></textarea>
</td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">Email
: </div></td>
<td><input name="email" type="text" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right"><span class="bodyBold8">*
Telefono:</span> </div></td>
<td><input name="phone" type="text" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">
Horario de Arención</div></td>
<td><input name="fax" type="text" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">*Enlace:
</div></td>
<td><input name="url" type="text" size="30"></td>
</tr>
<tr>
<td><div align="right" class="bodyBold8">*Keyword:</div></td>
<td><input name="keyword" type="text" id="keyword" size="30"></td>
</tr>
<tr>
<td width="150"> <div align="right" class="bodyBold8">Imagen
path: </div></td>
<td><input name="image" type="text" id="image2" size="30"></td>
</tr>
<tr>
<td width="150"> </td>
<td class="navlink"><b><font color="#FFFFFF"><font color="#E48183"><font color="#0000FF">Seleccione
una categoria</font></font></font> </b> <select name="Category" size="1"
onChange="ComponerLista (document.forms.Listas.category[selectedIndex].value);">
<% Response.Flush() %>
<%
Dim oConn, rs, SQL, cuenta, catID
Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("CATEGORY.mdb")&" ; Jet OLEDB:Database Password=741"
SQL="SELECT catID, catName FROM category"
rs.Open SQL, oConn
cuenta=1
while not rs.EOF
%>
<option value="<%=rs.Fields("catID")%>"
<% if cuenta=1 then%>
selected
<%end if%>> <%=rs.Fields("catName")%></option>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close
%>
</select> <b> </b> <b> </b></td>
</tr>
<tr>
<td width="150"> </td>
<td><b><font color="#E48183"><font color="#0000FF">Seleccione
una subcategoria</font></font> </b> <select name="subcategory" size="1">
</select> </td>
</tr>
</table>
<p><b><br>
<font color="#E48183">
<input name="submit" type=submit style="FONT-SIZE: 8pt; COLOR:#000080; FONT-FAMILY: Arial; BACKGROUND-COLOR: #0098FF" value=" Buscar">
</font> <br>
<font color="#E48183"> <br>
</font></b><br>
<br>
<br>
</p>
</div>
</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
SQL="SELECT catID, subcatName, SubcatID FROM subcategory ORDER BY catID, subcatID"
rs.Open SQL, oConn
cuenta=0
cat="basura"
while not rs.EOF
if cat<>rs.Fields("catID") then
' cambio de categoria, empiezo a contar en 0
cuenta=0
cat=rs.Fields("catID")
'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("subcatName")%>","<%=rs.Fields ("subcatID")%>");
<%
cuenta=cuenta+1
rs.MoveNext
wend
%>
<%
'Limpiamos objetos
rs.Close
set rs=nothing
oConn.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.subcategory.options[contador] = optionObj;
} // for
} // ComponerLista
function BorrarLista() {
Listas.subcategory.length=0;
}
//Inicializamos
ThisIndex = document.forms.Listas.CATEGORY.selectedIndex;
ComponerLista (ThisIndex + 1);
//ComponerLista(1);
-->
</SCRIPT> <br> </td>
<%
for i = 1 to 1000000
x = x + 1
next
%>
<script>
<!--
if (document.all)
{
document.all("w").style.display = 'none';
}
//-->
</script>
</tr>
</table>
El tema sería recoger las categorias y las subcategorias de los desplegables que me muestra de base de datos e introducirla donde iria la compañia es decir mientras cargo el fomulario con los datos con los desplegables le cargo la categoria y cubcategoria que pertencen -