Från ett inlägg som jag hittade av LarsG:
<%
pageSize = 10
page = request.querystring("page")
if page = "" then page = 1
Set MinConn = Server.CreateObject("Adodb.Connection")
MinConn.open = "driver=MySQL;server=localhost;uid=uid;pwd=pwd;database=db"
sql = "select count(*) from inlagg"
'behövs för att beräkna antal sidor
set rs = MinConn.execute(SQL)
pages = (rs(0)-1)/pageSize + 1
SQL = "Select * from inlagg order by datum desc limit " & (page-1)*pagesize & "," & pageSize
Set Rs = MinConn.Execute(SQL)
Do until Rs.Eof
%>
Namn:<%=RS("namn")%>
Inlägg:<%=RS("inlagg")%>
<%
RS.movenext
loop
RS.close : Set Rs = Nothing
MinConn.close : Set MinConn = Nothing
'skriv ut länkar
if page > 1 then
response.write "<a href='paging.asp?page=" & page - 1 & "'>Bakåt </a>"
end if
if page < pages then
response.write "<a href=paging.asp?page=" & page + 1 & ">Framåt </a>"
end if
%>
Kanonbra, förutom att jag vill att pages skall innehålla så många sidor som det skall vara.
Genom att kolla vad pages är så blir det alltid ett decimaltal. På en sida med två inlägg blir det 1,1.
Tack på förhand!