Jag hittade en paginkod och jag får den nästan att fungera. Den räknar alla inlägg och visar hur många sidor det blir, problemet är när jag klickar på t ex sid 2 så visas det bara en tom sida (det är bara första sidan som fungerar)
<%
'Här tar vi emot parametrar om vilken sida vi skall till. Om det inte finns någon destination skapar vi en genom att ange att sida ett skall visas
intPageId = request.querystring( "pageid" )
If intPageId = "" Then intPageId = 1
With rs
.cursorlocation = 3 'adUseClient
.open SQL, objConn 'öppnar databasen och hämtar info.
.pagesize = 2 'bestämmer hur många poster per sida.
.absolutepage = intPageId 'bestämmer vilken sida som skall visas.
End With
intPages = cint( rs.pagecount ) 'Kollar hur många sidor som finns i recordsettet.
intCurrentPost = 0 'Nollställer räknaren som skall hålla kolla på vilken post vi är på.
Do While Not rs.EOF And intCurrentPost \< rs.PageSize
strContents = strContents &\_
"\<tr\>\<td width='15' align='center'\>\<img src='img/prick2.gif' width='7' height='7' align='absmiddle'\>\</td\>" &\_
"\<td width='320' class='brodtext'\>\<a href='forumsv.asp?prat=svar&id="&rs("fldDiId")&"' class='menylankar'\>" & rs("fldDiRubrik") & "\</a\>\</td\>" &\_
"\<td width='225' class='brodtext'\>" & rs("fldDiDatum") & " startad av " & rs("fldKonto") & "\</td\>\</tr\>"
intCurrentPost = intCurrentPost + 1
rs.MoveNext
Loop
For i = 1 To rs.PageCount
strNavigation = strNavigation & " <a href='forumsv.asp?pageid=" & i & "' class='menylankar'>" & i & "</a>"
Next
Response.Write "\<table width='560' border='0' cellpadding='3' cellspacing='0'\>" & strContents & "\</table\>"
Response.Write "\<table\>\<tr\>\<td\>" & strNavigation & "\</td\>\</tr\>\</table\>"
%>