[SOLUCIONADO] Que con el evento onchange me carge un combobox

maialenlopez · #1 (**permalink**) 03/06/2013, 02:17

Hola,
Estoy programando en asp, lo que hace el código que escribire mas abajo es que, se escribe un valor dentro del input type=text y cuando le doy al boton me carga un combobox con los resultados de la select.

Código ASP:

Ver original<html>
    <head>
    </head>
    <body>
        <%
        Set conn = Server.createobject("adodb.connection")
        Set tablabase = Server.createobject("adodb.recordset")
        conn.open "coplan"
        %>
        <table border="5">
            <tr>
                <td>
                    <form action="referencias_revisiones.asp" method = "post" id="form4" name="buscarPedido">
                        <table border="2" align="center">
                            <tr>
                                <td align="center" colspan="2">
                                    <u><big><big><strong><tt>REFERENCIAS - REVISIONES</tt></strong></big></big></u>
                                </td>
                            </tr>
                            <tr>
                                <td>
                                    Introduce proyecto:
                                    <input type="text" name="pedido" size=20 value="">                     
                                    <input type="submit" name="buscarRevisiones" value="Buscar">
                                </td>
                                <td>
                                    <%if request.Form("pedido")<>"" then%>
                                        <%Dim valortext
                                        valortext = request.Form("pedido")%>
                                        <%tablabase.open "select distinct revision from r_coplan where pedido ='"&valortext&"'", conn
                                        Dim i
                                        i = 0%>
                                        <select name="Nombre">                                      
                                            <%while not (tablabase.eof)%>
                                                <%Session(tablabase("revision")) = tablabase("revision").value
                                                Dim revision
                                                revision = tablabase("revision").value
                                                'response.write revision%>
                                                <option value="<%=i%>"><%=revision%></option>
                                                <%i = i+1%>
                                                <%tablabase.moveNext%>
                                            <%wend%>
                                        </select>
                                        <%tablabase.Close%>
                                    <%end if%>
                                </td>
                            </tr>
                        </table>
                    </form>
                </td>
            </tr>
        </table>
        <%Set tablabase = Nothing
        Conn.Close
        Set Conn = Nothing%>
    </body>
</html>

Lo que quiero es quitar el botón y que cuando el input type=text tenga el evento onchange este me cargue lo que cargo al darle al botón en el caso anterior.

He estado mirando y parece ser que hay que utilizar javascript, pero ya que no se utilizarlo no se como obtener el valor del input type=text ni como cargar el combo o poner el código donde hago la select y cargo el combo.

He echo algo así pero ya no se como seguir:

Código ASP:

Ver original<html>
    <head>
    <SCRIPT>
    <!--
    function CargarCombo() { 
        //obtener el valor del input pedido y que me haga lo que hace dentro del if request.form("pedido")
        pedido.focus()
    }
    //--> 
    </SCRIPT>
    </head>
    <body>
        <%
        Set conn = Server.createobject("adodb.connection")
        Set tablabase = Server.createobject("adodb.recordset")
        conn.open "coplan"
        %>
        <table border="5">
            <tr>
                <td>
                    <form action="referencias_revisiones.asp" method = "post" id="form4" name="buscarPedido">
                        <table border="2" align="center">
                            <tr>
                                <td align="center" colspan="2">
                                    <u><big><big><strong><tt>REFERENCIAS - REVISIONES</tt></strong></big></big></u>
                                </td>
                            </tr>
                            <tr>
                                <td>
                                    Introduce proyecto:
                                    <input type="text" name="pedido" size=20 value="" onchange="CargarCombo()">   
                                    <%'<input type="submit" name="buscarRevisiones" value="Buscar">%>
                                </td>
                                <td>
                                    <%if request.Form("pedido")<>"" then%>
                                        <%Dim valortext
                                        valortext = request.Form("pedido")
                                        'response.write valortext%>
                                        <%tablabase.open "select distinct revision from r_coplan where pedido ='"&valortext&"'", conn
                                        'response.write "select distinct revision from r_coplan where pedido ='"&valortext&"'"
                                        Dim i
                                        i = 0%>
                                        <select name="Nombre">                                      
                                            <%while not (tablabase.eof)%>
                                                <%Session(tablabase("revision")) = tablabase("revision").value
                                                Dim revision
                                                revision = tablabase("revision").value
                                                'response.write revision%>
                                                <option value="<%=i%>"><%=revision%></option>
                                                <%i = i+1%>
                                                <%tablabase.moveNext%>
                                            <%wend%>
                                        </select>
                                        <%tablabase.Close%>
                                    <%end if%>
                                </td>
                            </tr>
                        </table>
                    </form>
                </td>
            </tr>
        </table>
        <%Set tablabase = Nothing
        Conn.Close
        Set Conn = Nothing%>
    </body>
