Problemer med sortering i golf resultat script
Har nedenstående script som vi bruger i golfklubben til diverse matche. Her vises resultatet så for 2 runder, og den første runde går det fint med resultat og sortering.Men når resultatet skal vises for andre runde også, er det jo således at de der ikke er kommet ind efter anden runde stå øverst, da de har den mindste score.
Kan nogen greje denne, med at når der står noget i runde 2 skal disse stå øverst.
<%
set conn = server.createobject("ADODB.connection")
path = ("xxx/golfdb.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
If Request.Querystring("klasse") = "b" Then
Set objRs = Conn.Execute("Select Id, Navn, Klub, DenTotaleRundeScore From Spiller Where DenTotaleRundeScore <> 0 And B = 'JA' Order by DenTotaleRundeScore, Sort18, Sort9, Sort6, Sort3, Sort1")
ElseIf Request.Querystring("klasse") = "c" Then
Set objRs = Conn.Execute("Select Id, Navn, Klub, DenTotaleRundeScore From Spiller Where DenTotaleRundeScore <> 0 And C = 'JA' Order by DenTotaleRundeScore, Sort18, Sort9, Sort6, Sort3, Sort1")
ElseIf Request.Querystring("klasse") = "d" Then
Set objRs = Conn.Execute("Select Id, Navn, Klub, DenTotaleRundeScore From Spiller Where DenTotaleRundeScore <> 0 And D = 'JA' Order by DenTotaleRundeScore, Sort18, Sort9, Sort6, Sort3, Sort1")
Else
Set objRs = Conn.Execute("Select Id, Navn, Klub, DenTotaleRundeScore From Spiller Where DenTotaleRundeScore <> 0 And A = 'JA' Order by DenTotaleRundeScore, Sort18, Sort9, Sort6, Sort3, Sort1")
End If
If Not objRs.Eof Then
strPlacering = 1
Do While Not objRs.Eof
If Farve = 0 Then
bg1=""
Farve = 1
Else
bg1="#E0E0E0"
Farve = 0
End If
set objRs2 = Conn.Execute("Select NavnID, SlagTotalt From Runder Where NavnID = " & objRs("Id") & " And Runde = 1")
set objRs3 = Conn.Execute("Select NavnID, SlagTotalt From Runder Where NavnID = " & objRs("Id") & " And Runde = 2")
If Not objRs2.Eof Then
strRunde1 = objRs2("SlagTotalt")
End If
If Not objRs3.Eof Then
strRunde2 = objRs3("SlagTotalt")
End If
ObjRs2.Close
ObjRs3.Close
Set objRs2 = nothing
Set objRs3 = nothing
%>
<tr>
<td bgcolor="<%= bg1 %>" width="22" class="start" align="right"><%= strPlacering %></td>
<td bgcolor="<%= bg1 %>" class="start"><p class="start"><%= objRs("Navn") %></td>
<td bgcolor="<%= bg1 %>" width="105" class="start"><%= objRs("Klub") %></td>
<% If Request.Querystring("klasse") <> "d" Then %><td bgcolor="<%= bg1 %>" width="23" align="center" class="start"><a href="VisResultat.asp?id=<%= objRs("id") %>&runde=1"><%= strRunde1 %></a></td><% End IF %>
<td bgcolor="<%= bg1 %>" width="23" align="center" class="start"><a href="VisResultat.asp?id=<%= objRs("id") %>&runde=2"><%= strRunde2 %></a></td>
<td bgcolor="<%= bg1 %>" width="41" align="center" class="start"><b><%= objRs("DenTotaleRundeScore") %></b</a></b></td>
</tr>
<%
strPlacering = strPlacering+1
objRs.MoveNext
Loop
End If
ObjRs.Close
If Request.Querystring("klasse") = "b" Then
Set objRs = Conn.Execute("Select * From spiller where B = 'JA' And (noreturn = 'JA' or Disk = 'JA') Order by Disk")
ElseIf Request.Querystring("klasse") = "c" Then
Set objRs = Conn.Execute("Select * From spiller where C = 'JA' And (noreturn = 'JA' or Disk = 'JA') Order by Disk")
ElseIf Request.Querystring("klasse") = "d" Then
Set objRs = Conn.Execute("Select * From spiller where D = 'JA' And (noreturn = 'JA' or Disk = 'JA') Order by Disk")
Else
Set objRs = Conn.Execute("Select * From spiller where A = 'JA' And (noreturn = 'JA' or Disk = 'JA') Order by Disk")
End If
If Not objRs.Eof Then
strPlacering = 1
Do While Not objRs.Eof
If Farve = 0 Then
bg1=""
Farve = 1
Else
bg1="#E0E0E0"
Farve = 0
End If
%>
<tr>
<td bgcolor="<%= bg1 %>" width="22" class="start" align="right"><%= strPlacering %></td>
<td bgcolor="<%= bg1 %>" class="start"><p class="start"><%= objRs("Navn") %></td>
<td bgcolor="<%= bg1 %>" width="105" class="start"><%= objRs("Klub") %></td>
<td bgcolor="<%= bg1 %>" width="23" align="center" class="start"></td>
<td bgcolor="<%= bg1 %>" width="23" align="center" class="start"></a></td>
<td bgcolor="<%= bg1 %>" width="41" align="center" class="start"><b><font color="#AA0000"><% If objRs("noreturn") = "JA" Then %>NR<% Else %>D</font><% End If %></b</a></b></td>
</tr>
<%
strPlacering = strPlacering+1
objRs.MoveNext
Loop
End If
%>
