hej, här har jag en kod för paging, den fungerar utmärkt förutom en sak, jag vill att den ska typ visa såhär:

<<Föregående sida ...(14) (15) (16)... Nästa sida>>

som den är nu så visar den alla sidor som en länk ,och det tar upp för mycket plats tycker jag, nån som kan hjälpa mig?

<code><%
Dim strCon, oCon, pages, Rec, DisplayNum, i, page, SQL, ipage, z
strCon = "DSN=**;UID=**;PWD=**;"
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adUseClient = 3
Const adCmdText = 1

page = request.querystring("page")
If page = "" Then
page = 1
else
page = cint(page)
End If

DisplayNum = 0

Set oCon = Server.CreateObject ("ADODB.Connection")
Set Rec = Server.CreateObject ("ADODB.Recordset")

oCon.Open strCon
Rec.PageSize = 10
Rec.CursorLocation = adUseClient
SQL = "SELECT * FROM Site"
Rec.Open SQL, oCon

if Rec.EOF OR Rec.BOF Then
response.write "<br><br>"

response.write "<p align=center><b>Inga resultat ... </b></p>"
else

ipage = Rec.PageCount

if page = 0 or page > ipage Then
Rec.AbsolutePage = ipage
else
Rec.AbsolutePage = page
end if

Do While Not Rec.EOF AND DisplayNum < 10
dim nummer

response.write Rec("id")
DisplayNum = DisplayNum + 1
Rec.MoveNext
Loop
end if

If ipage > 1 Then
response.write "<p align=center><br><b>"
pages = "Sidor : &nbsp;"



if ipage > 1 And page > 1 Then
response.write "<< Föregående Sida"
end if

response.write "&nbsp;&nbsp;&nbsp;&nbsp;"
If ipage > 1 And page < ipage Then
response.write "Nästa Sida >>"
response.write"</b><br><br>"
end if



For z = 1 to ipage
If z = page then
pages = pages & page & " "
Else
pages = pages & " " & z & "" & " "
End If
Next
response.write pages & "&nbsp;&nbsp;<br>"
End If
response.write "<br>"



response.write "</p>"
Rec.Close
oCon.Close
set Rec = nothing
set oCon = nothing%></code>

Jaa, principen är ju att om du tar bort, eller undviker att skriva ut nåt i den loopen som skriver ut de pageade sidorna så syns ju inget. Nu har jag bara skummat koden men det såg ut som att detta sker i loopen med z-värdet

<code>
For z = 1 to ipage
If z = page then
pages = pages & page & " "
Else
pages = pages & " " & z & "" & " "
End If
Next
'response.write pages & "&nbsp;&nbsp;<br>" Prova kommentera bort den här raden!
End If
response.write "<br>"
</code>

Vänliga hälsningar /xaphod

jo, men jag vill ju att den ska visa dom 4 närmaste sidorna typ såhär:

om man klickar tex på sida 33 så ska de su ut såhär

Sida : 31 32 (33) 34 35 , resten av sidorna döljer den, förstår ni? =)