Foros del Web » Programando para Internet » ASP Clásico »

URGENTE Necesito Ayuda

Estas en el tema de URGENTE Necesito Ayuda en el foro de ASP Clásico en Foros del Web. Gracias de ante todo, y continuando con lo mismo. Lo que quiero es mostrar en un mismo formulario dos listas, la segunda depende de la ...
  #1 (permalink)  
Antiguo 15/03/2005, 07:09
Avatar de WILLIAMGG  
Fecha de Ingreso: febrero-2005
Mensajes: 218
Antigüedad: 20 años, 2 meses
Puntos: 0
URGENTE Necesito Ayuda

Gracias de ante todo, y continuando con lo mismo.
Lo que quiero es mostrar en un mismo formulario dos listas, la segunda depende de la seleccion que se haga en la primera, los datos son cargados de una base de datos (02 Tablas), tengo un codigo que funciona correctamente, pero .. pero muestra los datos de la segunda lista en otra pagina.

Mi pregunta es, si con este codigo adjunto puedo yo mostrar los datos en una misma pagina.
Gracias por todo
///son dos tablas una PAIS y la otra DEPARTAMENTOS

<% @LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD>

<script>
function cambio()
{<%CODIGO=request.form("CBOPAIS")%>
document.FORMULARIO.submit()
}
</script>
<BODY>
<form name=FORMULARIO action="LISTA2.ASP" method=post>
<%
//conexion bd
%>
<%If request.form("accion")= "" Then%>
<input type=hidden name=accion value=subcat>
PAIS:<select name=CBOPAIS size=1 onchage="javascript:cambio ();">
<%do while not TABLA.EOF%>
<option value="<%=TABLA("IDPAIS")%>"> <%=TABLA("PAIS")%>
<% TABLA.MOVENEXT
loop%>
</select>
DEPARTAMENTO:<select name=CBOPROV size=1 >
</select>
<%else%>
<input type=hidden name=accion value=Subsubcat>
<% CODIGO=request.form("CBOPAIS")
Response.Write(request.form("CBOPAIS"))
sSQL = "Select * from DEPARTAMENTOS where PAIS LIKE "&CODIGO&""
set TABLA2=createobject("adodb.recordset")
TABLA2.Open sSQL,CONECCION
%>
DEPARTAMENTO:<select name=CBOPROV size=1 >
<%do while not TABLA2.EOF%>
<option value="<%=TABLA2("IDPROV")%>"><%=TABLA2("PROVINCIA ")%>
<% TABLA2.MOVENEXT
LOOP%>
</select>
<%TABLA2.Close()
SET TABLA2=nothing %>
<%end if%>

<%
//Cierra la base de datos
%>
</FORM>
</BODY>
</HTML>


Les agradecería su Atencion..


atte WGG
  #2 (permalink)  
Antiguo 15/03/2005, 07:45
 
Fecha de Ingreso: marzo-2005
Mensajes: 5
Antigüedad: 20 años, 1 mes
Puntos: 0
Tengo algo parecido en mi sitio Web pero con 2 combos enlazados de modo que no hace falta refrescar la pagina para actualizar los datos en el segundo combo respecto de la seleccion del primero. Ahi va:

<html>

<head>
<title>Combos combinados</title>

<script language = "JavaScript">



<%'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\database\hard.mdb"))

productos_Sql = "Select distinct familia, codigo, denominacion from articulos "
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_Sql, Conn
x=0
%>

// FUNCION DE COMBO BOX COMBINADO

function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0

<%
count= 0
y=0
do while not rs.eof
%>

x = <%= trim(y) %>;

subcat = new Array();
subcatagorys = "<%=(rs("codigo"))&" "&(rs("denominacion")) %>";
subcatagoryof = "<%=(rs("familia"))%>";
subcatagoryid = "<%=(rs("codigo"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}

</script>



</head>

<body bgcolor="#CDB1B7">
<h2 align="center"><b><i><font color="#AE1732"><u>Combo-box enlazados </u></font></i></b></h2>
<form name="prueba">
<div align="center">
<center>
<table border="0" width="80%">
<tr>

<td width="77%">
<select size="1" id="familia" name="familia" onChange = "javascript:sublist(this.form, familia.value);">

<option selected>Selecciona una familia</option>
<%familias_Sql = "Select distinct id,familia from familias"
rs.Open familias_Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("familia")%></option>


<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp; <SELECT id="subcatagory" name="subcatagory" size="1">
<Option selected value="none"></option>
</SELECT></td>
<td width="9%">
<p align="left">

</p>

</td>
</tr>
</table>
</center>
</div>
<center>
</form>
</center>
</body>
</html>


Solo debes adaptar el codigo a 2 listas en vez de 2 combos.

Espero que te sea de ayuda.

Un saludo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:26.