--- title: "Loopa tabeller" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/62760-loopa-tabeller" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Alkvettern" published: "2002-12-20T14:36:21.000Z" updated: "2002-12-27T09:00:41.000Z" replies: 15 views: 275 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/62760-loopa-tabeller" --- # Loopa tabeller ## #1 — Alkvettern, 2002-12-20T14:36Z TJENA Har en sida som hämtar uppgifter från en databas innehållande fotbollsmatcher. Som det ser ut idag så listar jag alla matcher sorterade efter omgång. Det jag vill ha är att alla matcher i omgång 1 ska listas men sen vill jag ha ett mellanrum innan matcherna i omgång 2 visas osv. Hoppas ni förstår vad jag är ute efter. SQL-strängen och tabellen ser ut så här. ``` strSQL = "Select * FROM tbl_matcher ORDER BY omgang" <% Response.Write(oRS("omgang"))%> <% Response.Write(oRS("hemmalag"))%> - <% Response.Write(oRS("bortalag"))%> <% Response.Write(oRS("hemmamal"))%> - <% Response.Write(oRS("bortamal"))%> <% oRS.MoveNext Loop %> ``` Någon som har någon idé? (Tvivlar inte) Permalänk: https://www.webforum.nu/p/62760 ## #2 — LarsG, 2002-12-20T14:44Z ``` omg = 0 strSQL = "Select * FROM tbl_matcher ORDER BY omgang" <% if omg <> 0 and clng(oRS("omgang")) <> omg then response.write "
" omg = clng(oRS("omgang")) end if Response.Write(oRS("omgang"))%> ``` Permalänk: https://www.webforum.nu/p/892265 ## #3 — icaaq, 2002-12-20T14:46Z ``` [red]intSeperator = 0 strSQL = "Select * FROM tbl_matcher ORDER BY omgang" If intSeperator <> intOmg Then Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "" & vbCrLf End If <% Response.Write(oRS("omgang"))%> <% Response.Write(oRS("hemmalag"))%> - <% Response.Write(oRS("bortalag"))%> <% Response.Write(oRS("hemmamal"))%> - <% Response.Write(oRS("bortamal"))%> <% intSeperator = intOmg oRS.MoveNext Loop %> [/red] ``` mvh icaaq Du får nog anpassa colspan ........... Permalänk: https://www.webforum.nu/p/892268 ## #4 — Alkvettern, 2002-12-20T14:53Z Tack för ett snabbt svar, men tyvärr så händer ingen ting det ser ut precis som förut. Ungefär såhär. > 1\. Hemmalag - Bortalag 1 - 1 > 1\. Hemmalag - Bortalag 3 - 2 > 2\. Hemmalag - Bortalag 0 - 1 > > osv. Permalänk: https://www.webforum.nu/p/892275 ## #5 — icaaq, 2002-12-20T14:59Z Vad heter ditt Recordset? Permalänk: https://www.webforum.nu/p/892281 ## #6 — Alkvettern, 2002-12-20T15:02Z Hjärnsläpp,, Vad menar du Is..? Permalänk: https://www.webforum.nu/p/892282 ## #7 — icaaq, 2002-12-20T15:05Z ``` [red]intSeperator = 0 strSQL = "Select * FROM tbl_matcher ORDER BY omgang" If cLng(intSeperator) <> cLng(oRS("omgang")) Then Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "" & vbCrLf End If <% Response.Write(oRS("omgang"))%> <% Response.Write(oRS("hemmalag"))%> - <% Response.Write(oRS("bortalag"))%> <% Response.Write(oRS("hemmamal"))%> - <% Response.Write(oRS("bortamal"))%> <% intSeperator = cLng(oRS("omgang")) oRS.MoveNext Loop %> [/red] ``` ska funka :) Permalänk: https://www.webforum.nu/p/892284 ## #8 — icaaq, 2002-12-20T15:07Z JAg ville bara veta vad du kallade ditt recordset **oRS**, men jag såg det i ditt första inlägg mvh icaaq Permalänk: https://www.webforum.nu/p/892287 ## #9 — Alkvettern, 2002-12-20T15:17Z > **Alkvettern skrev:** > > Tack för ett snabbt svar, men tyvärr så händer ingen ting > > det ser ut precis som förut. > > Ungefär såhär. > > > > > > 1\. Hemmalag - Bortalag 1 - 1 > > 1\. Hemmalag - Bortalag 3 - 2 > > 2\. Hemmalag - Bortalag 0 - 1 > > > > osv. > > > > Vad jag vill ha är > > > > > > > > 1\. Hemmalag - Bortalag 1 - 1 > > 1\. Hemmalag - Bortalag 3 - 2 > > > > > > > > 2\. Hemmalag - Bortalag 0 - 1 > > 2\. Hemmalag - Bortalag 3 - 2 > > > > osv När jag la in din ändring Ic så blev det en radbrytning mellan varje rad. Ledsen om jag uttryckte mig otydligt. Mathias Permalänk: https://www.webforum.nu/p/892301 ## #10 — icaaq, 2002-12-20T15:26Z visa hela din kod Permalänk: https://www.webforum.nu/p/892307 ## #11 — Alkvettern, 2002-12-23T10:11Z Här kommer koden ``` strSQL = "Select * FROM tbl_matcher ORDER BY omgang" Set oRS = oConn.Execute(strSQL) %>

