Gracias por todo
///son dos tablas una PAIS y la otra DEPARTAMENTOS
<% @LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD>
<script>
function cambio()
{<%CODIGO=request.form("CBOPAIS")%>
document.FORMULARIO.submit()
}
</script>
<BODY>
<form name=FORMULARIO action="LISTA2.ASP" method=post>
<%
//conexion bd
%>
<%If request.form("accion")= "" Then%>
<input type=hidden name=accion value=subcat>
PAIS:<select name=CBOPAIS size=1 onchage="javascript:cambio ();">
<%do while not TABLA.EOF%>
<option value="<%=TABLA("IDPAIS")%>"> <%=TABLA("PAIS")%>
<% TABLA.MOVENEXT
loop%>
</select>
DEPARTAMENTO:<select name=CBOPROV size=1 >
</select>
<%else%>
<input type=hidden name=accion value=Subsubcat>
<% CODIGO=request.form("CBOPAIS")
Response.Write(request.form("CBOPAIS"))
sSQL = "Select * from DEPARTAMENTOS where PAIS LIKE "&CODIGO&""
set TABLA2=createobject("adodb.recordset")
TABLA2.Open sSQL,CONECCION
%>
DEPARTAMENTO:<select name=CBOPROV size=1 >
<%do while not TABLA2.EOF%>
<option value="<%=TABLA2("IDPROV")%>"><%=TABLA2("PROVINCIA ")%>
<% TABLA2.MOVENEXT
LOOP%>
</select>
<%TABLA2.Close()
SET TABLA2=nothing %>
<%end if%>
<%
//Cierra la base de datos
%>
</FORM>
</BODY>
</HTML>
