Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

listas desplegables

03/03/2005 - 12:22 por Lorena Betancor | Informe spam
Ayuda Hacer una pregunta
hola

he estado rebuscando en internet sobre listas despleglables condicionadas, y
solo las he encontrado a 2 niveles,...es posible encadenar a mas niveles
3,4,5???
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 cguzmanlillo
03/03/2005 - 13:01 | Informe spam
Yo he tratado mucho, pero con asp no lo logre pero con
asp.net si, en todo caso visita la pagina
lawebdelprogramador.com.
Saludos
hola

he estado rebuscando en internet sobre listas


despleglables condicionadas, y
solo las he encontrado a 2 niveles,...es posible


encadenar a mas niveles
3,4,5???


.

Respuesta Responder a este mensaje
#2 Gabriel South
03/03/2005 - 16:10 | Informe spam
En este ejemplo se usan 2 combos combinados, solo que dando una ojeada te
daras cuenta que es muy facil combinar varios combos.

Este ejemplo es sobre combos combinados que al cambiarlos, no precisa
actualizar toda la pagina.

Espero te sirva y puedas expandirlos

Gabriel.



<%@ Language=VBScript %>
<!--#include file="include.inc"-->
<% Response.Expires = 0
Dim oConn
Dim oRS
Dim sSQL, strConnect

On error goto 0

Set oConn = Server.CreateObject("ADODB.Connection")
'strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;"
'strConnect = strConnect & "Data Source=" &
Server.MapPath("\data\clasificados.mdb") & ";"
'oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\data\clasificados.mdb"))
oConn.Open(strConnect)
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.CursorType=3
oRs.CursorLocation=2
oRs.LockType=3


'- Localidades
i=0
sSQL="select count(*) as cantidad from localidades "
Set oRS = oConn.Execute(sSQL)
on error resume next
i=ccur(oRS.fields("cantidad"))
on error goto 0

Redim sLocalidades(i,3)

sSQL="select * from localidades "
Set oRS = oConn.Execute(sSQL)
i=1
oRS.MoveFirst
Do while not oRS.EOF
slocalidades(i,1)=Trim(oRS.Fields("codigolocalidad"))
slocalidades(i,2)=Trim(oRS.Fields("codigoprovincia"))
slocalidades(i,3)=Trim(oRS.Fields("nombre"))
i=i+1
oRS.MoveNext
Loop


%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ingreso</title>
<style>
.BOTON
{
FONT-WEIGHT: bolder;
BACKGROUND-IMAGE: url('imagenes/degrade.gif');
COLOR: darkblue;
BACKGROUND-COLOR: dimgray
}

</style>
</head>
<script language="vbscript">
Sub window_onload
form1.fecha.value = "<%=formatdatetime(date,2)%>"
form1.nombre.focus
call provincia_onchange
End sub

