<%if session("usr")<>0 then if request.form<>"" then response.redirect("usuarios.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 rsusr.open "select * from usuarios where nombreusr like '%"&request.querystring("c")&"%' order by apellido1usr, nombreusr" ,conn ,adOpenKeyset ,adLockOptimistic else rsusr.open "select * from usuarios order by apellido1usr, nombreusr" ,conn ,adOpenKeyset ,adLockOptimistic end if if rsusr.recordcount<>0 then rsusr.pagesize=20 rsusr.absolutepage=session("pagina") end if %>

Usuarios

<%if request.querystring("c")<>"" then%> <%=rsusr.recordcount%> usuarios encontrados con el texto "<%=request.querystring("c")%>" en el apellido
<%else%> <%=rsusr.recordcount%> usuarios
<%end if%> Página <%=session("pagina")%> de <%=rsusr.pagecount%>
<%if request.querystring("c")<>"" then%> <%if session("pagina")>1 then%> &c=<%=request.querystring("c")%>>Anterior <%end if if rsusr.pagecount>10 then numpmax=4 else numpmax=rsusr.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 rsusr.pagecount>10 then%> ... <%nump=rsusr.pagecount-numpmax+1 do until nump>rsusr.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 rsusr.pagecount>10 then numpmax=4 else numpmax=rsusr.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 rsusr.pagecount>10 then%> ... <%nump=rsusr.pagecount-numpmax+1 do until nump>rsusr.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)*rsusr.pagesize+1%>

Agregar Usuario

Buscar Usuario

<%numt=1 do until numt>rsusr.pagesize or rsusr.eof%>

<%=num%>. > ','a','scrollbars=no,height=150,width=300,status=no,toolbar=no,menubar=no,location=no');"> Borrar usuario ><%=rsusr("nombreusr")%> <%=rsusr("apellido1usr")%>

<%rsusr.movenext num=num+1 numt=numt+1 loop rsusr.close%>

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