Standen Pupillen
Indeling beker seizoen 2020 - 2021

Teisterbanders JO13-1


Bekercompetitie
Indeling 1e ronde seizoen 2020 - 201

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\beker2021.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= '632' ORDER by Clubname" Set RS=Conn.Execute(SQL)%>
<%positie = 1%> <%Do While not RS.EOF%> <%if UCASE(LEFT(RS("ClubName"),6)) = "TEISTE" THEN%> <%ELSE%> <%END IF%> <% positie = positie + 1 %> <% RS.MoveNext Loop%> <%Conn.Close Set RS=Nothing %>
  Groep 6 32 Gespeeld Gewonnen Gelijk Verloren Punten Voor - Tegen
*<% response.write (positie) %> <% response.write (positie) %><% response.write RS("ClubName") %> 0 0 0 0 0 0 - 0
Naar de tweede ronde:
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\beker2021.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "ProgrammaJO131",Conn,3,3 SQL="Select * from ProgrammaJO131 ORDER BY Datum" Set RS=Conn.Execute(SQL) %>
<%if not RS.EOF then%> <%Sdatum = datumcnv(RS("Datum"))%> <%else%> <%end if%> <% Do While not RS.EOF %> <%Sdatum = datumcnv(RS("Datum"))%> <% RS.MoveNext Loop%> <%Conn.Close Set RS=Nothing %>
Programma / Uitslagen
Programma 29 augustus 2020 later beschikbaar
<% response.write Sdatum %> <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %> <% response.write (RS("Opmerking")) %>