<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren2122.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "KlasdeelQuery",Conn,3,3 SQL="Select * from KlasdeelQuery where Klasse = '639' ORDER BY Clubname" Set RS=Conn.Execute(SQL)%> <%Teller = 1 dim Clubnaam4e (15,17) Do While not RS.EOF Clubnaam4e (teller,1) = left((RS("Clubname")),3) Clubnaam4e (teller,2) = (RS("Clubname")) teller = teller+1%> <% RS.MoveNext Loop%> <%aantal = teller - 1%> <% SQL="Select * from WedstrijdUitslag4 ORDER BY Datum" Set RS=Conn.Execute(SQL)%> <% Do While not RS.EOF uitslag = (RS("Voor")) & "-" & (RS("Tegen")) Thuis = (RS("Thuis")) Uit = (RS("Uit")) For i = 1 to aantal IF thuis = Clubnaam4e (i,2) THEN rij = i IF uit = Clubnaam4e (i,2) Then kolom = i + 2 NEXT Clubnaam4e (rij,kolom) = uitslag %> <% RS.MoveNext Loop%> <%Conn.Close Set RS=Nothing %>
<%For i = 1 to aantal%> <%next%> <%For i = 1 to aantal%> <%For x = 3 to aantal + 2%> <%IF i +2 = x then%> <%Else%> <%if Clubnaam4e (i,x) = "" then %> <%Else%> <%End if%> <%End if%> <%Next%> <%Next%>
6e res. klasse 639
<%response.write(Clubnaam4e (i,1))%>
<% response.write Clubnaam4e (i,2) %>-<%response.write Clubnaam4e (i,x)%>