---
title: "Paging start från Mitten"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/84788-paging-start-från-mitten"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SteveP"
published: "2003-08-29T11:28:20.000Z"
updated: "2003-08-29T12:19:05.000Z"
replies: 1
views: 191
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/84788-paging-start-från-mitten"
---

# Paging start från Mitten

## #1 — SteveP, 2003-08-29T11:28Z

Jag har en Stored procedure som hämtar ca 500 poster från ett table med olika personer i. Sedan har jag ett vanligt paging script för att blädra genom dessa records på en sida.

Pagingen går i alfabetisk ordning.
Alltså första recordet är tex

Surname: "Andrew"

Nästa post är:
Surname: "Bateman" osv

Men nu vill jag att default posten som ska visas när man kommer in är den Personen som är inloggad på nätverket.

Alltså tex jag, min Request.servervariables("user") är "STP" så när jag kommer in på sidan så står mitt Surname ifyllt. Detta fungerar men det blir ju ingen Paging eftersom bara en post blir vald.

Om mitt namn är post nr 250 i databasen så ska alltså sidan starta på Default.asp?Page=250 så att man sedan kan bläddra tillbaka i bokstavsordning samt frammåt.

Hoppas ni förstår vad jag menar?

Permalänk: https://www.webforum.nu/p/84788

## #2 — SteveP, 2003-08-29T12:19Z

Såhär fick jag göra

```
Function GetContactID
Dim ObjRs
Dim ObjConn
Dim VarUserVariable
Dim StrSQL

VarUserVariable = Mid(Request.ServerVariables("Remote_User"),5)

Set ObjRs = Server.CreateObject("ADODB.RecordSet")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open Connect_String()

strSQL = "Select Count(*) as StartingPoint from tblLCPContactDetails " &_
"where LCPCode <= '" & VarUserVariable & "'"

ObjRs.Open strSQL, ObjConn, AdOpenForwardOnly

If Not ObjRs.EOF then

StartingPoint = ObjRs("StartingPoint")

end if

ObjRs.Close
ObjConn.CLose
Set ObjRs = Nothing
Set ObjConn = Nothing

End Function
```

Sen i Paging scriptet ändrade jag IntPage till följande

```
If IntPage = "" then IntPage = Startingpoint
```

Permalänk: https://www.webforum.nu/p/1141810

---

Tråden på webben: https://www.webforum.nu/amne/asp/84788-paging-start-från-mitten