combobox dependientes con ajax.

[fercom]

me funcionó perfecto en IE 8 Firefox y Mozilla
lo unico que he modificado es la programacion de DB ya que yo lo hago con dreamweaver todo lo demas igual
saludos y muchas gracias super util...

select_dependientes_3_niveles.asp

Código:

<!--#include file="Connections/conx.asp" -->
<%
sub generaselect()
     'ABRO LA B/D
		Dim DepartamentosRS
		Dim DepartamentosRS_cmd
		Dim DepartamentosRS_numRows
		
		Set DepartamentosRS_cmd = Server.CreateObject ("ADODB.Command")
		DepartamentosRS_cmd.ActiveConnection = MM_conx_STRING
		DepartamentosRS_cmd.CommandText = "SELECT * FROM dbo.Tbl_departamento ORDER BY descripcion_departamento" 
		DepartamentosRS_cmd.Prepared = true
		
		Set DepartamentosRS = DepartamentosRS_cmd.Execute
		DepartamentosRS_numRows = 0
	
       
	' Voy imprimiendo el primer select compuesto por los paises
	Response.Write "<select class=""combo"" id=""select_1"" name=""paises"" onChange=""cargaContenido(2)"">"
	Response.Write("<option value='0'>Seleccione departamento...  </option>")
	While not DepartamentosRS.EOF
		Response.Write "<option value=""" & (DepartamentosRS.Fields.Item("departamento").Value) & """>" & Server.HTMLEncode(DepartamentosRS.Fields.Item("descripcion_departamento").Value) & "</option>"
		DepartamentosRS.MoveNext
	Wend
	Response.Write "</select>"


DepartamentosRS.Close()
Set DepartamentosRS = Nothing
	
End sub
%>



<script language="javascript" type="text/javascript">
function nuevoAjax()
{ 
	/* Crea el objeto AJAX. Esta funcion es generica para cualquier utilidad de este tipo, por
	lo que se puede copiar tal como esta aqui */
	var xmlhttp=false; 
	try 
	{ 
		// Creacion del objeto AJAX para navegadores no IE
		xmlhttp=new ActiveXObject("Msxml2.XMLHTTP"); 
	}
	catch(e)
	{ 
		try
		{ 
			// Creacion del objet AJAX para IE 
			xmlhttp=new ActiveXObject("Microsoft.XMLHTTP"); 
		} 
		catch(E) { xmlhttp=false; }
	}
	if (!xmlhttp && typeof XMLHttpRequest!='undefined') { xmlhttp=new XMLHttpRequest(); } 

	return xmlhttp; 
}

function cargaContenido(selectACargar)
{
	// Recibo el número correspondiente al combo que se debe llenar de datos
	var selectAnterior=selectACargar-1; // Obtengo el número del combo que activó el evento onChange
	// Extraigo el valor del combo que se ha cambiado
	var valor=document.getElementById("select_"+selectAnterior).options[document.getElementById("select_"+selectAnterior).selectedIndex].value;
	var elemento;
	
	if(valor!=0)
	{
		ajax=nuevoAjax();
		// Envio al servidor el valor seleccionado y el combo al cual se le deben poner los datos
		ajax.open("GET", "select_dependientes_3_niveles_proceso.asp?seleccionado="+valor+"&select_a_cargar="+selectACargar, true);
		ajax.onreadystatechange=function() 
		{ 
			if (ajax.readyState==1)
			{
				// Mientras carga elimino la opcion "Elige" y pongo una que dice "Cargando"
				elemento=document.getElementById("select_"+selectACargar);
				elemento.length=0;
				var opcionCargando=document.createElement("option"); opcionCargando.value=0; opcionCargando.innerHTML="Cargando...";
				elemento.appendChild(opcionCargando); elemento.disabled=true;	
			}
			if (ajax.readyState==4)
			{
				// Coloco en la fila contenedora los datos que recivo del servidor
				document.getElementById("fila_"+selectACargar).innerHTML=ajax.responseText;
			} 
		}
		ajax.send(null);
	}
	
	/* Colocamos mediante los whiles los selects en "Selecciona opción..." cuando el select anterior
	ha quedado en estado "Elige" */
	var x=1, y=null;
	while(x<=2)
	{
		valor=document.getElementById("select_"+x).options[document.getElementById("select_"+x).selectedIndex].value;
		if(valor==0)
		{
			while(x<=2) 
			{
				y=x+1;
				elemento=document.getElementById("select_"+y);
				elemento.length=0;
				var opcionSelecciona=document.createElement("option"); opcionSelecciona.value=0; opcionSelecciona.innerHTML="Seleccione distrito...";
				elemento.appendChild(opcionSelecciona); elemento.disabled=true;
				x++;
			}
		}
		x++;
	}
	
}
</script>

<style type="text/css"> 
.punteado 
{ 
	border-style:dotted; 
	border-color:#000000; 
	background-color:#EAEAEA;
	font-family:Verdana; 
	font-size:10px; 
	text-align:center;
}

.combo
{
	font-family:Verdana; 
	font-size:10px; 
	border-color:#CCCCCC;
}
</style>
</head>

<body>
<center>
<table border="1" width="600px" style="border-style:none;">
  <tr>
    <td id="fila_1" width="200px" class="punteado"><% generaSelect() %></td>

	<td id="fila_2" width="200px" class="punteado">
		<select class="combo" disabled="disabled" id="select_2" name="select_2">
		<option id="valor_defecto" value="0">Seleccione provincia...</option>
		</select>
	</td>

	<td id="fila_3" width="200px" class="punteado">
		<select class="combo" disabled="disabled" id="select_3" name="select_3">
		<option id="valor_defecto" value="0">Seleccione distrito...</option>
		</select>
	</td>
  </tr>
</table>
</center>
</body>
</html>

select_dependientes_3_niveles_proceso.asp

Código:

<!--#include file="Connections/conx.asp" -->
<%
cod_a_buscar    = Request.QueryString("seleccionado")
select_a_cargar = request.QueryString("select_a_cargar")

select case select_a_cargar
case 2 ' busco el estado
	Dim ProvinciasRS
	Dim ProvinciasRS_cmd
	Dim ProvinciasRS_numRows
	
	Set ProvinciasRS_cmd = Server.CreateObject ("ADODB.Command")
	ProvinciasRS_cmd.ActiveConnection = MM_conx_STRING
	ProvinciasRS_cmd.CommandText = "SELECT * FROM dbo.Tbl_provincia WHERE departamento="&cod_a_buscar&" ORDER BY descripcion_provincia" 
	ProvinciasRS_cmd.Prepared = true
	
	Set ProvinciasRS = ProvinciasRS_cmd.Execute
	ProvinciasRS_numRows = 0

   response.Write "<select class='combo' id='select_"&select_a_Cargar&"' name='select_"&select_a_Cargar&"' onChange='cargaContenido(3)'>"		
   response.Write "<option value='0'>Seleccione provincia</option>"
   While Not ProvinciasRS.EOF
	 ' Imprimo las opciones del select
	   response.Write "<option value=""" & (ProvinciasRS.Fields.Item("provincia").Value)&"-"&(ProvinciasRS.Fields.Item("departamento").Value)& """>" & Server.HtmlEncode((ProvinciasRS.Fields.Item("descripcion_provincia").Value)) & "</option>"
	   ProvinciasRS.MoveNext
   Wend
   response.Write "</select>"
ProvinciasRS.Close()
Set ProvinciasRS = Nothing
case 3 'busco las poblaciones del estado
	Dim DistritosRS
	Dim DistritosRS_cmd
	Dim DistritosRS_numRows
	
	Set DistritosRS_cmd = Server.CreateObject ("ADODB.Command")
	DistritosRS_cmd.ActiveConnection = MM_conx_STRING
	DistritosRS_cmd.CommandText = "SELECT * FROM dbo.Tbl_distrito WHERE provincia+'-'+departamento='"&cod_a_buscar&"' ORDER BY descripcion_distrito" 
	DistritosRS_cmd.Prepared = true
	
	Set DistritosRS = DistritosRS_cmd.Execute
	DistritosRS_numRows = 0
 
   response.Write "<select class='combo' id='select_"&select_a_Cargar&"' name='select_"&select_a_Cargar&"'>"
   response.Write "<option value='0'>Seleccione distrito</option>"
   While Not DistritosRS.EOF
	' Imprimo las opciones del select
	 response.Write "<option value=""" & (DistritosRS.Fields.Item("distrito").Value) & """>" & Server.HtmlEncode((DistritosRS.Fields.Item("descripcion_distrito").Value)) & "</option>"
	 DistritosRS.MoveNext
   Wend
  response.Write "</select>"
DistritosRS.Close()
Set DistritosRS = Nothing
end select	
	
%>