Tengo lo siguiente y he ido estudiando paso a paso el ejemplo de aspfacil.com pero no me funciona... me pide un objeto en la linea 448 que a todo esto no existe...
<td><select name="region" class="input" id="region" onChange="ComponerLista(document.forms.form2.regio n[selectedIndex].value);">
<%
Set Mi_Conexion = Server.CreateObject("ADODB.Connection")
Set Res = Server.CreateObject("ADODB.Recordset")
Mi_Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\horas\horas.mdb;"
sql = "SELECT * FROM region order by cod_region"
res.open sql, Mi_conexion
cuenta = 1
While Not res.EOF
%>
<option value="<%=res.Fields("cod_region")%>"
<%if cuenta = 1 then%>
selected
<%end if%>> <%=res.Fields("nombre_region")%></option>
<%res.movenext
cuenta = cuenta + 1
wend
res.close%>
</select></td>
</tr>
<tr>
<td class="registro">Comuna</td>
<td><select name="comuna" class="input" id="comuna"size="1">
</select></td>
<script languaje="javascript">
<!--
function Tupla(campo1, campo2)
{
this.campo1 = campo1;
this.campo2 = campo2;
}
<%
sql ="select * from comuna order by nombre_comuna"
res.open sql, Mi_conexion
cuenta=0
cat ="Basura"
While not res.EOF
if cat <> res.Fields("cod_region") then
cuenta=0
cat= res.Fields(cod_region)
%>
var opciones<%=cat%>= new Array();
<%
end if
%>
opciones<%=cat%>[<%=cuenta%>]=new Tupla("<%res.Fields("nombre_comuna")%>","<%=res.Fi elds("cod_ciudad")%>");
<%
cuenta=cuenta+1
res.MoveNext
wend
%>
<%
res.Close
set res=nothing
Mi_conexion.Close
set Mi_conexion=nothing
%>
var contador;
function ComponerLista ( array ) {
// Compone la lista dependiente a partir
// del valor de la opcion escogida en la lista "padre"
BorrarLista();
array = eval("opciones" + array);
for (contador=0; contador<array.length; contador++)
{
// añade elementos nuestro combobox
var optionObj = new Option( array[contador].campo1, array[contador].campo2 );
form2.comuna.options[contador] = optionObj;
} // for
} // ComponerLista
function BorrarLista() {
form2.comuna.length=0;
}
//Inicializamos
ComponerLista (1);
-->
</SCRIPT>
Alguien que me ayude por fa'''
