<%
ncol=2
nim=14
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("fotoalbum/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="&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
%>
<%
count=0
np=0
do while not rsFoto.Eof and not ( np=rsFoto.PageSize)
np=np+1
count=count+1
%>
|
|
<%
if count=ncol Then
Response.Write("
")
count=0
End if
rsFoto.MoveNext
Loop
if count < ncol then
for i=count to ncol
Response.Write(" | ")
next
response.Write("
")
End if
%>
<%
rsFoto.Close
Conn.Close
%>
