Hola,
Tengo un combo combinado en donde dependiendo de la opcion seleccionada
muestro otra informacion, sin embargo, la informacion viene de tablas
diferentes, y es ahi donde tengo problemas, ya que solo me esta abriendo una
tabla y no toma en cuenta la condicion que estoy poniendo.
Podria alguien ayudarme???
Para hacer mas claro el asunto anexo el codigo que tengo.
<script language = "JavaScript">
function sublist3(inform, selecteditem)
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("control.mdb"))
if selecteditem = 1 then
subaut_Sql = "Select * from Hab order by mov"
else
subaut_Sql = "Select * from DS order by mov"
end if
set rs2 = CreateObject("ADODB.Recordset")
rs2.Open subaut_Sql, Conn,1,3
x2=0
%>
{
inform.aut.length = 0
<%
count= 0
y=0
do while not rs2.eof
%>
x2 = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs2("Of_Ap"))%>";
subcatagoryof = "<%=(rs2("Id_Clave"))%>";
subcatagoryid = "<%=(rs2("ID_Of"))%>";
subcat[x2,0] = subcatagorys;
subcat[x2,1] = subcatagoryof;
subcat[x2,2] = subcatagoryid;
if (subcat[x2,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x2,0], subcat[x2,2]);
inform.aut.options[inform.aut.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs2.movenext
loop
rs2.close
Conn.Close
Set rs2= Nothing
%>
}
</script>
<select id="select" name="menu_pins" onChange =
"javascript:sublist3(this.form, menu_pins.value);">
<option selected>Seleccione el programa</option>
<%
Dim conn3, RS3, SQL3
Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&
Server.MapPath("control.mdb")
SQL3 = "SELECT * FROM programas_ins"
Set rs3 = conn3.Execute(SQL3)
While Not rs3.EOF
%>
<option value="<%=rs3("ID_Clave")%>"><%=rs3("Programa")%</option>
<%
rs3.MoveNext
Wend
rs3.Close
%>
</select>
Leer las respuestas