Ver Mensaje Individual
  #6 (permalink)  
Antiguo 22/12/2005, 14:41
Avatar de Dorita
Dorita
 
Fecha de Ingreso: junio-2005
Ubicación: Entre la silla y el escritorio
Mensajes: 97
Antigüedad: 18 años, 11 meses
Puntos: 0
Ahi va:

Código PHP:

<select name="lstBx_Servicio" onChange="location.href('MantenedorEjec.asp?plataforma=<%=Server.URLEncode(servicio)%>&ServicioId=' +
        MantenedorEjec.lstBx_Servicio.options[MantenedorEjec.lstBx_Servicio.selectedIndex].value)"
>
        <
option selected value="0">[Seleccionar]</option>
<%
                        
SQL "SELECT ide_ser, nom_ser FROM sers ORDER BY nom_ser ASC"
                        
Set RS2 Conex.Execute(SQL)     
                        
                        
ser Request.QueryString("ServicioId")                            

                        While 
NOT RS2.EOF
                        
                            ideServicio 
RS2("ide_ser")
                            
nomServicio RS2("nom_ser")                                                                        
                            
                            If 
ser <> "" Then                    
                            
                                
If(CInt(ser) = CInt(ideServicio)) Then %>                        
                                    <
option value="<%=ideServicio%>" selected><%=nomServicio%></option>
<%                                Else %>
                                    <
option value="<%=ideServicio%>"><%=nomServicio%></option>
<%                                
End if
                            Else %>
                                <
option value="<%=ideServicio%>"><%=nomServicio%></option>                                
<%                            
End if                            
    
                             
RS2.MoveNext
                        Wend 
                        RS2
.Close
%>                            
      </
select>
                    
              </
td>                
                <
td align="center" class="estilo_celda_lineaalta">
                    
<%                      If 
Request.QueryString("ServicioId") <> "" Then 
                        serId 
Request.QueryString("ServicioId") %>                    
                        <
select name="lst_Grupo">            
                         
                        <
option value="0">[Sin Asignaci&oacute;n]</option>                                    
                        
<%                        
SQL3 "SELECT ide_gru, nom_gru FROM grus WHERE ide_ser = "&serId&" ORDER BY nom_gru ASC;"
                        
Set RS3 Conex.Execute(SQL3)
                            
                        While 
NOT RS3.EOF
                            idGrupo 
RS3("ide_gru")
                            
nombreGrupo RS3("nom_gru") %>
                                
                            <
option value="<%=idGrupo%>"><%=nombreGrupo%></option>
<%                             
RS3.MoveNext 
                        Wend
                        RS3
.Close %>                                                      
                        </
select>
<%                    
End If %>                                                              
              </
td

en esta página tengo 2 select más (no son dinámicos eso sí) pero nunca pierden el foco. Si no se entiende algo, avísame.

Salu2.-
__________________

<nick>Dorita</nick>...si lo sé, soy una ñoña ;)