Aqui tienes un ejemplo:
en una página de marcos "cualquiera" pones dos marcos, uno contiene provincia.asp y el otro población.asp. A continuación tienes sus códigos:
Verás que lo único que hace es traer los datos de la base de datos aun select y pasar el valor del que se ha elegido a la otra página, utilizándolo como condición para una consulta cuyo resultado rellenará el select correspondiente.
PROVINCIA.ASP:
<html>
<head>
<title>frame provincia cambia frame población etc.</title>
<script language="JavaScript" >
function saltarC()
{
parent.frames["FPoblaciones"].location.href = "poblacion.asp?elegidoC=" + ListaC.value
}
</script> <%
Dim Conexion
Dim Cs
Dim PathBD
Set Conexion = Server.CreateObject("ADODB.Connection")
PathBD=Server.MapPath("../ruta/mibasededatos.mdb")
Cs="Driver={Microsoft Access Driver (*.mdb)};"
Cs=Cs&"DBQ="&PathBD
conexion.ConnectionString=Cs
Conexion.Open
Dim SQL
Dim rs
SQL="SELECT DISTINCT Provincia FROM Inmueble"
Set rs=Conexion.Execute(SQL)
%>
</head>
<body bgcolor="#000000">
<p align="center"><font size="3" color="#ff6600">Indique una Provincia : </font><br>
<br>
<select name="ListaC" with=15
onChange="javascript:saltarC()">
<option>**Campo obligatorio**</option>
<% do while not rs.eof %>
<option value="
<%=rs("Provincia")%>">
<%=rs("Provincia")%></option>
<%rs.MoveNext()
Loop
%>
</select>
<%rs.Close%>
</p>
</body>
</html>
POBLACION.ASP:
<html>
<head>
<title>Frame población etc</title>
<%
Dim Conexion
Dim Cs
Dim PathBD
Set Conexion = Server.CreateObject("ADODB.Connection")
PathBD=Server.MapPath("../ruta/mibasededatos.mdb")
Cs="Driver=Microsoft Access Driver (*.mdb);"
Cs=Cs&"DBQ="&PathBD
conexion.ConnectionString=Cs
Conexion.Open
provi=Request.QueryString("elegidoC")
SQL="SELECT DISTINCT Población FROM Inmueble WHERE ((Provincia)='" & provi & "');"
Set rs=Conexion.Execute(SQL)
%>
</head>
<body bgcolor="#000000">
<form name="consulta" method="post" action="responder.asp">
<p align="center"><font size="3" color="#ff6600">Indique una población:</font>
<br>
<br>
<select name="pob">
<OPTION selected>indiferente</option>
<%Do while Not rs.EOF%>
<OPTION VALUE=
<%=rs("Población")%>>
<%=rs("Población")%> </option>
<%rs.MoveNext
Loop
%>
</select>
<%rs.Close%>
...
<input type="hidden" name="prov" value="<%=Request.QueryString("elegidoC")%>">
</p>
<center>
<input type="button" name="envio" value="Enviar" ...
</body>
</html>