Comparar disculpen la molestia pero tengo horas tratando de resolver un problema y no he podido. Resulta que estoy trabajando con dos combos dependientes. Cunado selecciono un elemento del primer combo ,automaticamente en el otro combo cambia de acuerdo al valor correspondiente al del primero. Por supuesto que los valores estan en una bd. Yo quiero que solamente me aparezcan los datos de acuerdo a una condicion. He tratado de hacerlo con sql pero no me toma la condicion, por favor revisen mi codigo para ver q error tengo . Por favor, es urgente.....
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function select1_onchange() {
// Este script asigna el valor seleccionado al campo hidden
// del form y hace el submit. Esto provoca que se genere una
// variable que recojo del objeto Request.
form2.marca.value = form1.select1.value;
form2.submit();
}
//-->
</SCRIPT>
</HEAD>
<BODY bgcolor="#336699">
<!--
Este form tiene un campo escondido que me permite cargarle un
valor, forzar el submit para que genere una variable en el objeto
Request.
//-->
<FORM name="form2" method="POST">
<INPUT type="hidden" name="marca">
</FORM>
<%
' Defino la conexion y el recordset
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
' Armo string de conexion y lo abro.
strProvider="DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & SERVER.MApPath("Bases de Datos\San Ignacio de Loyola.mdb")
conn.Open strProvider
%>
<CENTER>
<P align="center"><font face="Verdana" size=3 color="white"><b>EJEMPLO DE CARGA DE COMBOS DEPENDIENTES</b></font></p>
<HR>
<!--
Este es el form que se le presenta al usuario y solicita los datos
//-->
<FORM name="form1" method="GET">
<select name="select1" language=javascript onChange="return select1_onchange()">
<option value="0">--Seleccione un Nombre--</option>
<%
set rs = conn.Execute("SELECT * FROM Alumno where 'Cedula_PyR="&session("Cedula") &"'")
While NOT rs.EOF
%>
<option value="<%=rs.Fields("Codigo_Alumno")%>" <%if Clng(Request.Form("Nombre_Alumno"))=rs.Fields("Cod igo_Alumno") then%>selected<%end if%>><%=rs.Fields("Nombre_Alumno")%></option>
<%
rs.MoveNext
Wend%>
</select>
<%
' Cierro y destruyo el recordset
rs.Close
set rs = Nothing
%>
<!--
El segundo select se arma en base al codigo de Marca que se envio
con el submit del form que contiene campos hidden.
//-->
<SELECT name="select2">
<OPTION value="0"></OPTION>
<%
set rs = conn.Execute("SELECT * FROM Alumno Where 'Codigo_Alumno=" & Request.Form("Marca")&"'")
While NOT rs.EOF
%>
<OPTION value="<%=rs.Fields("Nombre_Alumno")%>"<%if Trim(Request.Form("marca"))=rs.fields("Codigo_Alum no") then%>selected<%end if%>><%=rs.Fields("Codigo_Alumno")%></OPTION>
<%
rs.MoveNext
Wend
%>
</SELECT>
<%
' Cierro y destruyo el recordset
rs.Close
set rs = Nothing
' Cierro y destruyo la conexion
conn.Close
set conn = Nothing
%>
<P>
</FORM>
</CENTER>
:cantar: Saliudos y gracias al q me quiera ayudar.......
