<%Option Explicit%> <% dim strERR, user user = "Klubmedlem" If Request.Form("Action") = "Log af" Then session("UserID") = "" session.abandon end if if session("UserID")<>""then if isnumeric(Session("UserID"))then if session("superAdm")<>"" then strERR = "Du er logget på som:
Administrator" else strERR = "Du er logget på som:
Bruger" end if else strERR = "Du er nu logget på!" end if else strERR = "Du er ikke logget på!" end if If Request.Form("Action") = "OK" Then dim strUID, strPWD, intUID strUID = Trim(Replace(Request.Form("Brugernavn"),"'","")) strPWD = Trim(Replace(Request.Form("Adgangskode"),"'","")) If Len(strUID) > 0 And Len(strPWD) > 0 Then dim RS, SQL set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM Brugere WHERE brugerUserName='"&strUID&"' AND brugerPassword='"&strPWD&"'" RS.Open SQL,conn if not RS.eof then if RS("brugerIsAdmin") then Session("superAdm")=true end if intUID = RS("brugerID") else 'if strUID=setupUserName AND strPWD=setupPassword then ' intUID = "XX" 'else session.abandon strERR = "Du er ikke logget på!" 'end if end if RS.close If Len(intUID) Then Session("UserID") = intUID if isnumeric(Session("UserID"))then if session("superAdm")<>"" then strERR = "Du er logget på som:
Administrator" else strERR = "Du er logget på som:
Bruger" end if else strERR = "Du er nu logget på!" end if End If End If End If %>
<% if setupShowNextGame then%>
KickOff CountDown:

dage: timer: min.: sek.:
0 0 0 0

 
<%end if%>
 
<%dim playerarray, playerdataarray(),i,j,sortarray(0,2), topScorerTrue, playerCount, statsheadline, statlink topScorerTrue = true playerCount = 0 set RS = server.createobject("ADODB.recordset") SQL = "SELECT spillerid FROM spillere ORDER BY fornavn" RS.Open SQL,Conn if not rs.eof then playerarray = rs.GetRows() playerCount = ubound(playerarray,2) if playerCount > 4 then playerCount = 4 end if redim playerdataarray(ubound(playerarray,2),2) for i = 0 to (ubound(playerarray,2)) playerdataarray(i,0) = getPlayerName(playerarray(0,i)) select case setupStatistic case 1 statsheadline = "Topscorer " statlink = "maal" playerdataarray(i,1) = getGoalCount(playerarray(0,i),setupCurrentSeason) case 2 statsheadline = "Flest assists " statlink = "assist" playerdataarray(i,1) = getAssistCount(playerarray(0,i),setupCurrentSeason) case 3 statsheadline = "Kampens spiller " statlink = "mom" playerdataarray(i,1) = getMomCount(playerarray(0,i),setupCurrentSeason) case 4 statsheadline = "Kampens tudefjæs " statlink = "dom" playerdataarray(i,1) = getDomCount(playerarray(0,i),setupCurrentSeason) case 5 statsheadline = "Flest kampe " statlink = "kampe" playerdataarray(i,1) = getMatchCount(playerarray(0,i),setupCurrentSeason) end select playerdataarray(i,2) = getGoalCount(playerarray(0,i),"") 'response.Write "
" & playerdataarray(i,0) & ", " & playerdataarray(i,1) & ", " & playerdataarray(i,2) next for i = 0 to (ubound(playerarray,2)) dim pointer, dummy 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%> <%response.write statsheadline & getSeasonName(setupCurrentSeason)%>:

<%for i = 0 to playerCount response.Write "" next%>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,1) & "
 Se hele listen her »
<%else topScorerTrue = false%> Der er ikke oprettet nogen spillere!! <%end if RS.close %>

 
Alle tiders Topscorerliste:

