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

Profesores 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 rsprof.open "select * from profesores where codprof="&rslibrosoc("codprof") ,conn ,adOpenKeyset ,adLockOptimistic %> <%rsprof.close rslibros.close num=num+1 end if rslibrosoc.movenext loop rslibrosoc.close%>

Profesor	Título	Fecha Cogido	Fecha Devolver
<%=rsprof("nombreprof")%> <%=rsprof("apellido1prof")%>	<%=rslibros("titulo")%>	<%=rslibrosoc("fechaalq")%>	<%=rslibrosoc("fechadev")%>

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