|
|
|
| Photo |
Description |
<%
dim pagesize
pagesize=4
Page = Request("Page")
next1=request("next1")
previous1=request("previous1")
if next1="" then
next1=10
previous1=0
end if
'If there is no page set it to page 1
if Page = "" then
Page = 1
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from h_pg"
rs.open sql,conn,1,3
if rs.eof then
else
rs.PageSize = pagesize
RowCount = 0
rs.AbsolutePage = cint(Page)
if page=0 or page=1 then
j=1
else
j=((page-1)*10)+1
end if
while ((Not rs.eof) and (RowCount < PageSize))
%>
 " WIDTH=105 HEIGHT=105 ALT="" border="0"> |
<%
response.Write rs("desc")
%>
|
<%
j=j+1
RowCount = RowCount + 1
rs.movenext
wend
end if%>
| |
|
|
<%response.write Paging(cint(request("page")),rs.PageCount,rs.recordCount)%>
|
|
|
|
