<%Option Explicit%> <% dim thisSeason: thisSeason = getSeasonName(setupCurrentSeason) dim thisseasonid if request("seasonid") = "" then thisseasonid = "" else thisseasonid = request("seasonid") end if %> <%if playerPortrait>0 then%> <%end if%>
Rekorder
Modstandere
Alder
Flest mål
"maal" then response.write "display:none"%>"> <%response.write makeSeasonMenuPoints("maal")%>
Flest kampe
"kampe" then response.write "display:none"%>"> <%response.write makeSeasonMenuPoints("kampe")%>
Flest assists
"assist" then response.write "display:none"%>"> <%response.write makeSeasonMenuPoints("assist")%>
Bedste scoringssnit
"scoringssnit" then response.write "display:none"%>"> <%response.write makeSeasonMenuPoints("scoringssnit")%>
Flest sejre
"sejre" then response.write "display:none"%>"> <%response.write makeSeasonMenuPoints("sejre")%>
Kampens spiller
"mom" then response.write "display:none"%>"> <%response.write makeSeasonMenuPoints("mom")%>
Kampens tudefjæs
"dom" then response.write "display:none"%>"> <%response.write makeSeasonMenuPoints("dom")%>
Referant <%response.write thisSeason%>
Vasketøj <%response.write thisSeason%>

 

<%response.flush%> 		<% dim playerarray, playerdataarray(),i,j,sortarray(0,2),RS,SQL,sum, pointer, dummy, nomatches, noplayers, playerPortrait playerPortrait=0 nomatches = true noplayers = true set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere" RS.Open SQL,Conn if not rs.eof then playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) noplayers = false end if RS.close set RS = nothing if request("statistik")<> "" then select case request("statistik") case "rekorder" %> Rekorder

