listas dependientes bd , formulario en asp y dreamweaver

[mc_quake]

yo uso esto asi mira

<form name="form1" method="post" action="cont.asp" target="det_diagno">
<%
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeBO"
%> <div id="Layer1" style="position:absolute; left:20px; top:65px; width:225px; height:170px; z-index:1">
<table width="100%">
<tr>
<td> BACK </td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td width="37%">Mes</td>
<td width="6%">:</td>
<td>
<select name="SBD" size="1">
<%
Const adSchemaTables = 20
Set registros = Server.CreateObject ("ADODB.RecordSet")
strFiltro = Array(Empty,Empty,Empty,"TABLE")
set rstSchema = conexion.OpenSchema(adSchemaTables,strFiltro)
Do Until rstSchema.EOF
x = split(rstSchema("TABLE_NAME"),"_")

if x(0) = "Ene" Or x(0) = "Feb" Or x(0) = "Mar" Or x(0) = "Abr" Or x(0) = "May" Or x(0) = "Jun" Or x(0) = "Jul" Or x(0) = "Ago" Or x(0) = "Sep" Or x(0) = "Oct" Or x(0) = "Nov" Or x(0) = "Dic" then
Response.write "<option value= " & rstSchema("TABLE_NAME") &">" & rstSchema("TABLE_NAME") &"</option>"
End If
rstSchema.MoveNext
Loop
%> </select> </td>
</tr>
<tr>
<td>Ejecutivo</td>
<Select Name="eje">
<%
Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM Ejecutivas WHERE Tipo = 'BACK' "
registros.Open sql, conexion
While Not registros.EOF
%>
<option value="<%=registros.fields("Valor")%>"><%=registros.fields("Ejecutiva")%></option>
<%
registros.MoveNext
Wend
%> </Select>
</font></td>
</tr>
<tr>
<td height="24">
<input type="submit" name="Submit" value="Ver">
</td>
</tr>
</table>
</form>