Ver Mensaje Individual
  #3 (permalink)  
Antiguo 27/05/2009, 10:49
Avatar de Esfinge02
Esfinge02
 
Fecha de Ingreso: septiembre-2008
Ubicación: Cd. Victoria Tam
Mensajes: 162
Antigüedad: 16 años, 6 meses
Puntos: 2
Pregunta Respuesta: combo box filtrado

intensta esto, es algo rustico y no esta completo pero me funcion en su momento.

Cita:
<%@ Language="VBScript"%>
<!--#include file="funciones/funciones.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org./TR/xhtml1/DTD/transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<title>.:Modulo de Alumno:.</title>
</head>

<body>
<%call conecta()%>
<table width="100%">
<tr>
<td></td>
<td>
Pais</td>
<td></td>
</tr>
<tr>
<td></td>
<td>
<%
des1 = request.QueryString("des1")
des2 = request.QueryString("des2")
des3 = request.QueryString("des3")
activar = request.QueryString("activar")
idpais = request.QueryString("idpais")
idestado = request.QueryString("idestado")
idmunicipio = request.QueryString("idmunicipio")
strpa = "select * from cat_paises"
set pa = Conn.Execute(strpa)
%>
<select id="secion" name="secion" style="width: 201px" title="Seleccione el Tipo Sesión " onchange="location = this.options[this.selectedIndex].value;">
<option selected="selected" value="0">--SELECCIONE UN PAIS--</option>
<%
Do Until pa.Eof
%>
<option value="paises.asp?activar=1&idpais=<%=pa("idpais") %>&des1=<%=pa("pais")%>"><%=pa("pais")%></option>
<%
pa.MoveNext
Loop
%>
</select>
<input id="Text1" type="text" value="<%=des1%>" /></td>
<td></td>
</tr>
<%if activar = 1 or activar = 2 then
strest = "select * from cat_estado where idpais = "& idpais
set est = Conn.Execute(strest)
%>
<tr>
<td></td>
<td>
Estado</td>
<td></td>
</tr>
<tr>
<td></td>
<td>
<select id="Select1" name="secion" style="width: 201px" title="Seleccione el Tipo Sesión " onchange="location = this.options[this.selectedIndex].value;">
<option selected="selected" value="0">--SELECCIONE UN ESTADO--</option>
<%
Do Until est.Eof
%>
<option value="paises.asp?activar=2&idestado=<%=est("idest ado")%>&idpais=<%=idpais%>&des2=<%=est("estado")%> &des1=<%=des1%>"><%=est("estado")%></option>
<%
est.MoveNext
Loop
%>
</select>
<input id="Text2" type="text" value="<%=des2%>" /></td>
<td></td>
</tr>
<%end if%>
<%if activar = 2 then
strmu = "select * from cat_municipio where idestado ="& idestado
set mu = Conn.Execute(strmu)
%>
<tr>
<td>
</td>
<td>
Municipio</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td>
<select id="Select2" name="secion" style="width: 201px" title="Seleccione el Tipo Sesión " onchange="location = this.options[this.selectedIndex].value;">
<option selected="selected" value="0">--SELECCIONE UN MUNICIPIO--</option>
<%
Do Until mu.Eof
%>
<option value="paises.asp?activar=2&idmunicipio=<%=mu("idm unicipio")%>&idestado=<%=idestado%>&idpais=<%=idpa is%>&des3=<%=mu("municipio")%>&des2=<%=des2%>&des1 =<%=des1%>"><%=mu("municipio")%></option>
<%
mu.MoveNext
Loop
%>
</select>
<input id="Text3" type="text" value="<%=des3%>" /></td>
<td>
</td>
</tr>
<%end if%>
<tr>
<td>
</td>
<td>
</td>
<td>
Mandar</td>
</tr>
</table>
<%call desconecta()%>
</body>
</html>
__________________
La ignorancia es una bendición o un privilegio, yo lo siento programadores