<%
dim Uitslagen(30,4)
Dim affiche(100,3)
Dim score(100,3)
zaal_veld = BepaalVeldZaal
call OpenDB2()
'wedstrijden zoeken: tussen 5 dagen geleden en 3 dagen vooruit
SQL1 = "SELECT DISTINCT datum FROM wedstrijd WHERE (datum > DATE_SUB(DATE(NOW()),INTERVAL 5 DAY) AND datum < DATE_ADD(DATE(NOW()),INTERVAL 3 DAY)) ORDER BY datum ASC"
set DataSet = MakeRS(SQL1,Conn2)
IF DataSet.RecordCount = 0 THEN 'wedstrijden zoeken: 7 dagen vooruit
SQL2 = "SELECT DISTINCT datum FROM wedstrijd WHERE (datum > DATE(NOW()) AND datum < DATE_ADD(DATE(NOW()),INTERVAL 7 DAY)) ORDER BY datum ASC"
set DataSet = MakeRS(SQL2,Conn2)
END IF
IF DataSet.RecordCount = 0 THEN response.Write("Geen wedstrijden gevonden in het wedstrijdprogramma")
Do While Not DataSet.EOF
SQL = "SELECT wedstrijd.id, wedstrijd.uit, wedstrijd.thuis, wedstrijd.datum, wedstrijd.uitslag, wedstrijd.aanvang AS Aanvang, wedstrijd.team_id, team.naam AS Team, COUNT(MEDIA_koppelingen.wedstrijd_id) AS aantalVerslagen "
SQL = SQL & "FROM wedstrijd "
SQL = SQL & "INNER JOIN team ON wedstrijd.team_id = team.id "
SQL = SQL & "LEFT JOIN MEDIA_koppelingen ON MEDIA_koppelingen.wedstrijd_id = wedstrijd.id "
SQL = SQL & "WHERE (wedstrijd.datum = '" & Date2MySQL(DataSet("datum"))& "') "
SQL = SQL & "GROUP BY wedstrijd.id "
SQL = SQL & "ORDER BY Team ASC, wedstrijd.ID ASC"
set UitslagenSet = MakeRS(SQL,Conn2)
For i = 0 to 19 'rijen
For j = 0 to 3 'kolommen
Uitslagen(i,j) = "
"
Next
Next
datum_oud = ""
odd_even = "odd"
teller = 0
AantalKolommen = 3
AantalUitslagen = UitslagenSet.RecordCount
IF AantalUitslagen MOD AantalKolommen = 0 THEN
UitslagenPerKolom = AantalUitslagen/AantalKolommen
ELSE
UitslagenPerKolom = (AantalUitslagen + AantalKolommen - AantalUitslagen MOD AantalKolommen) / AantalKolommen
END IF
RestCellen = AantalUitslagen MOD AantalKolommen
KolomTeller = 0
RijTeller = 0
response.write("" & UitslagenSet("datum") & "
")
Do While Not UitslagenSet.EOF
affiche(RijTeller,KolomTeller) = UitslagenSet("thuis") & " - " & UitslagenSet("uit")
score(RijTeller,KolomTeller) = ToonUitslag(UitslagenSet("thuis"),UitslagenSet("uit"),UitslagenSet("uitslag"),"#00CC00","#CC3300","#000000")
IF RijTeller = UitslagenPerKolom -1 THEN
RijTeller = 0
KolomTeller = KolomTeller + 1
ELSE
RijTeller = RijTeller + 1
END IF
UitslagenSet.MoveNext
Loop
For i = 0 to UitslagenPerKolom-1
response.write("")
For j = 0 to AantalKolommen-1
Response.Write("| " & affiche(i,j) & " | " & "" & score(i,j) & " | ")
IF i = UitslagenPerKolom AND j = AantalKolommen THEN
For k = 1 to 2*RestCellen
IF k MOD 2 = 0 THEN
response.Write(" | | ")
ELSE
response.Write(" | | ")
END IF
Next
END IF
Next
response.Write("
")
Next
set UitslagenSet = nothing
response.write("
")
DataSet.MoveNext
Loop
call CloseDB2()
%>