---
title: "Gruppera på a, b, c osv."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/118794-gruppera-på-a-b-c-osv"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pledge"
published: "2004-12-27T23:58:22.000Z"
updated: "2004-12-29T14:06:00.000Z"
replies: 4
views: 320
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/118794-gruppera-på-a-b-c-osv"
---

# Gruppera på a, b, c osv.

## #1 — pledge, 2004-12-27T23:58Z

Hejsan!

Jag har en länksida som jag bara har radat upp länkarna på men nu börjar dom bli så många så jag skulle vilja sortera som dom så att alla på "a" står i en rad och alla som börjar på "b" osv. Men jag fattar inte hur jag ska skriva när jag hämtar informationen från access. Nu har jag en vanlig SQL sats...

```
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String
annons = "SELECT * FROM links ORDER BY Lnamn"
set rs = Conn.Execute (annons)
do until rs.EOF%>

<a href="<%=rs("Ladress")%>" class="text14"><%=rs("Lnamn")%></a><span class="text14">&nbsp;&#8211;&nbsp;<%=rs("Ltext")%></span><br>

<%rs.MoveNext
loop %>
```

Någon som vet hur man gör och kan hjälpa mig med detta.

Tack 
// Peter

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

## #2 — @nders, 2004-12-28T07:58Z

Är det något sånt här du menar?

```
<%
dim strLast, strNew
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String
annons = "SELECT * FROM links ORDER BY Lnamn"
set rs = Conn.Execute (annons)
do until rs.EOF
strNew = ucase(left(rs("Lnamn"), 1))
if strNew <> strLast then
    response.write "<h2>" & strNew & "</h2>"
    strLast = strNew
end if
%>

<a href="<%=rs("Ladress")%>" class="text14"><%=rs("Lnamn")%></a><span class="text14"> – <%=rs("Ltext")%></span><br>

<%rs.MoveNext
loop %>
```

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

## #3 — pledge, 2004-12-28T13:45Z

Jag får det här felmeddelandet när jag använder koden.

```
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01C2)
Fel antal argument eller felaktig egenskapstilldelning.: 'left'
/saaf/undersidor/lankar.asp, line 39
```

Tack...

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

## #4 — @nders, 2004-12-28T14:10Z

Självklart. Jag glömde ju ettan!

```
strNew = ucase(left(rs("Lnamn"), 1))
```

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

## #5 — pledge, 2004-12-29T14:06Z

Perfekt! :D Precis som jag hade tänkt mig.

Tack så mycket...

// Peter

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/118794-gruppera-på-a-b-c-osv