er det en måde hvorpå man kun udskriver Fiflerhold 1, en gang og i første linie, så det ikke gentager sig hele tiden.
Koden er her:
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb") SQL = "select top 6 hold.holdnavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid desc" Set rs = conn.Execute(SQL) do while not rs.EOF Response.Write rs("holdnavn") & " - " & rs("spillernavn") & " - " & rs("sidsterunde") & " - " & rs("totalt") & "<br>" rs.Movenext loop %>
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb") SQL = "select top 6 hold.holdnavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid desc" Set rs = conn.Execute(SQL) i = o do while not rs.EOF if i = 0 then Response.Write rs("holdnavn") & " - " & rs("spillernavn") & " - " & rs ("sidsterunde") & " - " & rs("totalt") & "<br>" else Response.Write rs("spillernavn") & " - " & rs ("sidsterunde") & " - " & rs("totalt") & "<br>" end if rs.Movenext loop %>
Ville måske også være smart at smide den ind i tabel... bare for designets skyld :D
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb") SQL = "select top 6 hold.holdnavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid desc" Set rs = conn.Execute(SQL) i = o do while not rs.EOF if i = 0 then Response.Write rs("holdnavn") & " - " & rs("spillernavn") & " - " & rs ("sidsterunde") & " - " & rs("totalt") & "<br>" else Response.Write rs("spillernavn") & " - " & rs ("sidsterunde") & " - " & rs("totalt") & "<br>" end if i = i + 1 rs.Movenext loop %>
%> <table border="0" cellpadding="0" cellspacing="0"> <% i = 0 do while not rs.EOF if i = 0 then %> <tr> <td><%=rs("holdnavn")%></td> <td>-</td> <td><%=rs("spillernavn"%></td> <td>-</td> <td><%=rs("sidsterunde")%></td> <td>-</td> <td><%=rs("totalt")%></td> </tr> <% else %> <tr> <td> <!-- dette er bedre med en tom pix.gif --></td> <td>-</td> <td><%=rs("spillernavn"%></td> <td>-</td> <td><%=rs("sidsterunde")%></td> <td>-</td> <td><%=rs("totalt")%></td> </tr> <% end if i = i + 1 rs.Movenext loop %> </table>
Andet eks, og som hvis holdet skifter udskriver det nye navn_
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dream.mdb") SQL = "select top 6 hold.holdnavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid desc" Set rs = conn.Execute(SQL) response.write "<table>" tmpHold="" do while not rs.EOF response.write "<tr><td>" if tmpHold<>rs("holdnavn") then tmpHold = rs("holdnavn") response.write tmpHold else response.write " " end if response.write "</td>" response.write "<td>" & rs("spillernavn") & "</td>" response.write "<td>" & rs("sidsterunde") & "</td>" response.write "<td>" & rs("totalt") & "</td>" response.write "</tr>" rs.Movenext loop response.write "</table>" %>
Men jeg kan se at ingen af jer har taget højde for mit spm. nummer to, hvad med deltagernavn, som er holdets ejer, som heller ikke skal gentages lige som holdnavnet
Det med deltager navn skal med i SQl sætningen: SQL = "select top 6 hold.holdnavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid desc"
Lige nu henter den kun holdnavnet fra hold tabellen. Den skal også hente deltagernavnet sådan her:
SQL = "select top 6 hold.holdnavn, hold.deltagernavn, spillere.* from spillere, hold where (spillere.sid=hold.spiller_1 or spillere.sid=hold.spiller_2 or spillere.sid=hold.spiller_3 or spillere.sid=hold.spiller_4 or spillere.sid=hold.spiller_5 or spillere.sid=hold.spiller_6) order by hold.hid desc"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.