Llenar combo en forma interactiva

[rycjesus]

Hola a todos
ayudar de llenar los combox en modo de ejecucion por decir si yo selecciono un departamento en el otro combo me debe salir todo los distritos de ese pais aqui tengo el codigo no se que esta mal

*******************funcion llenar provincia**************
<%
FUNCTION llenarprovincia

cad="select prv_cod,prv_des from tb_provincia where substring (prv_cod,1,2)='15'"

set obprv = cn.execute(cad)
while not obprv.eof
dep = obprv.fields("prv_des")
dec = obprv.fields("prv_cod")
%>
<option value="<%=dec%>"><%=dep%></option>
<%obprv.movenext
wend END FUNCTION %>
</select>

***este es el combo de paises en este caso es departamente***

<select name="cmbdep" id="cmbdep" onChange="<%=dis%>">
<option value="">Departamento</option>
<%
while not obdpt.EoF
dep = obdpt.fields("dep_des")
dec = obdpt.fields("dep_cod")
%>
<option value="<%=dec%>"><%=dep%></option>
<% Obdpt.Movenext
wend %>
</select>
los demas si no le llamo la funcion me funciona perfectamente pero lo que pasa es que si selecciono un departamento me sale todos los distritos de ese departamento, pero si salen de ese mismo departamento seleccionado seria mas facil para el usuario.
de ante mano gracias a todos