Combobox Enlazados

[vehiuel]

Alguien tiene algun codigo en asp y sql de estos? de antemano gracias!!! =D

[ric18]

Te paso el còdigo, la base està en ACCESS pero eso es lo de menos, ya que funciona con cualquiera

Código PHP:

  <form name=formulario> 
PAÍS: <select name=idPais onChange="location.href('selects_dependientes.asp?idPais=' + formulario.idPais.options[formulario.idPais.selectedIndex].value)"> 
<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ssdd.mdb")) 
 
SQL_pais="select * from paises order by pais asc" 
set RS_pais=createobject("ADODB.Recordset") 
RS_pais.open SQL_pais,conn 
do while not RS_pais.eof 
pais = RS_pais("pais") 
idPais = RS_pais("idPais") 
p = request.querystring("pais") 
if p <> "" then 
 
    if p = pais then 
    response.write "<option value="&idPais&"&pais="&pais&" selected>"&pais&"</option>" 
    elseif p <> pais then 
    response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>" 
    end if 
else 
response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>" 
end if 
 
RS_pais.movenext 
    loop 
RS_pais.close 
%> 
</select> 
<% 
if request.querystring("idPais") <> "" then %> 
PROVINCIA: <select name=ubicacion> 
<% 
SQL_prov="select * from provincias where pais="&request.querystring("idPais")&" order by provincia asc" 
set RS_prov=createobject("ADODB.Recordset") 
RS_prov.open SQL_prov,conn 
do while not RS_prov.eof 
 
pais = request.querystring("pais") 
provincia = RS_prov("provincia") 
%> 
<option value="<%=provincia%>, <%=pais%>"><%=provincia%></option> 
<% 
RS_prov.movenext 
    loop 
RS_prov.close 
%> 
</select><% end if %></form>