---
title: "Sortera omgång!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77867-sortera-omgång"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "asp"
published: "2003-05-23T17:51:13.000Z"
updated: "2003-05-24T12:34:31.000Z"
replies: 11
views: 253
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/77867-sortera-omgång"
---

# Sortera omgång!

## #1 — asp, 2003-05-23T17:51Z

Hur gör man så att det blir \<br\> efter att en ny omgång kommer?

I databasen har jag fält som heter omg och den har värde som t.ex. 1,1,3,4,5,5,5 osv. Nu vill jag att det blir såhär:

1
1

3

4

5
5
5

Liksom att det blir en \<br\> efter varje ny omgång, precis som på ett riktigt spelschema.

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

## #2 — Sebbe, 2003-05-23T17:58Z

Kanske något sånt här?

```
arrOmg = Split(objRS("omg"), ",")
For i = 0 To UBound(arrOmg)
  If NOT i = UBound(arrOmg) Then
    If arrOmg(i) <> arrOmg(i + 1) Then
      Response.Write(arrOmg(i) & "<p>")
    Else
      Response.Write(arrOmg(i) & "<br>")
    End If
  Else
    Response.Write(arrOmg(i))
  End If
Next
```

Med reservation för fel. :)

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

## #3 — asp, 2003-05-23T18:04Z

Var skall jag placera in den om det är såhär jag skriver ut omgångarna:

```
Response.Write("" & rs("omg") & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal") & "<br>")
```

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

## #4 — Sebbe, 2003-05-23T18:10Z

```
arrOmg = Split(rs("omg"), ",")
For i = 0 To UBound(arrOmg)
  If NOT i = UBound(arrOmg) Then
    If arrOmg(i) <> arrOmg(i + 1) Then
      Response.Write("" & arrOmg(i) & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal") & "<p>")
    Else
      Response.Write("" & arrOmg(i) & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal") & "<br>")
    End If
  Else
    Response.Write("" & arrOmg(i) & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal") & "<br>")
  End If
Next
```

**/red** Kom på att den där måste ligga i en loop där du loopar igenom recordsetet.

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

## #5 — asp, 2003-05-23T18:22Z

Fel på denna kod?

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("databas.mdb")
strSQL = "SELECT * FROM tblSpel WHERE ligaid = '" & Request.QueryString("liga") & "' ORDER BY omg ASC"
Set Rs = Conn.Execute(strSQL)
Response.Write("" & rs("liganamn") & "<br>")
Do Until Rs.EOF

arrOmg = Split(rs("omg"), ",")
For i = 0 To UBound(arrOmg)
  If NOT i = UBound(arrOmg) Then
    If arrOmg(i) <> arrOmg(i + 1) Then
      Response.Write("" & arrOmg(i) & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal") & "<p>")
    Else
      Response.Write("" & arrOmg(i) & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal") & "<br>")
    End If
  Else
    Response.Write("" & arrOmg(i) & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal") & "<br>")
  End If
Next

Rs.Movenext
Loop
Rs.Close : Set Rs = Nothing
Conn.Close : Set Conn = Nothing
%>
```

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

## #6 — asp, 2003-05-23T19:03Z

Någon?

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

## #7 — mikul, 2003-05-23T20:11Z

Testa så får du se ;)

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

## #8 — asp, 2003-05-24T07:00Z

jag har testat men det fungerar ju inte..........

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

## #9 — solbulle, 2003-05-24T08:32Z

Vad händer? Felmess?

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

## #10 — asp, 2003-05-24T09:28Z

nej, det blir bara \<br\> hela tiden... inte \<p\>..

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

## #11 — Sebbe, 2003-05-24T11:40Z

Så här då?

```
Do Until rs.EOF
  If intTemp <> CInt(rs("omg")) Then
    Response.Write("<p>" & rs("omg") & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal"))
  Else
    Response.Write("<br>" & rs("omg") & ": " & rs("hlag") & " : " & rs("blag") & " " & rs("hmal") & " - " & rs("bmal"))
  End If
  intTemp = CInt(rs("omg"))
  rs.MoveNext
Loop
```

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

## #12 — asp, 2003-05-24T12:34Z

fungerar, you're the best!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/77867-sortera-omgång