---
title: "Sortera på ett snyggt sätt?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/145688-sortera-på-ett-snyggt-sätt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "webbSAJTEN"
published: "2006-04-18T11:08:00.000Z"
updated: "2006-04-19T16:16:54.000Z"
replies: 7
views: 565
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/145688-sortera-på-ett-snyggt-sätt"
---

# Sortera på ett snyggt sätt?

## #1 — webbSAJTEN, 2006-04-18T11:08Z

Tjenare!
Hur i helsike gör man så såhär:

**A**
Hämtar alla tävlinar på A i databasen

**B**
Hämtar alla tävlinar på B i databasen

**C**
Hämtar alla tävlinar på C i databasen

o.s.v.

Tacksam för härliga svar :D

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

## #2 — Erik Juhlin, 2006-04-18T11:25Z

Typ så här:

```
SELECT * FROM tblContest WHERE ContestName LIKE 'A%'
```

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

## #3 — webbSAJTEN, 2006-04-18T11:26Z

men då måste ja ju skapa 28 olika secordset..
De känns rätt onödigt..

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

## #4 — lilja, 2006-04-18T11:36Z

```
SELECT * FROM tblContest
WHERE ContestName LIKE 'A%'
OR ContestName LIKE 'B%'
OR ContestName LIKE 'C%'
ORDER BY ContestName ASC
```

Så hämtar du data från en databas. Men vad du vill göra förstår jag egentligen inte? Du kör ju en While-loop för att skriva ut all data i ETT reckordset. Du behöver inte skapa 28 olika...

Har du inte lite ASP kod att visa istället så blir det enklare att svara...

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

## #5 — webbSAJTEN, 2006-04-18T12:03Z

Jag har en massa tävlingar lagrade i en databas.
Dom vill jag skriva ut med en rubrik som är den första bokstaven i namnen..
Som jag skrev...

Hittade en kod här på WF..

```
Do Until RS.EOF
  If LCase(Left(RS("strName"), 1)) <> strPreviousStartLetter Then
    Response.Write("<h1>" & UCase(Left(RS("strName"), 1)) & "</h1>")
  End If
response.Write(RS("strName"))
  '// skriv ut text och beskrivning

  strPreviousLetter = LCase(Left(RS("strname"), 1)) '\\ Forberedelse infor nasta db-post
  RS.MoveNext
Loop
```

Den fungerar inte riktigt, den skriver inte ut två tävlingar under samma rubrik utan skriver ut en rubrik före varje namn..

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

## #6 — Jesper T, 2006-04-18T12:29Z

Du får lägga in den i en variabel.

```
strPreviousLetter = ""
Do Until RS.EOF
   If UCase(Left(RS("strName"), 1)) <> strPreviousLetter Then
     Response.Write("<b>" & strPreviousLetter & "</b>")
     strPreviousLetter = UCase(Left(RS("strname"), 1))
   End If
   response.Write RS("strName") &"<br>"

  RS.MoveNext
Loop
```

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

## #7 — Eclipse, 2006-04-18T14:06Z

Kolla på char() i dokumentationen

FOR j = 65 TO (65+28)
\-- response.write CHAR(j) & " , "
NEXT

Are you with!?

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

## #8 — webbSAJTEN, 2006-04-19T16:16Z

Den fungerade nästan.. :)

> **Jesper T skrev:**
>
> Du får lägga in den i en variabel.
>
> ```
> strPreviousLetter = ""
> Do Until RS.EOF
>    If UCase(Left(RS("strName"), 1)) <> strPreviousLetter Then
>      Response.Write("<b>" & strPreviousLetter & "</b>")
>      strPreviousLetter = UCase(Left(RS("strname"), 1))
>    End If
>    response.Write RS("strName") &"<br>"
> 
>   RS.MoveNext
> Loop
> ```

```
strPreviousLetter = ""
Do Until RS.EOF
   If UCase(Left(RS("strName"), 1)) <> strPreviousLetter Then
     strPreviousLetter = UCase(Left(RS("strname"), 1))     
     Response.Write("<b>" & strPreviousLetter & "</b>")
   End If
   response.Write RS("strName") &"<br>"

  RS.MoveNext
Loop
```

Nu fungerar det fint :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/145688-sortera-på-ett-snyggt-sätt