<%if session("usr")<>0 then%> <% rslibros.open "select * from libros" ,conn ,adOpenKeyset ,adLockOptimistic rslibrosoc.open "select * from librosocupados where ocupado=1" ,conn ,adOpenKeyset ,adLockOptimistic rstemas.open "select * from temas" ,conn ,adOpenKeyset ,adLockOptimistic rstipos.open "select * from librosocupados" ,conn ,adOpenKeyset ,adLockOptimistic %>
Biblioteca

Biblioteca

Nº de Libros: <%=formatnumber(rslibros.recordcount,0)%>

Nº de Libros ocupados: <%=formatnumber(rslibrosoc.recordcount,0)%>

Temas

Nº de Temas: <%=rstemas.recordcount%>

Tipos

Nº de Tipos: <%=rstipos.recordcount%>


Libros Solicitados

<%rslibros.close rstemas.close rstipos.close rslibros.open "select * from libros where solicitar=1 order by fechas desc" ,conn ,adOpenKeyset ,adLockOptimistic num=1 if rslibros.eof then response.write("No hay ningún libro solicitado.") do until rslibros.eof rstemas.open "select * from temas where codtema="&rslibros("codtema") ,conn ,adOpenKeyset ,adLockOptimistic rstipos.open "select * from tipos where codtipo="&rslibros("codtipo") ,conn ,adOpenKeyset ,adLockOptimistic rsalum.open "select * from alumnos where codalum="&rslibros("codalum") ,conn ,adOpenKeyset ,adLockOptimistic rsprof.open "select * from profesores where codprof="&rslibros("codprof") ,conn ,adOpenKeyset ,adLockOptimistic %> <%rstemas.close rstipos.close rsalum.close rsprof.close num=num+1 rslibros.movenext loop rslibros.close%>
','a','scrollbars=no,height=150,width=300,status=no,toolbar=no,menubar=no,location=no');">Desolicitar Libro <%if rslibros("codalum")<>0 and rslibros("codprof")=0 then%> &al=1','a','scrollbars=no,height=300,width=400,status=no,toolbar=no,menubar=no,location=no');">Ocupar Libro <%end if%> <%if rslibros("codalum")=0 and rslibros("codprof")<>0 then%> &al=0','a','scrollbars=no,height=300,width=400,status=no,toolbar=no,menubar=no,location=no');">Ocupar Libro <%end if%> <%=num%>. <%=rstemas("numero")%>.<%if rslibros("codtipo")=0 then response.write("0") else response.write(rstipos("numero")) end if%>.<%=rslibros("numero")%> ','a','scrollbars=no,height=350,width=400,status=no,toolbar=no,menubar=no,location=no');"><%=rslibros("titulo")%> <%if rslibros("codalum")<>0 and rslibros("codprof")=0 then%> <%=rsalum("nombrealum")%> <%=rsalum("apellido1alum")%> <%end if%> <%if rslibros("codalum")=0 and rslibros("codprof")<>0 then%> <%=rsprof("nombreprof")%> <%=rsprof("apellido1prof")%> <%end if%> <%=rslibros("fechas")%>


<% rslibrosoc.close else response.redirect("salir.asp") end if%>