</html>

¿Alguien me puede echar una mano?

maialenlopez · #2 (**permalink**) 03/06/2013, 03:21

Ha conseguido coger el valor del textbox en la funcion javascript de esta forma:

Código Javascript:

Ver originalfunction CargarCombo(form) { 
    var valortext;
    valortext = form.pedido.value
    alert(valortext)
}

Código ASP:

Ver original<input type="text" name="pedido" size=20 value="" onchange="CargarCombo(this.form)">

Ahora lo que necesito es que esa funcion javascript me haga el select y me carge el combobox con los valores que obtenga.

¿Alguien me puede echar una mano?

maialenlopez · #3 (**permalink**) 03/06/2013, 08:21

Ya lo he solucionado, he utilizado AJAX para ello.

Os dejo el código por si a alguien le sirve de ayuda.

referencias_revisiones.asp

Código ASP:

Ver original<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
<html>
    <head>
    <script language="javascript" type="text/javascript">
    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 cargaAplicacion(){
        //alert ("entra1");
        var valor=document.getElementById("pedido").value;
        //alert (valor);        
        
        if (valor==0){          
           document.getElementById("celda_aplicacion").innerHTML=" Escribe un proyecto previamente";
        }
        else{
            //alert ("entra2");
            ajax=nuevoAjax();
            ajax.open("GET", "careferencias.asp?pedido="+valor, true);
            ajax.onreadystatechange=function(){ 
               if (ajax.readyState==1){
                   combo=document.getElementById("celda_aplicacion");
                   combo.length=0;
                   var nuevaOpcion=document.createElement("option"); nuevaOpcion.value=0; nuevaOpcion.innerHTML="Cargando...";
                   combo.appendChild(nuevaOpcion); 
                   combo.disabled=false;       
               }
               if (ajax.readyState==4){ 
                    //alert ("entra3");
                   //alert(ajax.responseText);
                   document.getElementById("celda_aplicacion").innerHTML=ajax.responseText;
               } 
           }
           ajax.send(null);
        }
    }
    </script>
 
    </head>
    <body>
        <%
        Set conn = Server.createobject("adodb.connection")
        Set tablabase = Server.createobject("adodb.recordset")
        conn.open "coplan"
        %>
        <table border="5">
            <tr>
                <td>
                    <form action="referencias_revisiones.asp" method = "post" id="form4" name="buscarPedido">
                        <table border="2" align="center">
                            <tr>
                                <td align="center" colspan="2">
                                    <u><big><big><strong><tt>REFERENCIAS - REVISIONES</tt></strong></big></big></u>
                                </td>
                            </tr>
                            <tr>
                                <td>
                                    Introduce proyecto: 
                                    <input type="text" name="pedido" id="pedido" size=20 value="" onchange="cargaAplicacion()">
                                </td>
                                <td id="celda_aplicacion">
                                </td>
                            </tr>
                        </table>
                    </form>
                </td>
            </tr>
        </table>
        <%Set tablabase = Nothing
        Conn.Close
        Set Conn = Nothing%>
    </body>
</html>

careferencias.asp

Código ASP:

Ver original<%
    valor = Request("pedido")
    'response.write valor
    
    'if len(valor)>3 then
    
    Set conn = Server.createobject("adodb.connection")
    Set tablabase = Server.createobject("adodb.recordset")
    conn.open "coplan"
        
        
    tablabase.open "select distinct revision from r_coplan where pedido ='"&valor&"'", conn
    
    response.write "<select class=""combo"" id=""aplicacion"" name=""aplicacion""><option></option>"
 
    if tablabase.eof then
        response.write "<option></option>"
    else
        do until tablabase.eof
            response.Write "<option value=""" & tablabase("revision") & """>" & Server.HtmlEncode(tablabase("revision")) & "</option>"
            tablabase.movenext
        loop
    end if
    tablabase.close
    set tablabase=nothing
    
    response.write "</select>"
%>