Tengo un Ejemplo de tres combos dinamicos:
Departamento, Povincia y Distrito
las tablas son:
TDepartamentocoddepar char(2)
descripcion varchar(50)
TProvinciacoddepar char(2)
codprovin char(2)
descripcion varchar(50)
TDistritocoddepar char(2
codprovin char(2
coddistri char(2
descripcion varchar(50)
Aquí va el código
localidad.asp
<%
Function CadenaODBC()
servidor = "10.100.9.75"
basedato = "PACA"
usuario = "u_paca"
password = "paca"
CadenaODBC = "Provider=SQLOLEDB.1;User ID=" & usuario & ";Password=" & password & ";Initial Catalog=" & basedato & ";Data Source=" & servidor & ";Connect Timeout=15;"
End Function
Response.Expires = -2000
coddepar = Request("selDep")
codprovin = Request("selPro")
coddistri = Request("selDis")
foco = Request("hdnFoco")
Set Cn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Cn.Open CadenaODBC%>
<html>
<head>
<title>Localidad</title>
<style>
body {background-color: #E9F3FF;}
td {font: normal 11px Tahoma, Arial; color: #003399;}
.text {font: normal 11px Tahoma, Arial; color: #003399; background-color: #FFFFFF; border: 1px solid #003399;}
</style>
<script language="Javascript">
function act_combo(obj, objNext){
objNext.selectedIndex = 0
if (obj.value == "")
frmLocalidad.hdnFoco.value = obj.name
else
frmLocalidad.hdnFoco.value = objNext.name
frmLocalidad.submit()
}
</script>
</head>
<body topmargin=0 leftmargin=0 <%If foco <> "" Then%>onload="frmLocalidad.<% = foco%>.focus()"<%End If%>>
<form name="frmLocalidad" method="post" action="localidad.asp">
<input type="hidden" name="hdnFoco">
<table width=400 align=center cellspacing="0" cellpadding="1">
<tr>
<td>Departamento</td>
<td>
<select name="selDep" id="Departamento" class="text" onchange="act_combo(this, selPro)" style="width: 200px">
<option value="">--</option><%
sSql = "SELECT * FROM TDepartamento ORDER BY descripcion"
Rs.Open sSql, Cn
Do Until Rs.EOF%>
<option value="<%= Rs("coddepar") %>"<%If coddepar = Rs("coddepar") Then%> selected<%End If%>><%= Trim(Rs("descripcion")) %></option><%
Rs.MoveNext
Loop
Rs.Close%>
</select></td>
</tr>
<tr>
<td>Provincia</td>
<td>
<select name="selPro" id="Provincia" class="text" onchange="act_combo(this, selDis)" style="width: 200px">
<option value="">--</option><%
If coddepar <> "" Then
sSql = "SELECT * FROM TProvincia WHERE coddepar = '" & coddepar & "' ORDER BY descripcion"
Rs.Open sSql, Cn
Do Until Rs.EOF%>
<option value="<%= Rs("codprovin") %>"<%If codprovin = Rs("codprovin") Then%> selected<%End If%>><%= Trim(Rs("descripcion")) %></option><%
Rs.MoveNext
Loop
Rs.Close
End If%>
</select></td>
</tr>
<tr>
<td>Distrito</td>
<td>
<select name="selDis" id="Distrito" class="text" style="width: 200px">
<option value="">--</option><%
If codprovin <> "" Then
sSql = "SELECT * FROM TDistrito WHERE coddepar = '" & coddepar & "' AND codprovin = '" & codprovin & "' ORDER BY descripcion"
Rs.Open sSql, Cn
Do Until Rs.EOF%>
<option value="<%= Rs("coddistri") %>"<%If coddistri = Rs("coddistri") Then%> selected<%End If%>><%= Trim(Rs("descripcion")) %></option><%
Rs.MoveNext
Loop
Rs.Close
End If%>
</select></td>
</tr>
</table>
</form>
</body>
</html><%
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
%>