Paging problem
Hejsa. Jeg har fundet et paging script som næsten virker. Mit problem opstår ved visning af de næste poster på "næste side". Jeg ved at jeg skal oprette en side med navn fx. paging.asp, men hvorledes hentes de næste poster ind ? Det er sikkert simpelt men jeg mangler nok en grundlæggende forståelse.Her er min kode:
<%@LANGUAGE=VBScript%>
<%
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("db/koopdatabase.mdb") & ";" & _
"Persist Security Info=True"
Conn.Open(sConnection)
recordsonpage = 5
allrecords = 0
set rs = conn.Execute("SELECT * FROM indextal WHERE sidenavn='arbejdsmiljø' ORDER by dato DESC")
do until rs.EOF
allrecords = allrecords + 1
rs.movenext
loop
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
requestrecords = 0
else
requestrecords = requestrecords + offset
end if
set rs = conn.Execute("SELECT * FROM indextal WHERE sidenavn='arbejdsmiljø' ORDER by dato DESC")
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
hiddenrecords = hiddenrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
%>
<html>
<head>
<title>paging test</title>
<%
showrecords = recordsonpage
recordcounter = requestrecords
do until showrecords = 0 OR rs.EOF
recordcounter = recordcounter + 1
%>
<a href="<% = rs("type") %>/<% = rs("filnavn") %>">
<% = rs("overskrift") %></a>
<% = rs("dato") %>
<%
showrecords = showrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
%>
<% if requestrecords <> 0 then %> <a href="paging.asp?offset=<% = requestrecords - recordsonpage %>"></a>Prev Page <% else %>
Forrige side <% end if %>
<% if lastrecord <> 1 then %>
<a href="paging.asp?offset=<% = requestrecords + recordsonpage %>"></a>Next Page <% else %> Næste side <% end if %> ">Side:<%
pagelist = 0
pagelistcounter = 0
do until pagelist > allrecords
pagelistcounter = pagelistcounter + 1
%> <a href="paging.asp?offset=<% = pagelist %>">
<% = pagelistcounter %></a>
<% pagelist = pagelist + recordsonpage
loop
%>
<%
rs.close
Conn.close
%>
På forhånd tak.
Lars