<% dim goodresult, badresult, gooddiff, baddiff, winrow ,winrowcount, lossrow, lossrowcount, currentRow, bestwinrow, bestlossrow, lossRowStart, winRowStart, lossRowEnd, winRowEnd, currentlossRowStart, currentLossRowEnd, currentWinRowStart, currentWinRowEnd, bestScoreStart, bestScoreEnd, bestScoreRow, currentScoreStart, currentScoreEnd, currentScoreRow currentRow = "X" bestwinrow = 0 bestlossrow = 0 winrow = 0 lossrow = 0 gooddiff = 0 baddiff = 0 bestScoreRow = 0 currentScoreRow = 0 badresult = 0 goodresult = 0 set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM kampe ORDER BY dato" RS.Open SQL,Conn if not RS.eof then nomatches = false do until RS.EOF if (cint(RS("klubscore")) - cint(RS("modstanderscore"))) => gooddiff then gooddiff = (cint(RS("klubscore")) - cint(RS("modstanderscore"))) goodresult = RS("kampid") end if if ((cint(RS("modstanderscore")) - cint(RS("klubscore"))) => baddiff) AND ((cint(RS("modstanderscore")) - cint(RS("klubscore"))) > 0) then baddiff = (cint(RS("modstanderscore")) - cint(RS("klubscore"))) badresult = RS("kampid") end if currentLossRowEnd = RS("dato") 'taber-række slutter her, sæt slut-dato currentWinRowEnd = RS("dato") 'vinder-række slutter her, sæt slut-dato select case RS("VUT") case "V" if currentRow = "V" then 'hvis den nuværende række er sejrs-række winrow = winrow + 1 'tæl vinder-række én op else' ...ellers slutter taber-række her lossrow = 0 'ny taber-række starter her winrow = 1 'ny vinder-række er startet currentWinRowStart = RS("dato")' sæt sejrs-rækkestartdato currentRow = "V"'start sejrs-række end if if winrow > bestwinrow then bestwinrow = winrow winRowStart = currentWinRowStart winRowEnd = currentWinRowEnd end if if lossrow > bestlossrow then 'tjek om taber-række slår rekorden (sæt ny rekord) bestlossrow = lossrow 'bedste taber-række er nuværende lossRowStart = currentLossRowStart 'bedste taber-række start lossRowEnd = currentLossRowEnd 'bedste taber-række slut end if case "U" if lossrow > bestlossrow then 'tjek om taber-række slå rekorden (sæt ny rekord) bestlossrow = lossrow lossRowStart = currentLossRowStart lossRowEnd = currentLossRowEnd end if if winrow > bestwinrow then bestwinrow = winrow winRowStart = currentWinRowStart winRowEnd = currentWinRowEnd end if winrow = 0 lossrow = 0 currentRow = "U" case "T" if currentRow = "T" then lossrow = lossrow + 1 else winrow = 0 lossrow = 1 currentLossRowStart = RS("dato") currentRow = "T" end if if lossrow > bestlossrow then 'tjek om taber-række slå rekorden (sæt ny rekord) bestlossrow = lossrow lossRowStart = currentLossRowStart lossRowEnd = currentLossRowEnd end if if winrow > bestwinrow then bestwinrow = winrow winRowStart = currentWinRowStart winRowEnd = currentWinRowEnd end if end select if RS("klubscore")>0 then currentScoreRow = currentScoreRow + 1 currentScoreEnd = RS("dato") if currentScoreRow = 1 then currentScoreStart = RS("dato") end if else currentScoreEnd = RS("dato") currentScoreRow = 0 end if if currentScoreRow > bestScoreRow then bestScoreRow = currentScoreRow bestScoreStart = currentScoreStart bestScoreEnd = currentScoreEnd end if rs.movenext loop end if RS.close dim currentPlayer, bestPlayer, currentMatch, currentCount, bestCount, bestMatch currentPlayer = "0" currentCount = 0 currentmatch = 1 bestCount = 0 bestplayer = 0 bestMatch = 0 set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM maal ORDER BY spillerid,kampid" RS.Open SQL,Conn if not rs. eof then do until rs.eof if currentplayer <> RS("spillerid") then 'ny spiller, undersøg tæller, nulstil tæller currentplayer = RS("spillerid") currentcount = 1 currentmatch = RS("kampid") else 'spilleren er den samme if currentmatch = RS("kampid") then 'samme kamp, samme spiller, tæl op currentCount = currentCount + 1 else 'ny kamp, undersøg tæller tæller nulstilles currentmatch = RS("kampid") currentcount = 1 end if end if if currentcount => bestcount then 'hvis tæller er bedst bestcount = currentcount bestplayer = currentplayer bestmatch = currentmatch end if rs.movenext loop end if RS.close %>
Største sejr:  <%if not nomatches then SQL = "select * FROM kampe WHERE kampid = " & goodresult rs.open SQL,Conn if not rs.eof then if lcase(RS("hjemmehold")) = "true" then response.write setupClubName & " - " & RS("modstander") & " " & RS("klubscore") & "-" & RS("modstanderscore") & " (" & writeDate(rs("dato")) & ")" else response.write RS("modstander") & " - "&setupClubName&" " & RS("modstanderscore") & "-" & RS("klubscore") & " (" & writeDate(rs("dato")) & ")" end if else response.write "Ingen sejre!!" end if RS.close else response.write "Ingen kampe!!" end if %>
Største nederlag:  <% if not nomatches then SQL = "select * FROM kampe WHERE kampid = " & badresult rs.open SQL,Conn if not rs.eof then if lcase(RS("hjemmehold")) = "true" then response.write setupClubName & " - " & RS("modstander") & " " & RS("klubscore") & "-" & RS("modstanderscore") & " (" & writeDate(rs("dato")) & ")" else response.write RS("modstander") & " - "&setupClubName&" " & RS("modstanderscore") & "-" & RS("klubscore") & " (" & writeDate(rs("dato")) & ")" end if else response.write "Ingen nederlag!!" end if RS.close else response.write "Ingen kampe!!" end if %>
Flest antal sejre i træk: <%response.write bestwinrow & " (" & writeDate(winRowStart) & " - " & writeDate(winRowEnd) & ")"%>
Flest antal nederlag i træk: <%response.write bestlossrow & " (" & writeDate(lossRowStart) & " - " & writeDate(lossRowEnd) & ")"%>
Flest kampe med scoring i træk: <%response.write bestScorerow & " (" & writeDate(bestScoreStart) & " - " & writeDate(bestScoreEnd) & ")"%>
Flest mål i samme kamp: <%response.write getPlayerName(bestPlayer) & " " & bestCount%> mål
<% SQL = "select * FROM kampe WHERE kampid = " & bestMatch rs.open SQL,Conn if not rs.eof then if lcase(RS("hjemmehold")) = "true" then response.write setupClubName & " - " & RS("modstander") & " " & RS("klubscore") & "-" & RS("modstanderscore") & " (" & writeDate(rs("dato")) & ")" else response.write RS("modstander") & " - "&setupClubName&" " & RS("modstanderscore") & "-" & RS("klubscore") & " (" & writeDate(rs("dato")) & ")" end if else response.write "Statistikken findes ikke" end if RS.close %>
<% set RS = nothing %>

<% case "modstandere" %> <%response.write setupClubName%>s modstandere