<% Do Until oRS.EOF nummer = nummer + 1 If nummer Mod 2 = 0 then color = "white" Else color = "darkgray" End If %> <% oRS.MoveNext Loop %> <% oRS.Close Set oRS = Nothing oConn.close Set oConn = Nothing %> ``` Gör det någon visare? Permalänk: https://www.webforum.nu/p/893412 ## #12 — icaaq, 2002-12-23T11:57Z ``` [red] strSQL = "Select * FROM tbl_matcher ORDER BY omgang" Set oRS = oConn.Execute(strSQL) %>

Omgång	Hemmalag		Bortalag		Resultat
<% if omg <> 0 and clng(oRS("omgang")) <> omg then response.write " " omg = clng(oRS("omgang")) end if Response.Write(oRS("omgang"))%>	<% Response.Write(oRS("hemmalag"))%>	-	<% Response.Write(oRS("bortalag"))%>		<% Response.Write(oRS("hemmamal"))%>	-	<% Response.Write(oRS("bortamal"))%>

<% [b]omg = 1[/b] Do Until oRS.EOF nummer = nummer + 1 If nummer Mod 2 = 0 then color = "white" Else color = "darkgray" End If %> <% oRS.MoveNext Loop %> <% oRS.Close Set oRS = Nothing oConn.close Set oConn = Nothing %>[/red] ``` mvh icaaq Permalänk: https://www.webforum.nu/p/893465 ## #13 — Alkvettern, 2002-12-23T13:32Z Det fungerar inte riktigt som det ska. Det som händer är att omgångs nummret (oRS("Omgan")) flyttas ner två radbrytningar, men hemmalag,bortalag o resultatet står kvar som förut hoppas ni förstår du kan se själv här Mvh Mathias[http://www27.brinkster.com/alkvetternsik/visamatcher.asp](http://www27.brinkster.com/alkvetternsik/visamatcher.asp) Permalänk: https://www.webforum.nu/p/893488 ## #14 — LR^evil.sid, 2002-12-23T13:47Z Är det inte bara att lägga till en tom post i utskriften? ``` [red]<% do while not oRS.eof response.write _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" oRS.movenext [b]if not rs.eof then response.write "" end if[/b] loop %>[/red] ``` Eller har jag helt missuppfattat problemet? Permalänk: https://www.webforum.nu/p/893489 ## #15 — icaaq, 2002-12-23T13:54Z ``` [red] ... ... <% omg = 1 Do Until oRS.EOF nummer = nummer + 1 If nummer Mod 2 = 0 then color = "white" Else color = "darkgray" End If if clng(oRS("omgang")) <> omg then Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf omg = clng(oRS("omgang")) end if %> ... ... [/red] ``` Du kanske får ändra colspan värdet så att det passar, men detta kanske kan vara nått som passar..... mvh icaaq Permalänk: https://www.webforum.nu/p/893492 ## #16 — Alkvettern, 2002-12-27T09:00Z TACK SÅ MYCKET icaaq, du har varit en klippa. Det sista exemplet fungerade utmärkt. Nu ska jag bar göra några design justeringar. Tack igen Mathias Permalänk: https://www.webforum.nu/p/894724 --- Tråden på webben: https://www.webforum.nu/amne/asp/62760-loopa-tabeller

Omgång	Hemmalag		Bortalag	Resultat
<% [b]if clng(oRS("omgang")) <> omg then[/b] response.write " " omg = clng(oRS("omgang")) end if Response.Write(oRS("omgang"))%>	<% Response.Write(oRS("hemmalag"))%>	-	<% Response.Write(oRS("bortalag"))%>	<% Response.Write(oRS("hemmamal"))%>	-	<% Response.Write(oRS("bortamal"))%>
" & oRS("omgang") & "	" & oRS("hemmalag") & "	-	" & oRS("bortalag") & "	" & oRS("hemmamal") & "	-	" & oRS("bortamal") & "


<%=oRS("onmgang")%>