---
title: "Arkiv A-Ö"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107098-arkiv-a-ö"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "annesophie"
published: "2004-07-11T23:16:17.000Z"
updated: "2004-07-14T12:56:04.000Z"
replies: 13
views: 653
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/107098-arkiv-a-ö"
---

# Arkiv A-Ö

## #1 — annesophie, 2004-07-11T23:16Z

Hej,

Har en (Access)databas med många hundra faktaposter.

Ska nu skapa ett A-Ö arkiv där faktaposterna radas upp ganska simpelt i bokstavsordning baserat på fältet "contentHeader".

Det i sig är ju enkelt, men jag vill att *begynnelsebokstaven* skrivs ut innan raddan av innehåll som börjar på just den bokstaven.

Ex:

**A** \<-- skriv ut
alkohol och graviditet
amning
Amniotiska band
andfåddhet

**B** \<-- skriv ut
BB-väskan
Bisolvonmetoden
blodgruppsbestämning
blodsocker
blodsockerfall
blodtrycket
blodtrycksfall
blodvärdet (Hb)
bristningar på mage och bröst

etc....

Hur kan jag göra detta?

/A

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

## #2 — skarbratt, 2004-07-11T23:47Z

Tips från coachen:

firstLetter = ""
SQL Sträng
Do until RS.EOF

contentHeader = RS("contentHeader")
IF firstLetter \<\> Left(contentHeader,1) THEN
firstLetter = contentHeader 
Response.Write(firstLetter&"\<BR\>")
END IF

RS.MoveNext
LOOP
RS.Close

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

## #3 — annesophie, 2004-07-12T06:05Z

Tack - ska testa!  :bire

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

## #4 — Erik Juhlin, 2004-07-12T06:27Z

Viktigt bara med den koden att det är rätt sorterat.

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

## #5 — annesophie, 2004-07-14T12:19Z

Nu har jag äntligen funnit lite tid att testa koden som jag fick hjälp med ovan...men...

```
<%
sql = "SELECT * FROM [content] order by contentHeader;"
set rs = conn.execute(sql)
'response.write sql

firstLetter = ""

Do until RS.EOF

contentHeader = RS("contentHeader")
IF firstLetter <> Left(contentHeader,1) THEN
firstLetter = contentHeader 
Response.Write(firstLetter&"<BR>")
END IF

RS.MoveNext
LOOP
RS.Close
%>
```

 

Ovan kod genererar bara alla faktaradstitlar (contentHeader) i bokstavsordning utan inledande bokstav... Det kan jag ju fixa själv med mindre kod.

Adoption
Blodgruppsbestämning
Blodsocker
Blodsockerfall
Blodtrycket
CTG (cardiotocografi)
Druvbörd
 

Jag vill ju att det ska se ut såhär:

**A**
Adoption

**B**
Blodgruppsbestämning
Blodsocker
Blodsockerfall
Blodtrycket

**C**
CTG (cardiotocografi)

**D**
Druvbörd
 

Hur fixar jag fram A, B, C, D etc etc? 
Vad gjorde jag fel med ovan kod?  :q

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

## #6 — @nders, 2004-07-14T12:21Z

```
<%
sql = "SELECT * FROM [content] order by contentHeader ASC;"
set rs = conn.execute(sql)
response.write sql

firstLetter = ""

Do until RS.EOF

contentHeader = RS("contentHeader")
IF firstLetter <> Left(contentHeader,1) THEN
    firstLetter = Left(contentHeader, 1) 
    Response.Write("<br>" & firstLetter & "<BR>")
END IF
Response.write contentHeader & "<br>"
RS.MoveNext
LOOP
RS.Close
%>
```

edit: slängde in koden i sammanhang också

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

## #7 — LarsG, 2004-07-14T12:26Z

```
<%
sql = "SELECT contentHeader FROM content order by contentHeader ASC"
set rs = conn.execute(sql)
response.write sql

firstLetter = ""

Do until RS.EOF
    contentHeader = RS("contentHeader")
    IF  firstLetter <> Left(contentHeader,1) THEN
         if  firstLetter <> "" then response.write "<br>"
         firstLetter = left(contentHeader,1) 
         Response.Write firstLetter & "<BR>"
    END IF
    response.write contentHeader & "<br>"
    RS.MoveNext
LOOP
RS.Close
%>
```

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

## #8 — annesophie, 2004-07-14T12:29Z

Du är den okrönte mästaren @nders...of course. \*bugar mig ödmjukast\*

Bara ett problem återstår...

Varför blir det så här?

A
Abort

Å
Åderbråck

A
Adoption

Ä
Äggdonation
Ägglossningssymtom
Ägglossningstester

A
Alkohol och graviditet
Amning - teorin
Amniotiskt band (Amniotic band syndrome)
Andfåddhet
Att köpa babykläder
Att köpa babysäng
Att köpa babyskydd (bilbarnstol)
Att köpa barnvagn

\---
Alla de andra bokstäverna funkar fint
\---

U
Ultraljud

u
ultraljud , ultraljudsbilder
ultraljud, vaginalt ultraljud, ultraljudsbilder

U
Urinprov

u
urinvägsinfektion, blåskatarr och njurbäckeninflammation

U
Utebliven Ägglossning (PCO)
Utebliven mens
Utomkvedshavandeskap (extrauterin graviditet)

 

A och Ä och Å om vartannat och en massa U? 
Är det nån distinct som måste till...plus något mer?

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

## #9 — @nders, 2004-07-14T12:33Z

U-problemet beror på att gement u inte är samma sak som ett versalt.

```
<%
sql = "SELECT * FROM [content] order by contentHeader ASC;"
set rs = conn.execute(sql)
response.write sql

firstLetter = ""

Do until RS.EOF

contentHeader = RS("contentHeader")
IF firstLetter <> Ucase(Left(contentHeader,1)) THEN
    firstLetter = Ucase(Left(contentHeader, 1) )
    Response.Write("<br>" & firstLetter & "<BR>")
END IF
Response.write contentHeader & "<br>"
RS.MoveNext
LOOP
RS.Close
%>
```

Problemet med svenska bokstäver är lite fånigt. Jag ska se om jag hittar någon tråd som hjälper dig på traven.

mvh

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

## #10 — @nders, 2004-07-14T12:36Z

Den här kanske: <http://www.webforum.nu/showthread.php?s=&postid=619922#post619922>

mvh

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

## #11 — annesophie, 2004-07-14T12:38Z

Tackar...nu försvann alla U in i en kolumn. :)

Men det förklarar ju fortfarande inte:

A
Abort

Å
Åderbråck

A
Adoption
 

Varför hamnar inte Adoption under Abort? 

 :q

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

## #12 — @nders, 2004-07-14T12:39Z

A = Å = Ä

Läs inlägget jag länkade till i mitt förra inlägg. ;)

mvh

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

## #13 — annesophie, 2004-07-14T12:48Z

Ah, jag hann skriva innan jag såg ditt inlägg ovan.
Testade precis och det funkar, naturligtvis, perfekt nu!

TACK!  :bire :f

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

## #14 — @nders, 2004-07-14T12:56Z

Jåri vellkam! :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107098-arkiv-a-ö