llenar combo con OnChange

Hola Jorge:
Mira este código, es el que uso para anidar 2 combo box. Se puede modificar,
si eres curioso, para que anides más combo box.

<script language="javascript">
function fixSelect(val)
{
if (!pause)
{document.write("<option>"+val);}
else
{
var gr = document.pedidos.marcas;
var valOption = new Option(val);
var valLen = gr.length;
gr.options[valLen] = valOption;
}
}

function InitOptions()
{
<%
Temp="Select Distinct Area From Usuarios Order By Area"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
%>
if (style1=="<%= Tabla1.Fields("area") %>")
{
<%
Temp2="Select * From Usuarios Where Area='" & Tabla1.Fields("area") &
"'"
Tabla2.Open Temp2, Conexion
While Not Tabla2.EOF
If Tabla2.Fields("codigo") <> Session("UserCOD") Then
%>
fixSelect("<%= Tabla2.Fields("fullname") %>");
<%
End If
Tabla2.MoveNext
Wend
Tabla2.Close
Response.Write("}")
Tabla1.MoveNext
Wend
Tabla1.Close
%>
}

function reInitOptions()
{
var val = document.pedidos.grupos;
var gr = document.pedidos.marcas;
style1 = val.options[val.selectedIndex].text;
for (i=gr.length;i>0;i--)
{gr.options[0] = null;}
pause = true;
InitOptions();
gr.options[0].selected = true;
return false;
}
</script>

..

<form action="citas.asp?clase=buscar" method="post" name="pedidos"
target="citas">
<select name="grupos" size="1" onChange="reInitOptions()"
style="color: Black; font: normal x-small Arial;">
<option selected value="">Seleccione una Área</option>
<%
Temp="Select Distinct Area From Usuarios Order By Area"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
%>
<option
value="<%=Tabla1.Fields("area")%>"><%=Tabla1.Fields("area")%></option>
<%
Tabla1.MoveNext
Wend
Tabla1.Close
%>
</select>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<script language="javascript">
var pause = false;
var style1 = document.pedidos.grupos.options[0].text;
document.write("<select name='marcas' style='color: Black; font:
normal x-small Arial;'><option selected>Seleccione un Contacto</option>");
InitOptions();
document.write("<\/select>");
</script>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="submit" name="bot01" value="Mostrar Ficha"
class="botones">
</form>
Suerte!!!!!!!!

___________________________________________________________________________
SyMC
Suerte es la ayuda que te da la vida... Destino es lo que haces con esta
ayuda
Comparte con los demás, es la mejor manera de crecer y quererse más
El SP2 lo puedes bajar desde
http://www.microsoft.com/downloads/...p;FamilyID9c9dbe-3b8e-4f30-8245-9e368d3cdb5a
El artículo de JM Tella sobre como integrar SP2 con el Xp esta en
http://www.multingles.net/docs/xpsp2.htm
Ad-aware SE en español: http://www.lavasoft.de/spanish/
spywareblaster:http://www.ct7support.com/javacool/...nload.html
Spybot - Search & Destroy
1.3:http://www.zonavirus.com/descargas/spybotsd13.exe
The Cleaner http://www.moosoft.com/
CWShreader, Hijackthis http://www.majorgeeks.com/download4086.html