---
title: "Adresslista med paging."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82035-adresslista-med-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-07-15T14:55:28.000Z"
updated: "2003-07-19T16:12:27.000Z"
replies: 4
views: 224
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/82035-adresslista-med-paging"
---

# Adresslista med paging.

## #1 — MickeA.com, 2003-07-15T14:55Z

Hej

Jag håller på med en stor adresslista, som visar adresser och lite mer därtill.

Som det är nu page'as sidan med 40 poster / sida.

Men jag skulle vilja göra så att den delar av och skapar en ny sida för varje bakstav, så jag längst ner kan ha:

\[A\]  \[C\] osv osv...

Det här är min kod:

```
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("d_b/db.mdb"))

nextPage = TRIM( Request.Querystring( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1

Set oRec = Server.CreateObject("ADODB.Recordset")

SQL = "Select ID, Adress, Gatunummer FROM nycklar ORDER BY Adress ASC;"
oRec.Open SQL, oConn, 1, 3

%>
<table class='show_all' border='0' bordercolor='#000000' cellpadding='0' cellspacing='0'>
<%

oRec.PageSize = 40 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan
oRec.AbsolutePage = nextPage

Do until oRec.EOF OR rowCount = oRec.PageSize
rowCount = rowCount + 1
  
cnt = cnt + 1
strColor = "#FCFDC7" 
If cnt Mod 2 = 0 then strColor = "#FEFEDE"
%>
<tr bgcolor="<%= strColor%>">
	<td width='300'><a href="Javascript:openwinsize('visa_adr.asp?id=<%=oRec("ID")%>',width=375,height=130);"><%=Response.Write(oRec("Adress") & "</td><td>" & oRec("Gatunummer"))%></a></td>
</tr>
<tr>
	<td colspan='2' height='5'></td>
</tr>
<%
oRec.MoveNext
Loop%>

<tr><td height='30' colspan='2'></td></tr><tr><td colspan='2'>
<%
IF oRec.PageCount > 1 THEN 

FOR a = 1 to oRec.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write "<a href='alla_adr.asp?nextPage="& a &"'>["& a &"]</a>&nbsp;"
ELSE 
Response.Write "<b><u>"& a & "</u></b>&nbsp;"
END IF 

If a Mod 15 = 0 Then
  Response.Write("<br>")
End If
NEXT
END IF
```

Inte all kod, men det som är viktigt, loopen mm.
Kan ngn som är cool ta en titt och hjälpa mig med det här.

Utgå gärna från samma kod, det bör ju gå på ngt sätt, men jag har ingen aning om hur jag ska göra.

Tack !!!

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

## #2 — Forsaken, 2003-07-15T16:56Z

Om du kan ha alla adresser som börjar på A under sidan \[A\] och alla som börjar på B under sidan **.. osv

..så skulle du kunna göra så att du Loopar ut eller om du orkar skriva, länkarna och lägga till en querystring t ex i dem med rätt bokstav.

Sen ändrar du SQL till:

SQL = "Select ID, Adress, Gatunummer FROM nycklar WHERE Adress LIKE '"& Request.QueryString("bokstav")"%' ORDER BY Adress ASC;"

Säg att Request.QueryString innehåller ett A eller a, då kommer den att visa alla adresser som börjar på ett A, sen får du fixa länkarna på något smart sätt så att de länkar tillbaka till samma sida fast ändrar QueryStringen :)**

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

## #3 — MickeA.com, 2003-07-15T21:08Z

Tar det verkligen bara ut de adresser som BÖRJAR på a eller A, jag hade för mig att den tog ut ALLT SOM INNEHÖLL ett a eller A.

Hur funakr det sen med a resp. A, märker den ngn skillnad på stora / små bokstäver?!

Vore smidigt om man kunde få till ngn sorts paging, men jag ska kolla lite till.

Kom med fler idéer o dyl. ;)

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

## #4 — Forsaken, 2003-07-18T17:39Z

den märker ingen skillnad på stora och små bokstäver men om du skriver i SQL ...WHERE Adress LIKE 'A%' så tar den bara ut fält som börjar på A eller a.

Skriver du däremot: WHERE Adress LIKE '%A%' så tar den ut alla fält där cellen Adress innehåller ett "a" eller "A".

Jag tror att det skulle fungera bra att länka på det här sättet om nu inte någon bokstav skulle bli enormt stor, men även det skulle gå att begränsa. 

Säg att du skriver ut sidan med en:
Antal = 0
Do Until RS.EOF Or Antal = 50
Antal = Antal +1
Alla adresser som ska skrivas ut..

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

## #5 — MickeA.com, 2003-07-19T16:12Z

Ok, tack för svaret, men har gjort så att den plockar ut 'A%' och sen listar med en nby sida / bokstav, så styr jag bara sidväxlingen med en Querystring.

Det funkar bra hittills.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82035-adresslista-med-paging