Código:
function getHTTPObject() { var xmlhttp; /*@cc_on @if (@_jscript_version >= 5) try { xmlhttp = new ActiveXObject("Msxml2.XMLHTTP"); } catch (e) { try { xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); } catch (E) { xmlhttp = false; } } @else xmlhttp = false; @end @*/ if (!xmlhttp && typeof XMLHttpRequest != 'undefined') { try { xmlhttp = new XMLHttpRequest(); } catch (e) { xmlhttp = false; } } return xmlhttp; } var enProceso = false; // lo usamos para ver si hay un proceso activo var http = getHTTPObject(); // Creamos el objeto XMLHttpRequest var strCondicion; function handleHttpResponse() { if (http.readyState == 4) { if (http.status == 200) { if (http.responseText.indexOf('invalid') == -1) { // Armamos un array, usando la coma para separar elementos results = http.responseText.split("|"); document.getElementById("nombre").value = results[0]; document.getElementById("usuario").value = results[1]; document.getElementById("password").value = results[2]; document.getElementById("grupo").value = results[3]; strCondicion = results[9]; activarboton(strCondicion); enProceso = false; } } } } function Buscar(dato) { if (!enProceso && http) { var valor = escape(document.getElementById(dato).value); var url = "enviarUsuario.asp?datoabuscar="+ valor; //alert('Este es el valor = ' + url) http.open("GET", url+ "&random=" + Math.random(), true); http.onreadystatechange = handleHttpResponse; enProceso = true; http.send(null); // alert(url) } }
basicamente lo q hace es que apartir del dato capturado en un input va y lo busca en una tabla y trae una serie de datos y los despliega en una serie de inputs dentro d eun formulario, ahora bien , lo que deseo hacer ahora es:
tengo un select que lleno apartir de una tabla, y quiero hacer que vaya y busque en el metodo onchange() ese valor en otra tabla, algo asi como esto:
<select id="grupo"> <option>Grupo1</option><option>Grupo2</option></select>
<select size="5" id="listausuarios"> *** Si selecciono el grupo2, quiero que me despliegue los usuarios que pertenezcan a ese grupo ***</select>
tengo algo armado pero no se como pasarloa la pag que manda llamar
el detalle es que no se como traerme los datos y ponerlos en la lista, y eso del split no se si funcione para los <option>

Código:
dim dato dato = request.QueryString("datoabuscar") if dato <> "" then call conectarDB sSQL = "Select * FROM DS_Usuarios where usuarios_numero_grupo = '"& dato &"'" Set rs = cnn.execute(sSQL) do while not rs.eof %><option value="<%=rs("usuarios_id")%>"><%=rs("usuarios_nombre")%></option> <% response.Write(cadena) rs.movenext loop rs.close Set rs = nothing end if call desconectarDB