Listas o Combobox dependientes en asp?? Ayuda POrfavor!!!

galatea25 · #1 (**permalink**) 18/09/2005, 11:05

Hola a todos..necesito de su ayuda..
yo tengo q cargar 2 listas o combobox con datos de una base de datos que cuando al seleccionar un proyecto x en la primera lista..en la segunda lista deberian cargarse los proveedores del proyecto..yo se q han escuchado miles de veces esto..de hecho yo ya lo implemente usando un codigo de javascript..y resulta bien en internet explorer..
pero cuando estoy en un navegador de mozilla o netscape no funciona y la consola de java dice q el error es q location.href no es una funcion... como soluciono el problema para q resulte bien en todo tipo de navegador?????
o alguien tiene otro codigo que sirva para cargar listas dependientes????
aca va el codigo que utilizo:

<select name="proyecto" class="t3" onChange="location.href('observacion_proyecto.asp? proyecto=' + uno.proyecto.options[uno.proyecto.selectedIndex].value)">
<option value="0">Seleccionar</option>
<%proyectos=ver_proyectosusuario(g,u)
for I = 0 to UBound(proyectos,2)
nombrep=proyectos(1,I)
proyecto=proyectos(0,I)
p = request.querystring("nombrep")
if p<>"" then
if p=nombrep then
response.write "<option selected value='"&proyecto&"&nombrep="&nombrep&"' >"&nombrep&"</option>"
elseif p <> nombrep then
response.write "<option value='"&proyecto&"&nombrep="&nombrep&"'>"&nombrep &"</option>"
end if
else
response.write "<option value='"&proyecto&"&nombrep="&nombrep&"'>"&nombrep &"</option>"
end if
next
%>
</select>

ojala puedan ayudarme por favor, por que no saco nada con q la aplicacion funcione bien en internet explorer y en otros navegadores no funcione!!!!

lexus · #2 (**permalink**) 18/09/2005, 17:27

http://www.asptutor.com/asp/vart.asp?id=102

Código:

 <html> 

<head>
<title>Combos combinados</title>

<script language = "JavaScript">

 

<%'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\database\hard.mdb"))

productos_Sql = "Select distinct familia, codigo, denominacion from articulos "
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_Sql, Conn
x=0
%>

// FUNCION DE COMBO BOX COMBINADO

function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0

<%
count= 0
y=0
do while not rs.eof
%>

x = <%= trim(y) %>;

subcat = new Array();
subcatagorys = "<%=(rs("codigo"))&" "&(rs("denominacion")) %>";
subcatagoryof = "<%=(rs("familia"))%>";
subcatagoryid = "<%=(rs("codigo"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}

</script>

 

</head>

<body bgcolor="#CDB1B7">
<h2 align="center"><b><i><font color="#AE1732"><u>Combo-box enlazados </u></font></i></b></h2>
<form name="prueba">
<div align="center">
<center>
<table border="0" width="80%">
<tr>

<td width="77%">
<select size="1" id="familia" name="familia" onChange = "javascript:sublist(this.form, familia.value);">

<option selected>Selecciona una familia</option>
<%familias_Sql = "Select distinct id,familia from familias"
rs.Open familias_Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("familia")%></option>


<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <SELECT id="subcatagory" name="subcatagory" size="1">
<Option selected value="none"></option>
</SELECT></td>
<td width="9%">
<p align="left">

</p>

</td>
</tr>
</table>
</center>
</div>
<center>
</form>
</center>
</body>
</html>

galatea25 · #3 (**permalink**) 21/09/2005, 07:34

ok gracias por tu ayuda..!!!!