Sub ok_onclick
if validarchar(form1.nombre.value) or validarchar(form1.direccion.value)
or validarchar(form1.telefono.value) or validarchar(form1.email.value) or
validarchar(form1.password.value) then Alert("No se permiten caracteres
Invalidos" & chr(13) & chr(10) & chr(39) + chr(34) + "%#,~`/\|+="): exit sub
if trim(form1.nombre.value)="" then Alert("Debe Ingresar un Nombre de
Usuario"): form1.nombre.focus: exit sub
if trim(form1.password.value)="" then Alert("Debe Ingresar su Clave"):
form1.password.focus: exit sub
if trim(form1.password.value)<>trim(form1.repassword.value) then
Alert("El password que ingresó no coincide con la verificación"):
form1.password.value="": form1.repassword.value="": form1.password.focus:
exit sub
if ValidarEmail(form1.email.value) = true then Alert("Debe ingresar un
e-mail válido, porque luego será usado como nombre de usuario"):
form1.email.value="": form1.email.focus: exit sub
if form1.mostrartelefono.checked = True then
form1.mostrartelefono.value="ON"
else
form1.mostrartelefono.value="OFF"
End if
form1.submit1.click
End sub

Function validarchar(cadena)
Dim invalidos,a,mal
invalidos=chr(39) + chr(34) + "%#,~`/\|+="
Mal=false
For a=1 to len(invalidos)
if instr(cadena,mid(invalidos,a,1))<>0 then mal=true: exit for
Next
validarchar=mal
End Function

Sub cancelar_onclick
window.navigate("centro.asp")
End sub

Function ValidarEmail(email)
Dim salida,Arroba
salida=false
email=trim(email)

Arroba=instr(email,"@")

salida=validarchar(email)
if Arroba = 0 then salida=true
if Instr(arroba+1,email,".") = 0 then salida=true
if len(email)<4 then salida=true

ValidarEmail=salida

End Function

Sub provincia_onchange
call cargalocalidad (form1.provincia.value)
End sub

Sub cargalocalidad(provincia)
Dim oIndex,oOption

' -- Borrar Combo'
FORM1.localidad.selectedIndex = -1
I = FORM1.localidad.length
'limpio combo localidad'
Do While I > 0
FORM1.localidad.selectedIndex = I
oIndex = FORM1.localidad.value
FORM1.localidad.remove(oIndex)
I = I - 1
LOOP

' Recargar Combo --'

<%for i=1 to ubound(sLocalidades)%>
if "<%=Trim(sLocalidades(i,2))%>" = Trim(Provincia) then
set oOption = document.createElement("OPTION")
oOption.Text = "<%=sLocalidades(i,3)%>"
oOption.Value = "<%=sLocalidades(i,1)%>"
FORM1.localidad.add(oOption)
set oOption = nothing
end if
<%Next%>
FORM1.Localidad.selectedIndex = 0

End sub

</script>
<body style="background-image: url('imagenes/fondo_clasi.gif');
background-repeat: repeat; background-attachment: scroll;
background-position: left top">

<FORM action="ingresar.asp" method="POST" id=form1 name=form1>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0"
style="filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=5, OffY=5,
Color='#E0E0E0', Positive='true')">
<tr>
<td align="center" style="width: 500px; height: 24px;
background-image: url('imagenes/encabezado500.gif'); background-repeat:
no-repeat; background-attachment: fixed; background-position: center top"
colspan="2"><b><font face="Tahoma" color="#0000FF">Ficha
de Registración del Usuario</font></b></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2">
<font color="#FF0000">Nombre:</font>&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA">
<input type="text" name="nombre" size="30" maxlength0
style="font-family: Tahoma; font-size: 8pt">
<font face="Tahoma" size="2"><font color="#FF0000">(</font><span
lang="pt-br"><font color="#FF0000">1</font></span><font
color="#FF0000">)</font></font></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA">
<span lang="pt-br"><font face="Tahoma" size="2">Nick name
Público:&nbsp;</font></span></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA">
<input type="text" name="nick" id="nick" size="30" maxlength0
style="font-family: Tahoma; font-size: 8pt">
<font face="Tahoma" size="2"><font color="#0000FF">(</font><span
lang="pt-br"><font color="#0000FF">2</font></span><font
color="#0000FF">)</font></font></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA">
<span lang="pt-br"><font face="Tahoma" size="2">E-Mail
Público:&nbsp;</font></span></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA">
<input type="text" name="emailcontacto" id="emailcontacto" size="35"
maxlength5 style="font-family: Tahoma; font-size: 8pt">
<font face="Tahoma" size="2"><font color="#0000FF">(</font><span
lang="pt-br"><font color="#0000FF">2</font></span><font
color="#0000FF">)</font></font></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2">Dirección:&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><input type="text" name="direccion" size="30" maxlengthI
style="font-family: Tahoma; font-size: 8pt"></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2">Provincia:&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><select name="provincia" id="provincia" size="1"
style="font-family: Tahoma; font-size: 8pt">
<%
'- Provincias
sSQL="select * from provincias order by nombre"
Set oRS = oConn.Execute(sSQL)

Do while not oRS.EOF
%>
<option <%if ucase(trim(oRs.Fields("nombre")))="CORDOBA" then
response.write(" SELECTED
")%>value="<%=Trim(oRS.Fields("codigoprovincia"))%>"><%=Trim(oRS.Fields("nombre"))%></option>
<%
oRS.MoveNext
Loop
%>











&nbsp;
</select></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2">Localidad:&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><select name="localidad" id="localidad" size="1"
style="font-family: Tahoma; font-size: 8pt">
</select></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2">Teléfono:&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><input type="text" name="telefono" size="25" maxlength%
style="font-family: Tahoma; font-size: 8pt"><span lang="pt-br">
</span><input type="checkbox" name="mostrartelefono"
id="mostrartelefono" value="OFF"><span lang="pt-br"><font size="2"
face="Tahoma">Mostrar
en avisos </font></span>
<font face="Tahoma" size="2"><font color="#0000FF">(</font><span
lang="pt-br"><font color="#0000FF">3</font></span><font
color="#0000FF">)</font></font></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2"
color="#FF0000">E-mail:&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><input type="text" name="email" size="35" maxlength5
style="font-family: Tahoma; font-size: 8pt">
<font face="Tahoma" size="2"><font color="#FF0000">(</font><span
lang="pt-br"><font color="#FF0000">1</font></span><font
color="#FF0000">)</font></font></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2"><font
color="#FF0000">Password:</font>&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><input type="password" name="password" id="password"
size="20" maxlength style="font-family: Tahoma; font-size: 8pt">
<font face="Tahoma" size="2"><font color="#FF0000">(</font><span
lang="pt-br"><font color="#FF0000">1</font></span><font
color="#FF0000">)</font><span lang="pt-br">
(letras y numeros hasta 15 digitos)</span></font></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2"><font
color="#FF0000">Confirmar
Password:</font>&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><input type="password" name="repassword" id="repassword"
size="20" maxlength style="font-family: Tahoma; font-size: 8pt">
</td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA"><font face="Tahoma" size="2">Fecha
de Subscripción:&nbsp;</font></td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA"><input type="hidden" name="fecha" READONLY
style="visibility:hidden; width:0px; height:0px"><font face=tahoma
size=2><%=ShowFecha(formatdatetime(date,2))%></font></td>
</tr>
<tr>
<td align="right" style="border-left: 1 solid #F1D186"
bgcolor="#FFFFEA">&nbsp;</td>
<td align="left" style="border-right: 1 solid #F1D186"
bgcolor="#FFFFEA">&nbsp;</td>
</tr>
<tr>
<td style="border-left: 1 solid #F1D186; border-right: 1 solid
#F1D186" bgcolor="#FFFFEA" colspan="2" valign="middle" align="center"><input
type="button" value="Aceptar" name="ok" class="BOTON" style="width: 65px;
font-family: Tahoma; font-size: 8pt; cursor:hand">&nbsp;<input type="button"
value="Cancelar" name="cancelar" class="BOTON" style="width: 65px;
font-family: Tahoma; font-size: 8pt; cursor:hand"></td>
</tr>
<tr>
<td style="border-left: 1 solid #F1D186; border-right: 1 solid
#F1D186" bgcolor="#FFFFEA" colspan="2" valign="middle"
align="center"></td><input id="submit1" name="submit1" value="submit1"
type="submit" style="HEIGHT: 0px; VISIBILITY: hidden; WIDTH: 0px">
</tr>
<tr>
<td bgcolor="#FFFFEA" colspan="2" colspan="2" style="width: 500px;
height: 3px; background-image: url('imagenes/pie500.gif');
background-repeat: no-repeat; background-attachment: fixed;
background-position: center top"></td>
</tr>
</table>
<p style="line-height: 150%">
<font face="Tahoma" size="2">
<font color="#FF0000">(</font><span lang="pt-br"><font
color="#FF0000">1</font></span><font color="#FF0000">)</font> Estos datos
son obligatorios<span lang="pt-br">.</span></font><span lang="pt-br"><br>
</span><font face="Tahoma" size="2"><font color="#0000FF">(</font><span
lang="pt-br"><font color="#0000FF">2</font></span><font
color="#0000FF">)</font><span lang="pt-br">
Usados para mostrar públicamente para contactos de sus clasificados. Si
ingresa
en blanco se mostrará su nombre verdadero.<br>
</span><font color="#0000FF">(</font><span lang="pt-br"><font
color="#0000FF">3</font></span><font color="#0000FF">)</font><span
lang="pt-br">
Active la casilla si quiere que su teléfono aparezca en sus clasificados
para
poder contactarlo.</span></font></p>
</center>
</div>
</FORM>
</body>

</html>
<%
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
Respuesta Responder a este mensaje
#3 Nuno Santos
03/03/2005 - 16:27 | Informe spam
Yo tengo utilizado el objecto XMLHTTP para hacer eso, con una simples
función en JavaScript consegues obtener eso...
Pesquisa en la net por XMLHTTP que encontras...


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Lorena Betancor" wrote in message
news:eM5xDN%
hola

he estado rebuscando en internet sobre listas despleglables condicionadas,
y
solo las he encontrado a 2 niveles,...es posible encadenar a mas niveles
3,4,5???


Respuesta Responder a este mensaje
#4 Carlos Bladinieres
03/03/2005 - 18:24 | Informe spam
Hola Lorena:

Revisa esta pagina, ahi hay un ejemplo para poder hacer las listas
desplegables a 2 y 3 niveles, se puede adaptar para hacerla a los niveles
que quieras, viene en ambos casos una liga para descargar el codigo.
Si necesitas ayuda para poder hacer mas de 3 listas desplegables encadenadas
por favor avisame y te ayudo con mucho gusto.

http://test.mobmol.com/combo

Saludos,

Carlos

"Lorena Betancor" escribió en el mensaje
news:eM5xDN#
hola

he estado rebuscando en internet sobre listas despleglables condicionadas,


y
solo las he encontrado a 2 niveles,...es posible encadenar a mas niveles
3,4,5???


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida