<%if session("usr")<>0 then %> <% rslibrosoc.open "select * from librosocupados where ocupado=1 and codalum<>0 order by fechaalq desc" ,conn ,adOpenKeyset ,adLockOptimistic %>

Alumnos con Libros Pendientes

<%=date()%>

<%numt=1 do until rslibrosoc.eof if rslibrosoc("fechadev") <% rslibros.open "select * from libros where codlibro="&rslibrosoc("codlibro") ,conn ,adOpenKeyset ,adLockOptimistic rsalum.open "select * from alumnos where codalum="&rslibrosoc("codalum") ,conn ,adOpenKeyset ,adLockOptimistic %> <%rsalum.close rslibros.close num=num+1 end if rslibrosoc.movenext loop rslibrosoc.close%>
Alumno Título Fecha Cogido Fecha Devolver
<%=rsalum("nombrealum")%> <%=rsalum("apellido1alum")%> <%=rslibros("titulo")%> <%=rslibrosoc("fechaalq")%> <%=rslibrosoc("fechadev")%>


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