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