<% if topScorerTrue then for i = 0 to (ubound(playerarray,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,2) > playerdataarray(pointer,2) 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 %> <% for i = 0 to playerCount response.Write "" next %>
" & (i+1) & ". " & playerdataarray(i,0) & " " & playerdataarray(i,2) & "
<% else %> Der er ikke oprettet nogen spillere!! <% end if %>

 
<%if setupShowFootBallNews then%>
<%end if%>
 
<%response.flush%> 		<% set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM nyheder WHERE forside= true ORDER BY nyhedsid DESC" RS.Open SQL,Conn if not RS.eof then do until RS.eof response.Write "" & RS("titel")&"

" response.Write RS("indhold") response.Write "

 
" RS.movenext loop end if RS.close set RS=nothing %> <% dim today, lmonth, lday, lastplayed, lmom 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 * FROM kampe WHERE clng(dato) < " & clng(today) & " ORDER BY dato DESC" RS.Open SQL,Conn if not RS.eof then if setupShowLastGame then if RS("hjemmehold") = "True" then response.write "
Seneste kamp: " & setupClubName & " - " & RS("modstander") & " " & RS("klubscore") & "-" & RS("modstanderscore") else response.write "
Seneste kamp: " & RS("modstander") & " - " & setupClubName & " " & RS("modstanderscore") & "-" & RS("klubscore") end if response.Write "

" & RS("overskrift")&"

" end if lastplayed = RS("dato") if setupShowLastGame then lmom = RS("mom") dim lpic lpic = getPlayerPic(lmom) if lpic <> "0" then response.write "
 
"&""&getPlayerName(lmom)&"
" end if response.Write RS("referat")&"
" response.Write "

  • Målscorere: " response.write getGoalScorers(RS("kampid")) response.Write "
  • Kampens spiller: " & getPlayerName(RS("mom")) response.Write "
  • Kampens tudefjæs: " & getPlayerName(RS("dom")) response.Write "
  • Tilskuere: " & rs("tilskuere") response.Write "
  • Vask: " & getPlayerName(RS("vask")) response.Write "
  • Referant: " & getPlayerName(RS("referant")) response.Write "

    •  
    " end if end if RS.close %> <%if setupShowNextGame then%> <% dim lplayerID, nextmatch, versus SQL = "SELECT * FROM kampe WHERE clng(dato) > " & clng(lastplayed) & " ORDER BY dato ASC" RS.Open SQL,Conn if not RS.eof then %>
    Næste kamp:

    <%dim intro intro = getOpponentIntro(rs("modstander")) if intro <> "" then response.write intro else%> Kom og støt dit lokale favoritholds kamp om pokalerne.
    Super underholdning eller pengene tilbage!! <%end if%>

    <%if session("UserID")<>""then%> <%end if%>
    Modstander: <%response.Write RS("Modstander")%>
    Kampstart: <%response.Write writeDate(RS("dato")) & " kl. " & RS("Tidspunkt")%>.
    Spillested: <% if RS("hjemmehold") = "True" then response.write setupHome else response.Write RS("stadion") end if %>
    "Skjult" Info: <%=getOpponentInfo(rs("modstander"))%>
    Tidligere opgør: <%response.write getPreviousMatches(RS("Modstander"),today)%>
     
    <% dim EngMonthArray(12), countdownDay, countdownMonth, countDownYear, countdownHour EngMonthArray(1)="Jan" EngMonthArray(2)="Feb" EngMonthArray(3)="Mar" EngMonthArray(4)="Apr" EngMonthArray(5)="May" EngMonthArray(6)="Jun" EngMonthArray(7)="Jul" EngMonthArray(8)="Aug" EngMonthArray(9)="Sep" EngMonthArray(10)="Oct" EngMonthArray(11)="Nov" EngMonthArray(12)="Dec" countdownYear = left(RS("dato"),4) countdownMonth = EngMonthArray(cint(mid(RS("dato"),5,2))) countdownDay = right(RS("dato"),2) %> <%nextmatch = RS("kampid") versus = RS("Modstander") else nextmatch = 0 versus = 0 %> <% end if RS.close %> <%end if%> <%if setupShowTraining then%> <%if session("UserID")<>""then%> <%else%> <%end if%> <%end if%> <%response.flush%>
    <%if session("UserID")=""then%>
    For medlemmer:
    Brugernavn:
    Adgangskode: 
    <%=strErr%>
    <%else%>
    <%=strErr%>
    <%if Session("superAdm") then%> <%end if%>
    <%end if%>
     
    <%if setupShowMatch then%>
     
    <%end if%> <% dim arrRandomPortrait SQL = "SELECT fornavn, efternavn, pladser, kommentar, billede FROM spillere where aktiv=true ORDER BY fornavn" RS.Open SQL,Conn if not rs.eof then arrRandomPortrait = rs.GetRows() playerCount = ubound(arrRandomPortrait,2)+1 end if RS.close set RS = nothing Function kc_Random(intUpper) Randomize kc_Random = Int(intUpper * Rnd) End Function Dim PortraitNo PortraitNo = kc_Random(playerCount)%> Spillerportræt

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

    Pladser:
    <%=arrRandomPortrait(2,PortraitNo)%>

    Beskrivelse:
    <%=arrRandomPortrait(3,PortraitNo)%>
    <%response.flush%>