<%
'on error resume next
ncol=3
nim=9
select case request("dir")
case ""
session("curpage")=1
case "Next"
session("curpage")=session("curpage")+1
case "Prev"
session("curpage")=session("curpage")-1
case "Direct"
session("curpage")=request("page")
end select
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("admin/mdb-database/foto.mdb")
Set rsFoto = Server.CreateObject("ADODB.Recordset")
Set rsCate = Server.CreateObject("ADODB.RecordSet")
if request("IDCategoria")="" Then
sql ="SELECT * FROM foto;"
idc=0
else
sql="SELECT * FROM foto WHERE RifCategoria="&cint(Request("IDCategoria"))
idc=cint(request("IDCategoria"))
end if
rsCate.Open "SELECT * FROM Categorie Order by Categoria Asc;",Conn
rsFoto.pagesize=nim
rsFoto.Open sql,conn,3,3
if not rsFoto.eof then rsFoto.absolutepage=clng(session("curpage"))
if not rsFoto.eof then totale=rsFoto.pagecount
%>
Controspionaggio aziendale e assenteismo dipendenti, Acta Investigazioni
