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

mostrar permisos

Estas en el tema de mostrar permisos en el foro de ASP Clásico en Foros del Web. Tengo un problema con una aplicación que estoy haciendo. La aplicación consiste en dar permisos a una serie de personas y lo que quiero es ...
  #1 (permalink)  
Antiguo 23/09/2010, 10:30
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 15 años, 11 meses
Puntos: 1
mostrar permisos

Tengo un problema con una aplicación que estoy haciendo.
La aplicación consiste en dar permisos a una serie de personas y lo que quiero es que me muestren todos los usuarios que estén registrados, en el caso de que ese usuario tenga permisos me salga al lado del nombre una imagen de verdadero y en el caso que no tenga los permisos me aparezca un checkbox para podérselos dar en el caso de que se quiera dar.
El problema que tengo es que solo me muestras los que si tienen los permisos. Para ello utilizo dos tablas
Y el código es el siguiente:
Código PHP:
   <%
         
        
        
idblogweb=request.QueryString("idblogweb")
        
set Ob_conn1=server.createobject("ADODB.connection")
        
Ob_conn1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" Server.Mappath("../Data/foro_bd.mdb") & ";"
        
        
set rs=ob_conn1.execute("select * from T_permisomostrar inner join T_usuarios on cint(T_permisomostrar.c_idusuario)=cint(T_usuarios.c_idusuario)")
        
        
    %>
   <
td colspan="5" class="blancos" valign="top">
  
    <%if 
rs.eof then%>
        
No existe níngún blog
    
<%else%>
    <
form action="admin-ampliarpermisosblog2.asp?idblogweb=<%=idblogweb%>" name="permisos" method="post" >
        <
table cellpadding="0" cellspacing="0" border="0">
            <
tr>
                <%do while 
not rs.eof%>
                
                <
tr>
                            
                    <%if 
rs("c_idblogweb")=idblogweb then%>
                        
                        <
td >
                            <
img src="img/verdadero.gif" />
                        </
td>
                        <
td><%=rs("c_nombre")%></td>
                        
                            <%else%>
                        
                        <
td>
                            <
input type="checkbox" name="checkpermiso" class="input" value="<%=rs("c_idusuario")%>"/>
                        </
td>
                        <
td><%=rs("c_nombre")%></td>    
                            <%
end if%>
                            
                            
                                        
                            
                            
                        
                <%
rs.movenext
                loop
%>
                
            </
tr>
            <
tr>
                <
td><input type="submit" name="btnpermisos" value="Permitir" class="input"/></td>
            </
tr>
        </
table>
        </
form>
        <%
end if%> 
  #2 (permalink)  
Antiguo 24/09/2010, 04:44
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 15 años, 11 meses
Puntos: 1
Respuesta: mostrar permisos

El contenidos de las base de datos son
Cita:
Tabla_usuario
T_usuario
c_idusuarios
c_1apellido
c_2apellido
c_usuario
c_pass

Tabla permisosmostrar
T_permisosmostrar
c_idpermisosmostrar
c_idblogweb
c_idusuario
  #3 (permalink)  
Antiguo 24/09/2010, 06:14
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 15 años, 11 meses
Puntos: 1
Respuesta: mostrar permisos

He modificado el código y ahora en lugar de usar el inner join he usado el left outer join pero ahora me da el siguiente error
Gracias

Cita:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Type mismatch in expression.

/admin-ampliarpermisosblog.asp, line 30
Código PHP:
<!--#include file="include/cabeceraweb.asp"-->
 
  
<tr>
   <
td colspan="3" class="blancos"></td>
   <
td colspan="7" class="blancos" ></td>
   <
td class="blancos"></td>
  </
tr>
  <
tr>
      <
td height="45" class="blancos" colspan="11"></td>
  </
tr>
  <
tr>
   <
td colspan="2" class="blancos"></td>
   
   <
td valign="top" class="blancos" rowspan="4"><!--#include file="include/menu.asp"--></td>
   
<td class="blancos" ></td>
   <%
         
        
'titulo=request.Form("blog_titolo")        
        '
fecha=request.Form("txtfecha")
        
'texto=request.Form("blog_testo")
        '
ano=request.Form("selano")        
        
'activar=request.Form("activar")
        '
zona=request.form("selzona")
        
'autor=request.form("blog_autore")
        '
activar="1"
        
idblogweb=request.QueryString("idblogweb")
        
set Ob_conn1=server.createobject("ADODB.connection")
        
Ob_conn1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" Server.Mappath("../Data/foro_bd.mdb") & ";"
        'set rs1=ob_conn1.execute("select * from T_usuarios ")
        set rs1=ob_conn1.execute("select * from T_usuarios left outer join T_permisomostrar on T_usuarios.c_idusuario = T_permisomostrar.c_idusuario")
        set rs=ob_conn1.execute("select * from T_permisomostrar inner join T_usuarios on cint(T_permisomostrar.c_idusuario)=cint(T_usuarios.c_idusuario)")
        '
set rs1=ob_conn1.execute("select * from T_usuarios inner join T_permisomostrar on cint(T_usuarios.c_idusuario)=cint(T_permisomostrar.c_idusuario) where T_permisomostrar.c_idblogweb='"idblogweb &"'")
        
    %>
   <
td colspan="5" class="blancos" valign="top">
  
    <%if 
rs.eof then%>
        
No existe níngún blog
    
<%else%>
    <
form action="admin-ampliarpermisosblog2.asp?idblogweb=<%=idblogweb%>" name="permisos" method="post" >
        <
table cellpadding="0" cellspacing="0" border="0">
            <
tr>
            
                <%do while 
not rs1.eof%>
                
                <
tr>
                            
                    <%if 
rs1("c_idblogweb")=idblogweb then%>
                        
                        <
td >
                            <
img src="img/verdadero.gif" />
                        </
td>
                        <
td><%=rs1("c_nombre")%></td>
                        
                            <%else%>
                        
                        <
td>
                            <
input type="checkbox" name="checkpermiso" class="input" value="<%=rs1("c_idusuario")%>"/>
                        </
td>
                        <
td><%=rs1("c_nombre")%></td>    
                            <%
end if%>
                <%
rs1.movenext
                loop
%>                
            </
tr>
            
                <%
'do while not rs1.eof%>
                <tr>
                    <td><%'
=rs1("c_nombre")%></td>
                </
tr>
                <%
'rs1.movenext
                '
loop%>
            
            <
tr>
                <
td><input type="submit" name="btnpermisos" value="Permitir" class="input"/></td>
            </
tr>
        </
table>
        </
form>
        <%
end if%>
    
   </
td>
  
   <
td rowspan="3" class="blancos" colspan="2"></td>  
  </
tr>
  <
tr>
      
      <
td height="60" class="blancos" colspan="2"></td>
    <
td class="blancos" ></td>
    <
td class="blancos" colspan="6"></td>
  </
tr>
  <
tr>
   <
td rowspan="2"  class="blancos"></td>
   <
td rowspan="2" class="blancos"></td>
   <
td rowspan="2" class="blancos"></td>
   <
td class="blancos"></td>
  </
tr>
  <
tr>
   <
td class="blancos" colspan="4" ></td>
   <
td class="dibujo" valign="bottom"></td>
   <
td colspan="2" class="blancos" width="1" height="179"></td>
  </
tr>
<!--
#include file="include/pieweb.asp"--> 

Etiquetas: permisos
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 06:52.