Sortera omgång!

ASP

11 svar · 249 visningar · startad av asp 23 maj 2003

aspMedlem sedan aug. 2002733 inlägg

Frågan23 maj 2003 17:51#1

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

5
5
5

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

SebbeMedlem sedan jan. 20032 285 inlägg

23 maj 2003 17:58#2

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. :)

aspMedlem sedan aug. 2002733 inlägg

23 maj 2003 18:04#3

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>")

SebbeMedlem sedan jan. 20032 285 inlägg

23 maj 2003 18:10#4

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.

aspMedlem sedan aug. 2002733 inlägg

23 maj 2003 18:22#5

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
%>

aspMedlem sedan aug. 2002733 inlägg

23 maj 2003 19:03#6

Någon?

mikulMedlem sedan aug. 20013 824 inlägg

23 maj 2003 20:11#7

Testa så får du se ;)

aspMedlem sedan aug. 2002733 inlägg

24 maj 2003 07:00#8

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

solbulleMedlem sedan mars 20015 287 inlägg

24 maj 2003 08:32#9

Vad händer? Felmess?

aspMedlem sedan aug. 2002733 inlägg

24 maj 2003 09:28#10

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

SebbeMedlem sedan jan. 20032 285 inlägg

24 maj 2003 11:40#11

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

aspMedlem sedan aug. 2002733 inlägg

24 maj 2003 12:34#12

fungerar, you're the best!