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

no funciona la select option

Estas en el tema de no funciona la select option en el foro de ASP Clásico en Foros del Web. Hola a tod@s tengo un problema con un desplegable ya que intento decir que cuando seleccione las option que lo compone no me funciona a ...
  #1 (permalink)  
Antiguo 20/08/2009, 06:06
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 15 años, 11 meses
Puntos: 1
no funciona la select option

Hola a tod@s tengo un problema con un desplegable ya que intento decir que cuando seleccione las option que lo compone no me funciona a ver si alguien sabe en que me estoy confundiendo. Gracias.

Código PHP:
<!--#include file="include/sp-cabecera-ppal.asp"-->

<table width="68%"  height="100%" cellpadding="0" cellspacing="0" border="0" align="center" bgcolor="#FFFFFF">
<
tr>
    <
td colspan="3" align="center">
        <!--
#include file="include/sp-cabecera.asp"-->
    
</td>
</
tr>
<
tr>
    <
td width="10%" align="left" valign="top">
        <
img src="img/columna-int.jpg" border="0">
    </
td>
    <
td width="80%" valign="top" class="texto">
    <
img src="img/tit-sp-buscador.jpg" border="0"><br><br>
            <
table border="0" cellpadding="0" cellspacing="0" width="139" align="center">
                <!-- 
fwtable fwsrc="Sin título" fwbase="sp-area.html" fwstyle="Dreamweaver" fwdocid "1642969582" fwnested="0" -->
                
                </
table>
                
                
                
                
                <
table width="100%" cellpadding="0" cellspacing="0" border="0">
    
    <
tr>
        <
td valign="top" class="textonegro" >
        
        <%
           
buscar=lCASE(request.Form("buscar"))
          
           
            
set Ob_conn1=server.createobject("ADODB.connection")
            
Ob_conn1.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" Server.MapPath("..\..\Data\kroma_bd.mdb") & ";"
            
            
set rs1=ob_conn1.Execute("SELECT * FROM ENT_distribuidores WHERE c_nombre LIKE '%"&buscar&"%'")
            
'set rs1=ob_conn1.Execute("select * from T_llamadas where (c_usuario='"& usuario &"' or c_usuario='"& todos &"') order by c_idllamada desc")
            
            if rs1.eof then     
           %>
           <center>
            <center><img src="img/sentir.gif"/><br />
            <B>Lo sentimos</B> 
           No existe <b>ningún resultado de búsqueda</b> con los parámetros introducidos (<%=Buscar%>)</center><Br><br>
          
               
            <%else%>
              
                <table width="100%" border="0" cellspacing="0">
                           <tr bgcolor="#F3F3F3">
                               <td width=10></td>
                            
                            <td class="textonegro" colspan="2"><center>
                            <form  name="selecion" method="post">
                                <select name="distribuidores" class="select" />                          
                                    <option value="0" selected="selected">Distribuidores</option>
                                    <option value="1">Activos</option>
                                    <option value="2">Inactivos</option>                              
                                </select>
                            </form>
                                </center>                            </td>
                          </tr>
                                                    <tr>
                              <td height=1 bgcolor="#CCCCCC" colspan="3"></td>
                          </tr>
                          <tr bgcolor="#F3F3F3">
                               <td width=10></td>
                            <td class="textonegro" colspan="2"><center>CLIENTES:&nbsp;&nbsp;<b><%=buscar%></b></center></td>
                          </tr>
                          <tr bgcolor="#F3F3F3">
                              <td width="10"></td>
                            <td class="textonegro">
                                <b>NOMBRE CLIENTE</b>                            </td>
                            <td class="textoNegro">
                                <b>ACCESO</b>                            </td>
                          </tr>
                          <tr>
                              <td height=1 bgcolor="#CCCCCC" colspan="3"></td>
                          </tr>
                          <%do while not rs1.eof%>
                          <tr>
                              <td width="10"></td>
                            <td class="textoazulG">
                            
                                <%'
=rs1("c_nombre")%>
                                <% 
dim nombre
                                nombre
=request.Form("distribuidores")
                                
response.Write(nombre)
                                    
select case nombre
                                        
case "0"
                                            
response.write("La variable es Ivan")
                                        case 
"1"
                                            
response.write("La variable es Pedro")
                                        case 
"2"
                                            
response.write("La variable es Juan")
                                    
End Select
                                
%>
                                </
td>
                            <
td class="textoazulG">
                                <
><img src="img/lupa.gif" border="0"></a>                            </td>
                          </
tr>
                           <
tr>
                              <
td height=1 bgcolor="#CCCCCC" colspan="3"></td>
                          </
tr>
                          <%
                        
rs1.movenext
                        loop
%>
                        </
table>
            <%
end if%>
        </
td>
        <
td width="20"></td>
    </
tr>
    </
table>
                
                
                
        
    </
td>
    <
td width="10%" valign="top"></td>
</
tr>
<
tr>
    <
td colspan="3">
    </
td>
</
tr>
</
table>
    
<!--
#include file="include/fin.asp"-->
</html
  #2 (permalink)  
Antiguo 20/08/2009, 06:50
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 4 meses
Puntos: 126
Respuesta: no funciona la select option

Hola

Cita:
Iniciado por igonfil Ver Mensaje
Hola a tod@s tengo un problema con un desplegable ya que intento decir que cuando seleccione las option que lo compone no me funciona a ver si alguien sabe en que me estoy confundiendo. Gracias.
¿Qué significa que cuando seleccionas las opciones no te funciona?

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #3 (permalink)  
Antiguo 20/08/2009, 08:46
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 15 años, 11 meses
Puntos: 1
Respuesta: no funciona la select option

Que al desplegar el select y seleccionar una de las tres opciones (Activos, Inactivos o Distribuidores) No me muestra nada del select case. Gracias
  #4 (permalink)  
Antiguo 20/08/2009, 11:56
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 4 meses
Puntos: 126
Respuesta: no funciona la select option

Hola

No puede realizar ninguna acción ya que no estás enviando el form

Código html:
Ver original
  1. <form  name="selecion" method="post"[B] action="mismapagina.asp"[/B]>
  2.                                 <select name="distribuidores" class="select">                          
  3.                                     <option value="0" selected="selected">Distribuidores</option>
  4.                                     <option value="1">Activos</option>
  5.                                     <option value="2">Inactivos</option>                              
  6.                                 </select>
  7. [B]<input type="submit" value="enviar" />[/B]
  8.                             </form>

Por otro lado compruebas si se ha sumitado el form
if UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" then

Recoges la varible, etc...

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
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 15:04.