Refresco de Combo

[Adler]

Pagina COMBOS.asp

Código:

<%
Dim familia = Request.Form("familia")

if familia = "" then
%>

<form action="COMBOS.asp" name="combo" method="get" onSubmit="if(document.combos.familia.value == -1){return false;}">
<select name="familia" OnCharge="if(this.options[this.selectedIndex].value != -1){ forms['combo'].submit() }">
<option value="-1">OPCIONES</option>
<option value="1">LETRAS</option>
<option value="2">NÚMEROS</option>
</select>
<input type="submit" value="Ir">
</form>

<%
else
%>

<form action="COMBOS.asp" name="combo" method="get" onSubmit="if(document.combos.familia.value == -1){return false;}">
<select name="familia" OnCharge="if(this.options[this.selectedIndex].value != -1){ forms['combo'].submit() }">
<option value="-1">OPCIONES</option>
<option value="1">LETRAS</option>
<option value="2">NÚMEROS</option>
</select>
<input type="submit" value="Ir">
</form>

<%
Abres conexión
SQL = "Select campo from tabla where campo ='"familia"'"
rs.open SQL, 2, 0
%>

<select name="subfamilia>

<%
Do while not rs.eof
%>

<option value="<%=rs("campo")"><=%rs("campo")>

<%
rs.MoveNext
Loop
%>

</select>
</form>

Suerte