<% dim today, lmonth, lday, noopponents noopponents = true lmonth = month(now) if lmonth < 10 then lmonth = "0" & lmonth end if lday = day(now) if lday < 10 then lday = "0" & lday end if today = year(now) & lmonth & lday set RS = server.createobject("ADODB.recordset") SQL = "SELECT modstandernavn FROM modstandere ORDER BY modstandernavn" RS.Open SQL,Conn if not rs.eof then playerarray = rs.GetRows() noopponents = false end if RS.close if not noopponents then %> <% dim matchcount, woncount, drawcount, lostcount, goalfor, goalagainst, points, lmatches dim allmatchcount, allwoncount, alldrawcount, alllostcount, allgoalfor, allgoalagainst, allpoints for i= 0 to (ubound(playerarray,2)) matchcount = 0: woncount = 0: drawcount = 0: lostcount = 0: goalfor = 0: goalagainst = 0: points = 0: lmatches = "" SQL = "SELECT * FROM kampe WHERE modstander = '" & playerarray(0,i) & "' AND clng(dato)<"& clng(today) & " ORDER by dato" RS.Open SQL,Conn if not RS.eof then do until RS.EOF if lcase(RS("hjemmehold")) = "true" then lmatches = lmatches & " "&setupClubName&" - " & RS("modstander") & " " & RS("klubscore") & "-" & RS("modstanderscore") & " (" & writeDate(rs("dato")) & ")
Se startopstilling:
" else lmatches = lmatches & RS("modstander") & " - "&setupClubName&" " & RS("modstanderscore") & "-" & RS("klubscore") & " (" & writeDate(rs("dato")) & ")
Se startopstilling:
" end if lmatches = lmatches & "
" if (RS("spiller1")=0 AND RS("spiller2")=0 AND RS("spiller5")= 0) then lmatches = lmatches & "Startopstillingen findes ikke!
" else lmatches = lmatches & "
1. "& getPlayerName(RS("spiller1")) & "
" lmatches = lmatches & "
2. "& getPlayerName(RS("spiller2")) & "
3. "& getPlayerName(RS("spiller3"))& "
4. "& getPlayerName(RS("spiller4")) & "
" lmatches = lmatches & "
5. "& getPlayerName(RS("spiller5")) & "
6. "& getPlayerName(RS("spiller6"))& "
7. "& getPlayerName(RS("spiller7")) & "
" lmatches = lmatches & "
8. "& getPlayerName(RS("spiller8")) & "
9. "& getPlayerName(RS("spiller9"))& "
10. "& getPlayerName(RS("spiller10")) & "
" end if matchcount = matchcount + 1 allmatchcount = allmatchcount + 1 select case RS("VUT") case "V" woncount = woncount + 1 allwoncount = allwoncount + 1 points = points + 3 allpoints = allpoints + 3 case "U" drawcount = drawcount + 1 alldrawcount = alldrawcount + 1 points = points + 1 allpoints = allpoints + 1 case "T" lostcount = lostcount + 1 alllostcount = alllostcount + 1 end select goalagainst = goalagainst + cint(RS("Modstanderscore")) allgoalagainst = allgoalagainst + cint(RS("Modstanderscore")) goalfor = goalfor + cint(RS("klubscore")) allgoalfor = allgoalfor + cint(RS("klubscore")) RS.movenext response.flush loop End if RS.Close response.write "" response.write "" next response.write "" set RS = nothing %>
Klik på klubnavn for infoKVUTMålP
" & playerarray(0,i) & "" & matchcount & "" & woncount & "" & drawcount & "" & lostcount & "" & goalfor & "-" & goalagainst & "" & points & "
"& lmatches&"
Ialt" & allmatchcount & "" & allwoncount & "" & alldrawcount & "" & alllostcount & "" & allgoalfor & "-" & allgoalagainst & "" & allpoints & "
<%else%>

Der er ikke indtastet nogen modstandere

<%end if%>

<% case "alder" %> Alder

<% if not noplayers then for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getPlayerAge(playerarray(0,i)) playerdataarray(i,2) = playerarray(0,i) sum = sum + playerdataarray(i,1) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next response.Write "" %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
Gennemsnitsalder: " & cSng(sum / (ubound(playerarray,2)+1))& " år
<%else%>

Der er ikke indtastet nogen modstandere

<%end if%>

