" El Objeto no acepta esta propiedad o metodo "
pero igual me hace el trabajo, aqui esta el codigo...ojla me puedan ayudar y orientarme. Gracias.
Código HTML:
function nuevoAjax() { /* Crea el objeto AJAX. Esta funcion es generica para cualquier utilidad de este tipo, por lo que se puede copiar tal como esta aqui */ var xmlhttp=false; try { // Creacion del objeto AJAX para navegadores no IE xmlhttp=new ActiveXObject("Msxml2.XMLHTTP"); } catch(e) { try { // Creacion del objet AJAX para IE xmlhttp=new ActiveXObject("Microsoft.XMLHTTP"); } catch(E) { xmlhttp=false; } } if (!xmlhttp && typeof XMLHttpRequest!='undefined') { xmlhttp=new XMLHttpRequest(); } return xmlhttp; } function cargaContenido() { var valor=document.getElementById("select_0").options[document.getElementById("select_0").selectedIndex].value; if(valor==0) { // Si el usuario eligio la opcion "Elige", no voy al servidor y pongo todo por defecto combo=document.getElementById("select_1"); combo.length=0; var nuevaOpcion=document.createElement("option"); nuevaOpcion.value=0; nuevaOpcion.innerHTML="-- Select --"; combo.appendChild(nuevaOpcion); combo.disabled=true; } else { ajax=nuevoAjax(); ajax.open("GET", "CampoII.asp?CampoI="+valor, true); ajax.onreadystatechange=function() { if (valor != "Capacitacion" ) { if (ajax.readyState==1) { // Mientras carga elimino la opcion pongo una que dice "Cargando" combo=0; combo.length=0; var nuevaOpcion=document.createElement("option"); nuevaOpcion.value=0; nuevaOpcion.innerHTML="Cargando..."; combo.appendChild(nuevaOpcion); combo.disabled=true; } if (ajax.readyState==4) { document.getElementById("fila_2").innerHTML=ajax.responseText; } } else{ if (ajax.readyState==1) { // Mientras carga elimino la opcion pongo una que dice "Cargando" combo=0; combo.length=0; var nuevaOpcion=document.createElement("radio"); nuevaOpcion.value=0; nuevaOpcion.innerHTML="Cargando..."; combo.appendChild(nuevaOpcion); combo.disabled=true; } if (ajax.readyState==4) { document.getElementById("fila_2").innerHTML=ajax.responseText; } } } ajax.send(null); } } <body> <tr> <td bgcolor="#FFCC00" class="txContenido"><strong>MotivoI</strong></td> <td id="fila_1"> <select name="CampoI" id="select_0" onChange="cargaContenido()" class="txContenido"> <option>-- Select --</option> <% Set SelectI = Server.CreateObject("ADODB.Recordset") SelectI.ActiveConnection = MM_acceso_STRING SelectI.Source = "SELECT DISTINCT CampoI FROM FeedbackArbol order by CampoI " SelectI.CursorType = 1 SelectI.CursorLocation = 2 SelectI.LockType = 1 SelectI.Open() while NOT SelectI.EOF %> <option value="<%=SelectI.Fields("CampoI")%>"><%=SelectI.Fields("CampoI")%></option> <% SelectI.movenext() Wend%> </select> </td> </tr> <tr> <td bgcolor="#FFCC00" class="txContenido"><strong>MotivoII</strong></td> <td id="fila_2"> </td> </tr> </body>
Result.asp
Código HTML:
<% If (Request.QueryString("CampoI") <> "") Then CampoI = Request.QueryString("CampoI") End If %> <html> <head> <title>Documento sin título</title> <link href="../CSS/contenidos.css" rel="stylesheet" type="text/css"> </head> <body> <% Set SelectII = Server.CreateObject("ADODB.Recordset") SelectII.ActiveConnection = MM_acceso_STRING SelectII.Source="SELECT DISTINCT CampoII FROM FeedbackArbol WHERe CampoI ='"& CampoI &"' ORDER BY CampoII" SelectII.CursorType = 1 SelectII.CursorLocation = 2 SelectII.LockType = 1 SelectII.Open() %> <% IF CampoI <> "Capacitacion" THEN %> <select id="select_1" name="CampoII" class="txContenido"> <option>-- Select --</option> <% while NOT SelectII.EOF %> <option value="<%=SelectII.Fields("CampoII")%>"><%=SelectII.Fields("CampoII")%></option> <% SelectII.movenext() wend %> </select> <% ELSE %> <input type="radio" id="select_1" name="CampoII">asd <% END IF %>