<%if session("usr")<>0 then if request.form<>"" then if (request.form("variable")=1) then liboc=request.querystring("id") if isnumeric(liboc)then liboc=clng(liboc) else liboc=0 end if rslibros.Open "select * from libros where codlibro="&liboc,conn ,adOpenKeyset ,adLockOptimistic rslibros("libre")=false rslibros.update rslibros.close rslibrosoc.Open "select * from librosocupados",conn ,adOpenKeyset ,adLockOptimistic rslibrosoc.addnew rslibrosoc("codlibro")=liboc if request.form("alumno")<>0 then rslibrosoc("codalum")=request.form("alumno") rslibrosoc("codprof")=0 else rslibrosoc("codprof")=request.form("profesor") rslibrosoc("codalum")=0 end if rslibrosoc("fechaalq")=date() rslibrosoc("fechadev")=date()+30 rslibrosoc("ocupado")=true rslibrosoc.update rslibrosoc.close conn.close strHtml = "" & vbCrLf Response.Write strHTML else%>
" action="<%= Request.ServerVariables("SCRIPT_NAME") %>" value=1 name="libroocupar">

ALQUILAR

Promociones: 

Alumno:  <%end if%>





Profesor: 





<%end if else%>
" action="<%= Request.ServerVariables("SCRIPT_NAME") %>" value=1 name="libroocupar">

ALQUILAR

Promociones:    Alumnos:

Alumno:  <%end if%>





Profesor: 





<%end if else response.redirect "index.asp" end if%>