Select dinamico

[Darksider]

Por si te sirve :
Estos son 4 combos que dependiendo lo que elijas cambia las opciones del siguiente combo o muestra un textbox para que puedan escribir.
El ejemplo es con paises, provincias, municipios y calles.
Espero que te sirva. Esta preparado para que si el Pais es España, la provincia Bizkaia, El municipio Bilbao aparezca el ultimo combo con las calles.

Un saludo.

<tr>
<td width="191">Estado&nbsp;*</td>
<td colspan="11">
<Select name="PaisDomicilio" onChange="ActualizarPagina()">
<%
rsPaises.MoveFirst
While Not rsPaises.EOF
Response.Write("<option value=""" & rsPaises("idpaises") & """")
If PaisDomicilio = "" Then
If RTrim(rsPaises("descpaises")) = "ESPAÑA" Then Response.Write("selected")
PaisDomicilio = "108"
ElseIf PaisDomicilio = rsPaises("idpaises") Then
Response.Write("selected")
mun=""


End If
Response.Write(">" & RTrim(rsPaises("descpaises")) & "</option>" & vbCrLf)
rsPaises.MoveNext
Wend
%>
</select>
</td>
</tr>
<tr>
<td width="191">Provincia&nbsp;o&nbsp;Territorio Hist&oacute;rico * </td>
<td colspan="11">
<%If PaisDomicilio = "108" Then%>
<Select name="ProvinciaDomicilio" onChange="ActualizarPagina()">
<%
While Not rsProvinciasDomicilio.EOF
Response.Write("<option value=""" & rsProvinciasDomicilio("idprovincias") & """")
If ProvinciaDomicilio = "" Then
If RTrim(rsProvinciasDomicilio("descprovincias")) = "A CORUÑA" Then Response.Write("selected")
ElseIf ProvinciaDomicilio = Trim(rsProvinciasDomicilio("idprovincias")) Then
Response.Write("selected")
End If
Response.Write(">" & RTrim(rsProvinciasDomicilio("descprovincias")) & "</option>" & vbCrLf)
rsProvinciasDomicilio.MoveNext
Wend
%>
</select>

<%ELSE%>
<input name="ProvinciaDomicilio1" type="text" id="ProvinciaDomicilio1" value="<%=ProvinciaDomicilio1%>" maxlength="35" >
<%mun=""%>
<%END IF%>
</td>
<tr>
<td width="191">Municipio * </td>
<td colspan="11">
<%If PaisDomicilio = "108" and ProvinciaDomicilio ="48" Then%>
<Select name="MunicipioDomicilio" id="MunicipioDomicilio" onChange="ActualizarPagina()">
<%
While Not rsMunicipioDomicilio.EOF
Response.Write("<option value=""" & rsMunicipioDomicilio("idmunicipio") & """")
If MunicipioDomicilio = "" Then
If RTrim(rsMunicipioDomicilio("descmunicipio")) = "ABADIÑO" Then Response.Write("selected")
mun="7475"
ElseIf MunicipioDomicilio = rsMunicipioDomicilio("idmunicipio") Then
Response.Write("selected")
End If
Response.Write(">" & RTrim(rsMunicipioDomicilio("descmunicipio")) & "</option>" & vbCrLf)
rsMunicipioDomicilio.MoveNext
Wend
%>
</select>
<%ELSE%>
<input name="MunicipioDomicilio1" type="text" id="MunicipioDomicilio1" value="<%=MunicipioDomicilio1%>" size = "30" maxlength="30">
<%mun=""%>
<%END IF%>
</td>
<tr>
<td width="191">C&oacute;digo&nbsp;Postal</td>
<td colspan="11"><input type="text" name="CPDomicilio" size="6" maxlength="5" value="<%=CPDomicilio%>"></td>
</tr>
<tr>
<td width="191">Calle * </td>
<td colspan="5"><p>
<%If PaisDomicilio="108" and MunicipioDomicilio = "044" and ProvinciaDomicilio="48" Then%>
<Select name="CalleDomicilio" id="CalleDomicilio" >
<%
While Not rsCallesDomicilio.EOF
Response.Write("<option value=""" & rsCallesDomicilio("idcalle") & """")
If CallesDomicilio = "" Then
If RTrim(rsCallesDomicilio("desccalle")) = "BILBAO" Then Response.Write("selected")
ElseIf CallesDomicilio = Trim(rsCallesDomicilio("idcalle")) Then
Response.Write("selected")
End If
Response.Write(">" & RTrim(rsCallesDomicilio("idcalle")) & "</option>" & vbCrLf)
rsCallesDomicilio.MoveNext
Wend
%>
</select>
<%Else%>
<input name="CalleDomicilio1" type="text" id="CalleDomicilio1" value="<%=CalleDomicilio1%>" size = "40" maxlength="35">
<%End If%>
</p>
</td>
</tr>
<tr>