<% case "maal" %> Flest mål <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getGoalCount(playerarray(0,i),thisseasonid) playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "assist" %> Flest assists <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getAssistCount(playerarray(0,i),thisseasonid) playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "kampe" %> Flest kampe <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getMatchCount(playerarray(0,i),thisseasonid) playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "scoringssnit" %> Bedste scoringssnit <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then dim xgoals, xmatches set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) xgoals = getGoalCount(playerarray(0,i),thisseasonid) xmatches = getMatchCount(playerarray(0,i),thisseasonid) if xmatches > 0 then playerdataarray(i,1) = ccur(getGoalCount(playerarray(0,i),thisseasonid)/getMatchCount(playerarray(0,i),thisseasonid)) else playerdataarray(i,1) = 0 end if playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "sejre" %> Flest sejre <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),5) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getVictories(playerarray(0,i),thisseasonid) playerdataarray(i,2) = getMatchCount(playerarray(0,i),thisseasonid) if playerdataarray(i,1)>0 and playerdataarray(i,2)>0 then playerdataarray(i,3) = ccur(getVictories(playerarray(0,i),thisseasonid)/getMatchCount(playerarray(0,i),thisseasonid)) else playerdataarray(i,3) = 0 end if playerdataarray(i,4) = playerarray(0,i) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,4) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,3) > playerdataarray(pointer,3) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) dummy(0,3) = playerdataarray(i,3) dummy(0,4) = playerdataarray(i,4) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(i,3) = playerdataarray(pointer,3) playerdataarray(i,4) = playerdataarray(pointer,4) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) playerdataarray(pointer,3) = dummy(0,3) playerdataarray(pointer,4) = dummy(0,4) end if next playerPortrait=playerdataarray(0,4) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & " sejre i " & playerdataarray(i,2) &" kampe = " & playerdataarray(i,3) &"
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "mom" %> Kampens spiller <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getMomCount(playerarray(0,i),thisseasonid) playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "referant" %> Referanter <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getRefCount(playerarray(0,i),thisseasonid) playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "vask" %> Vasketøj <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getVaskCount(playerarray(0,i),thisseasonid) playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% case "dom" %> Kampens tudefjæs <%response.write getSeasonName(thisseasonid)%>

<% if not noplayers then set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn playerarray = rs.GetRows() redim playerdataarray(ubound(playerarray,2),2) RS.close set RS = nothing for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) playerdataarray(i,1) = getDomCount(playerarray(0,i),thisseasonid) playerdataarray(i,2) = playerarray(0,i) 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) redim dummy(0,2) pointer = i for j = i to (ubound(playerarray,2)) 'response.Write "
" & i & ". (j = " & playerdataarray(j,2)& ") > (i = " & playerdataarray(i,2) & ") = " & playerdataarray(pointer,2) if playerdataarray(j,1) > playerdataarray(pointer,1) then pointer = j end if next if pointer > i then dummy(0,0) = playerdataarray(i,0) dummy(0,1) = playerdataarray(i,1) dummy(0,2) = playerdataarray(i,2) playerdataarray(i,0) = playerdataarray(pointer,0) playerdataarray(i,1) = playerdataarray(pointer,1) playerdataarray(i,2) = playerdataarray(pointer,2) playerdataarray(pointer,0) = dummy(0,0) playerdataarray(pointer,1) = dummy(0,1) playerdataarray(pointer,2) = dummy(0,2) end if next playerPortrait=playerdataarray(0,2) %> <% for i = 0 to (ubound(playerarray,2)) response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
<%else%>

Der er ikke indtastet nogen spillere

<%end if%>

<% end select else %> Statistik

Vælg en statistik fra menuen til venstre.

<% end if %> 		<% dim arrPortrait set RS = server.createobject("ADODB.recordset") SQL = "SELECT fornavn, efternavn, pladser, kommentar, billede FROM spillere where spillerid="&playerPortrait RS.Open SQL,Conn if not rs.eof then arrPortrait = rs.GetRows() end if RS.close %> Spillerportræt

<%if len(arrPortrait(4,0))>4 then%> <%end if%> Navn:
<%response.write arrPortrait(1,0) & ", "%><%=arrPortrait(0,0)%>

Pladser:
<%=arrPortrait(2,0)%>

Beskrivelse:
<%=arrPortrait(3,0)%>

<%response.flush%> <% function makeSeasonMenuPoints(lstatistik) dim result, RS, SQL, seasonstart, seasonend result = "
" set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM saeson WHERE saesonid<>"&setupCurrentSeason&" ORDER BY saesontitel DESC" RS.Open SQL,Conn,3 if not RS.eof then seasonend = thisSeason do until RS.EOF result = result & "
"&RS("Saesontitel")&"
" seasonstart = RS("Saesontitel") RS.MoveNext loop end if result = result & "
"&seasonstart&"-"&seasonend&"
" result = result & "
" RS.close set RS = nothing makeSeasonMenuPoints = result end function %>