Ayuda por favor

[Bluesman74cl]

Tienes que modificar el codigo hasta que te dé con lo que necesitas.. esto se llama listas enlazadas

Código:

<select name="region" class="input" size="1" onChange="ComponerLista(document.forms.medico.region[selectedIndex].value);">
<%
     Set Res = Server.CreateObject("ADODB.Recordset")
     sql = "SELECT * FROM region order by cod_region"
     res.open sql, 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>

luego en tu select comunas ...

Código:

<select name="comuna" class="input" id="select7"size="1"></select>

luego un poco más abajo de los dos select..

Código:

 <script language="Javascript">
<!--
function Tupla ( campo1, campo2, campo3 )
{
	this.campo1 = campo1;
	this.campo2 = campo2;
	this.campo3 = campo3;
}

<%

SQL="SELECT * FROM comuna order by cod_ciudad, nombre_comuna"
res.Open SQL, 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.Fields("cod_ciudad")%>");

<%
cuenta=cuenta + 1
res.MoveNext
wend
%>


 <%

res.Close
set res=nothing

%>