<%if session("usr")<>0 then if (Request.Form <>"") Then rslibros.open "select * from libros where codlibro="&request.querystring("id") ,conn ,adOpenKeyset ,adLockOptimistic rslibrosoc.Open "select * from librosocupados",conn ,adOpenKeyset ,adLockOptimistic rslibrosoc.addnew rslibrosoc("codlibro")=request.querystring("id") if request.querystring("al")=1 then rslibrosoc("codalum")=rslibros("codalum") rslibrosoc("codprof")=0 end if if request.querystring("al")=0 then rslibrosoc("codprof")=rslibros("codprof") rslibrosoc("codalum")=0 end if rslibrosoc("fechaalq")=date() rslibrosoc("fechadev")=date()+30 rslibrosoc("ocupado")=true rslibrosoc.update rslibrosoc.close rslibros("libre")=false rslibros("codalum")=null rslibros("codprof")=null rslibros("fechas")=null rslibros("solicitar")=false rslibros.update rslibros.close conn.close strHtml = "
" & vbCrLf strHtml = strHtml & "" & vbCrLf strHtml = strHtml & "
" & vbCrLf strHtml = strHtml & "" & vbCrLf Response.Write strHTML else rslibros.open "select * from libros where codlibro="&request.querystring("id") ,conn ,adOpenKeyset ,adLockOptimistic 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 %>
&al=<%=request.querystring("al")%>" action="<%= Request.ServerVariables("SCRIPT_NAME") %>" name="ocupar">

Ocupar Libro

Índice:  <%=rstemas("numero")%>.<%if rslibros("codtipo")=0 then response.write("0") else response.write(rstipos("numero")) end if%>.<%=rslibros("numero")%> <%rstemas.close rstipos.close%>

Título: <%=rslibros("titulo")%>

<%if request.querystring("al")=1 then%>

Alumno: <%=rsalum("nombrealum")%> <%=rsalum("apellido1alum")%>

<%else%>

Profesor: <%=rsprof("nombreprof")%> <%=rsprof("apellido1prof")%>

<%end if%>



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