<%
if session("autorizado") = "" then response.redirect "default.asp"
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../../db/Edificios.mdb")
%>
Estadisticas Biblioteca
<%
cEmpresa=request.form("empresa")
cNombre=request.form("nombre")
sSQL="SELECT * FROM Estadistica WHERE nombre LIKE '%"&cNombre&"%' and empresa LIKE '"&cEmpresa&"%' ORDER BY fecha,hora"
set RS = Conn.Execute(sSQL)
%>
<%if rs.eof then%>
No hay datos que coincidan con su petición, intente de nuevo.
<%else%>
Fecha
Hora
Nombre
Empresa
IPAdress
<%do while not rs.eof%>
<% =RS("fecha") %>
<% =RS("hora") %>
<% =RS("nombre") %>
<% =RS("Empresa") %>
<% =RS("ip") %>
<% ipaddress = RS("ip") %>
<%
RS.MoveNext
Loop
end if
%>
<%
sSQL="SELECT count(nombre)as nombre_total FROM Estadistica WHERE nombre LIKE '%"&cNombre&"%' and empresa LIKE '"&cEmpresa&"%'"
set RS = Conn.Execute(sSQL)
Do While Not RS.Eof
%>