Selects dependientes 3 niveles
hola compañeros espero que me puedan ayudar tengo 3 selects dependientes que traen los datos de access
mi problema es el siguiente al cargar el primer select todo marcha bien y en automático me manda el segundo pero al elegir el segundo se activa el tercero y me refresca el segundo les dejo el código espero que algún alma piadosa me pueda ayudar de antemano mil gracias
<html>
<head>
<title>Combos Dependientes</title>
</head>
<body>
<form method="POST" action="otra.asp" name="FrCombos">
<%
if request.querystring = "" then
D1 = ""
D2 = ""
D3 = ""
else
R_CLIENTES = Request.Querystring("Pnclie")
R_AREA=Request.QueryString("Pnare")
R_Encargado =Request.QueryString("Pnencarg")
end if
Set Ob_ConnCombo = Server.CreateObject("ADODB.Connection")
Set Ob_RSCombo = Server.CreateObject ("ADODB.RecordSet")
Ob_ConnCombo.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("INSTALACIONES.mdb")&";"
%>
<br>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%" align="center">CLIENTES:</td>
<td width="25%" align="center">AREA:</td>
<td width="25%" align="center">ENCARGADO:</td>
</tr>
<tr>
<%
' ///// Cargo el primer combo "Paises" \\\\\
Sqlclien = "SELECT IdCliente,Razon FROM CLIENTES Order by Razon "
Ob_RSCombo.Open Sqlclien , Ob_ConnCombo %>
<td width="25%" align="center" >
<select size="1" name="D1" onChange=PaSelec(this.form) >
<% Do until ob_RsCombo.Eof %>
<option <% If ob_RsCombo("IdCliente")= CInt(R_CLIENTES) then %> selected
<% End If %>
value="<%=Ob_RSCombo.Fields("IdCliente")%>"><%=Ob_RSCombo.Fields("Razon")%></option>
<%Ob_RSCombo.MoveNext
Loop
Ob_RSCombo.Close %>
</select>
</td>
<% ' ///// Selecciono el contenido para mi segundo Combo Provincias
%>
<td width="25%" align="center">
<% if R_CLIENTES = "" then %>
<select size="1" name="D2">
</select>
<%
else
sqlAreas = "SELECT DISTINCTROW [AREAS CLIENTES].Id,IdCliente, Area FROM [AREAS CLIENTES] where IdCliente = "& R_CLIENTES &""
ob_RSCombo.open sqlAreas, Ob_ConnCombo
%>
<select size="1" name="D2" onChange=ProSelec(this.form)>
<% Do until ob_RsCombo.Eof %>
<option <% If ob_RSCombo("Id")= CInt(R_AREA) Then%>selected
<% End if %>
value="<%=Ob_RSCombo.Fields("IdCliente")%>"><%=Ob_RSCombo.Fields("Area")%></option>
<%
Ob_RSCombo.MoveNext
'cuentaPro=cuentaPro+1
Loop
Ob_RSCombo.close
%>
</select>
<% end If %>
</td>
<% ' ///// Selecciono el contenido de mi tercer combo " Ciudades " \\\\\ %>
<td width="25%" align="center">
<%if R_AREA = "" then %>
<select size="1" name="D3">
</select>
<%
else
Sqlarea = "SELECT DISTINCTROW Id,IdClenteProveedor,Area,Apellido FROM CONTACTOS where Area ="& R_AREA &" Order by Area"
Ob_RSCombo.Open Sqlarea, Ob_ConnCombo
%>
<select size="1" name="D3" >
<% Do Until Ob_RSCombo.Eof %>
<option <% if ob_RSCombo("Id")= CInt(R_Encargado) Then %> selected
<% End If %>
value="<%=Ob_RSCombo("Id")%>"><%=Ob_RSCombo("Apellido")%></option>
<%Ob_RSCombo.MoveNext
Loop
Ob_RSCombo.Close%>
</select>
<% End If%>
</td></tr>
</table>
</form>
</body>
</html>
<Script>
function PaSelec(Combos)
{
var Pa = Combos.D1.value;
var _newPais = "otra.asp?Pnclie=" + Pa ;
document.location=_newPais;
}
function ProSelec(Combos)
{
var Pa = Combos.D1.value;
var Pro = Combos.D2.value;
var PaPro = "otra.asp?Pnclie=" + Pa + "&Pnare=" + Pro
document.location=PaPro
}
</Script>
