<%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%>