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
%>