Paging+Limit

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!