<code>
<%
'## -- skapa connection object och öppna databasen --
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("Dbq/Pagin.mdb") & ";"

'## -- hur många poster ska visas per sida --
intPageSize = 10 '## -- byt ut till hur många poster du vill ska visas per sida --

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")

'*## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then intPage = 1 '## -- visa första sidan som default --

'## -- sql-fråga för att hämta data från databasen --
strSQL = "SELECT * FROM Telefon ORDER BY Datum desc, Tid desc"

'## -- skapa och öppna recordsetet --
Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.Source = strSQL

'## -- bestämmer hur många poster som varje sida ska bestå av i recordsetet --
.PageSize = intPageSize
.CursorType = 3
.LockType = 1
.Open
End With

'## -- kontrollera om några poster har returnerats eller inte --
If Not objRS.EOF Then
'## -- poster har returnerats --

'## -- visa rätt sida i recordsetet --
objRS.AbsolutePage = intPage

'## -- hur många sidor består recordsetet av --
intTotalPages = objRS.PageCount

'## -- visa sidnavigeringen --
Call PageNavigation(intPage, intTotalPages)

'## -- loopa igenom recordsetet och visa posterna för besökaren/användaren --
Do Until objRS.EOF OR intCounter >= intPageSize
intCounter = intCounter + 1
Response.write ObjRs("Namn") & "<br>"

'## -- printa ut informationen till besökare/användaren --

objRS.MoveNext
Loop
Else
'## -- inga poster returnerades --
'## -- visa meddelande att inga poster hittades för användaren --
End If

'## -- rensa up --
objRS.Close
Set objRS = Nothing

objConn.Close
Set objconn = Nothing

'## -- visa sidnavigeringen --
' Call PageNavigation(intPage, intTotalPages)

'## -- include filen nedan innehåller själva subrutinen för sidnavigeringen --
%>
<!--#INCLUDE FILE="inc_pagingFunction.asp"-->

</code>
Koden ovanför ligger i en fil som heter guestbook.asp?userid=idnummer
som ska hämtas för att få rätt id nummer så rätt gästboks inlägg skrivs ut för rätt användare.

<code>
<%
Sub PageNavigation(ByVal Page, TotalPages)
Dim strScriptName

'## -- denna sidas namn --
strScriptName = Request.ServerVariables("SCRIPT_NAME")

'## -- länk till föregående sida --
'## -- kontrollera att det inte är första sidan som visas --
If CInt(Page) > 1 Then
'## -- inte första sidan som visas så gör en länk --
Response.Write "<< Föregående "
Else
'## -- det är första sidan som ska visas. gör ingen länk --
'Response.Write "<< Föregående "
End If

'## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
'## -- så att besökaren snabbt kan ta sig till rätt sida --
For N = 1 To CInt(TotalPages)
If N <> CInt(Page) Then
'## -- ej aktuell sida, länka --
' Response.Write "" & n & " "
Else
'## -- aktuell sida, länka ej --
End If
Next

'## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
If CInt(Page) < CInt(TotalPages) Then
'## -- vi är inte på sista sidan --
Response.Write "Nästa >>"
Else
'## -- vi är på sista sidan. länka ej --
End If

End Sub
%>
</code>
Den här koden skriver ut information till sidan med nästa >> och << föregående i försatt att det är mer än 10 poster i databasen.
men jag vill ha bort
det som skriver ut följande information.

Nästa >> post 11 och Post 100 <<Föregående
det vill jag ska bara vissas som Nästa >> och << Föregående
Men jag hittar inte den koden någon som vet hur jag ska göra för att hitta problemet?


Om jag lyckas fö bort Nästa >> post 11 och post 10 << Föregående
så funkar pagin som jag vill till 100%

Det finns inget i koden som skriver ut nå't sådant...

Men det konstiga är att det vissas så ju på sidan.
det är det jag inte får att stämma.
Kan ju lägga ut det så du kan köra den på en server så du ser resultatet om du vill?

Har kommit på vad det va nu men det tog också tid.
jag satte
Response.write "<br>" RecordSet("Värde")
Så blev det en radbryttning och då blev det inte
Post 10 <<Föregående
och Post Nästa >>11
det blev inte så då utan blev mer
1
2
3
osv.