Jeg tror nok, at jeg raffinerede det på et tidspunkt:
picdatabase2.asp
<%
Const adOpenKeySet = 1
Const adLockReadOnly = 1
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
%>
<%
db = "Provider=Microsoft.jet.OLEDB.4.0;Data Source="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"..\db\blaabog.mdb;User Id =Admin;password=;"%>
<html>
<head>
<title>Billeder</title>
</head>
<body bgcolor=#ddddd0 >
<H1>Billeder</H1>
<%
SQLtemp = "SELECT * FROM Billeder"
mypage=request("whichpage")
If mypage="" then
mypage=1
end if
mypagesize=request("pagesize")
If mypagesize="" then
mypagesize=2
end if
mySQL=request("SQLquery")
IF mySQL="" THEN
mySQL=SQLtemp
END IF
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.open mySQL,db,adOpenKeyset,adLockReadOnly
rstemp.movefirst
rstemp.pagesize=mypagesize
maxpages=cint(rstemp.pagecount)
maxrecs=cint(rstemp.pagesize)
rstemp.absolutepage=mypage
howmanyrecs=0
howmanyfields=rstemp.fields.count -1
response.write "<b>Side " & mypage & " af " & maxpages & "</b><br>"
response.write "<table border='1'><tr>"
%>
<%
'SQL = "SELECT * FROM Billeder"
'Set RS = server.CreateObject("ADODB.recordset")
'rs.Open sql,session("PICS"),adOpenKeyset,adLockReadOnly
'If Not (rs.BOF Or rs.EOF) Then
' rs.PageSize = 2
' rs.AbsolutePage = intPage
' intRecCount = rs.PageSize
' intPageCount = rs.PageCount
' Response.Write "<p><font face=arial size=3><strong>Side " & intPage & " af " &_
'intPageCount & "</strong></font></p>"
response.write "<td><b>Billede</b></td><td><b>Notater</b></td></tr>"
' Now loop through the data
DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs
%>
<P>
<tr><td>
<a href="<%=rstemp("Url")+rstemp("Billede")%>">
<img border="0" src="<%=rstemp("Url")+rstemp("thumbnail")%>"
width="<%=rstemp("Width")%>" height="<%=rstemp("Height")%>"></a>
</td><td>
<%=rstemp("notat")%>
</td></tr>
<%
rstemp.movenext
howmanyrecs=howmanyrecs+1
LOOP
response.write "</table><p>"
' close, destroy
rstemp.close
set rstemp=nothing
' Now make the page _ of _ hyperlinks
Call PageNavBar
%>
</body>
</html>
<%
sub PageNavBar()
' Udvidet navigation system
pad=""
scriptname=request.servervariables("script_name")
response.write "<table rows='1' cols='1' width='97%'><tr>"
response.write "<td>"
response.write "<font size='2' color='black' face='Verdana, Arial,Helvetica,sans-serif'>"
if (mypage mod 10) = 0 then
counterstart = mypage - 9
else
counterstart = mypage - (mypage mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maxpages then counterend = maxpages
if counterstart <> 1 then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & 1
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Første</a> : "
Response.Write ref
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & (counterstart - 1)
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Forrige</a> "
Response.Write ref
end if
Response.Write "["
for counter=counterstart to counterend
If counter>=10 then
pad=""
end if
if cstr(counter) <> mypage then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & counter
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>" & pad & counter & "</a>"
else
ref="<b>" & pad & counter & "</b>"
end if
response.write ref
if counter <> counterend then response.write " "
next
Response.Write "]"
if counterend <> maxpages then
ref=" <a href='" & scriptname
ref=ref & "?whichpage=" & (counterend + 1)
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Næste</a>"
Response.Write ref
ref=" : <a href='" & scriptname
ref=ref & "?whichpage=" & maxpages
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Sidste</a>"
Response.Write ref
end if
response.write "<br></font>"
response.write "</td>"
response.write "</table>"
end sub
%>
