<% 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 = '640' ORDER BY Clubname" Set RS=Conn.Execute(SQL)%> <%Teller = 1 dim clubnaam5e (15,17) Do While not RS.EOF clubnaam5e (teller,1) = left((RS("Clubname")),3) clubnaam5e (teller,2) = (RS("Clubname")) teller = teller+1%> <% RS.MoveNext Loop%> <%aantal = teller - 1%> <% SQL="Select * from WedstrijdUitslag5 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 = clubnaam5e (i,2) THEN rij = i IF uit = clubnaam5e (i,2) Then kolom = i + 2 NEXT clubnaam5e (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 clubnaam5e (i,x) = "" then %> <%Else%> <%End if%> <%End if%> <%Next%> <%Next%>
6e res. klasse 640
<%response.write(clubnaam5e (i,1))%>
<% response.write clubnaam5e (i,2) %>-<%response.write clubnaam5e (i,x)%>