<%if session("usr")<>0 then if request.form<>"" then response.redirect("libros.asp?c="&request.form("libro")) else%> <% if request.querystring("p")="" then session("pagina")=1 else session("pagina")=request.querystring("p") end if if request.querystring("c")<>"" then rslibros.open "select * from libros where titulo like '%"&request.querystring("c")&"%' order by codtema, codtipo, numero" ,conn ,adOpenKeyset ,adLockOptimistic else rslibros.open "select * from libros order by codtema, codtipo, numero" ,conn ,adOpenKeyset ,adLockOptimistic end if if rslibros.recordcount<>0 then rslibros.pagesize=20 rslibros.absolutepage=session("pagina") end if %>
Biblioteca

Libros

<%if request.querystring("c")<>"" then%> <%=rslibros.recordcount%> libros encontrados con el texto "<%=request.querystring("c")%>" en el título
<%else%> <%=rslibros.recordcount%> libros
<%end if%> Página <%=session("pagina")%> de <%=rslibros.pagecount%>
<%if request.querystring("c")<>"" then%> <%if session("pagina")>1 then%> &c=<%=request.querystring("c")%>>Anterior <%end if if rslibros.pagecount>10 then numpmax=4 else numpmax=rslibros.pagecount end if nump=1 do until nump>numpmax if nump=int(session("pagina")) then%> <%=nump%>  <%else%> &c=<%=request.querystring("c")%>><%=nump%>  <%end if nump=nump+1 loop%> <%if rslibros.pagecount>10 then%>  ...  <%nump=rslibros.pagecount-numpmax+1 do until nump>rslibros.pagecount if nump=int(session("pagina")) then%> <%=nump%>  <%else%> &c=<%=request.querystring("c")%>><%=nump%>  <%end if nump=nump+1 loop end if if int(session("pagina")) &c=<%=request.querystring("c")%>>Siguiente <%end if else if session("pagina")>1 then%> >Anterior <%end if if rslibros.pagecount>10 then numpmax=4 else numpmax=rslibros.pagecount end if nump=1 do until nump>numpmax if nump=int(session("pagina")) then%> <%=nump%>  <%else%> ><%=nump%>  <%end if nump=nump+1 loop%> <%if rslibros.pagecount>10 then%>  ...  <%nump=rslibros.pagecount-numpmax+1 do until nump>rslibros.pagecount if nump=int(session("pagina")) then%> <%=nump%>  <%else%> ><%=nump%>  <%end if nump=nump+1 loop end if if int(session("pagina")) >Siguiente <%end if end if num=(session("pagina")-1)*rslibros.pagesize+1%> 		Agregar Libro

Buscar Libro

" name="cbuscar">
<%numt=1 do until numt>rslibros.pagesize or rslibros.eof rstemas.open "select * from temas where codtema="&rslibros("codtema") ,conn ,adOpenKeyset ,adLockOptimistic rstipos.open "select * from tipos where codtipo="&rslibros("codtipo") ,conn ,adOpenKeyset ,adLockOptimistic %>

<%=num%>.  ','a','scrollbars=no,height=550,width=500,status=no,toolbar=no,menubar=no,location=no');">Modificar Libro ','a','scrollbars=no,height=150,width=300,status=no,toolbar=no,menubar=no,location=no');">Borrar Libro <%=rstemas("numero")%>.<%if rslibros("codtipo")=0 then response.write("0") else response.write(rstipos("numero")) end if%>.<%=rslibros("numero")%> ><%=rslibros("titulo")%>  ><%=rstemas("nombretema")%> 

<%rstemas.close rstipos.close rslibros.movenext num=num+1 numt=numt+1 loop rslibros.close%>


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