Standen Junioren
Indeling voorjaarscompetities seizoen 2017 - 2018

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" Set DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "UitslagenJO19MO15",Conn,3,3 SQL="Select * from UitslagenJO19MO15 ORDER BY Datum, Klasse" Set RS=Conn.Execute(SQL) %>
<%else%> <%end if%> <% Do While not RS.EOF Sdatum = datumcnv(RS("Datum")) %> <% RS.MoveNext Loop%> <%Conn.Close Set RS=Nothing %>
<%if not RS.EOF then%>
Uitslag(en) laatste speelronde competitie
Uitslagen beschikbaar van zaterdag- t/m maandagavond
<% response.write Sdatum %> <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %> <% response.write (RS("Opmerking")) %>
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatumJunioren",Conn,3,3 SQL="Select * from StartDatumJunioren ORDER BY Datum, Prioriteit" Set RS=Conn.Execute(SQL) %>
<%else%> <%end if%> <%Do While not RS.EOF%> <% Sdatum = datumcnv(RS("Datum")) %> <% RS.MoveNext Loop%> <%Conn.Close Set RS=Nothing %>
<%if not RS.EOF then%> <% Sdatum = datumcnv(RS("Datum")) %>
Competitieprogramma eerste speelronde
Programma volgende speelronde, indien van toepassing,
vanaf dinsdag beschikbaar.
<% response.write Sdatum %> <% response.write (RS("Tijd")) %> uur <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Opmerking")) %>

Teisterbanders MO19-1


<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.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 = 'M23' 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 %>
  2e klasse poule <% response.write (RS("Klasse")) %> Gespeeld Gewonnen Gelijk Verloren Punten Voor - Tegen
*<% response.write (positie) %><% response.write (positie) %><% response.write RS("ClubName") %> 0 0 0 0 0 0 - 0
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatumMO191",Conn,3,3 SQL="Select * from StartDatumMO191 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 eerste competitieronde
Programma volgende speelronde vanaf woensdag beschikbaar
<% response.write Sdatum %> <% response.write (RS("Tijd")) %> uur <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %> <% response.write (RS("Opmerking")) %>

Teisterbanders JO17-1


<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.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 = 'B307' 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 %>
  3e klasse poule <% response.write (RS("Klasse")) %> Gespeeld Gewonnen Gelijk Verloren Punten Voor - Tegen
*<% response.write (positie) %><% response.write (positie) %><% response.write RS("ClubName") %> 0 0 0 0 0 0 - 0
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatumJO171",Conn,3,3 SQL="Select * from StartDatumJO171 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 eerste competitieronde
Programma volgende speelronde vanaf woensdag beschikbaar
<% response.write Sdatum %> <% response.write (RS("Tijd")) %> uur <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %> <% response.write (RS("Opmerking")) %>

Teisterbanders JO17-2


<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.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 = 'B509' 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 %>
  5e klasse poule <% response.write (RS("Klasse")) %> Gespeeld Gewonnen Gelijk Verloren Punten Voor - Tegen
*<% response.write (positie) %><% response.write (positie) %><% response.write RS("ClubName") %> 0 0 0 0 0 0 - 0
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatumJO172",Conn,3,3 SQL="Select * from StartDatumJO172 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 eerste competitieronde
Programma volgende speelronde vanaf woensdag beschikbaar
<% response.write Sdatum %> <% response.write (RS("Tijd")) %> uur <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %> <% response.write (RS("Opmerking")) %>

Teisterbanders JO15-1


<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.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 = 'C306' 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 %>
  3e klasse poule <% response.write (RS("Klasse")) %> Gespeeld Gewonnen Gelijk Verloren Punten Voor - Tegen
*<% response.write (positie) %><% response.write (positie) %><% response.write RS("ClubName") %> 0 0 0 0 0 0 - 0
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatumJO151",Conn,3,3 SQL="Select * from StartDatumJO151 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 eerste competitieronde
Programma volgende speelronde vanaf woensdag beschikbaar
<% response.write Sdatum %> <% response.write (RS("Tijd")) %> uur <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %> <% response.write (RS("Opmerking")) %>

Teisterbanders MO15-1


<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.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 = 'M06' 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 %>
  2e klasse poule <% response.write (RS("Klasse")) %> Gespeeld Gewonnen Gelijk Verloren Punten Voor - Tegen
*<% response.write (positie) %><% response.write (positie) %><% response.write RS("ClubName") %> 0 0 0 0 0 0 - 0
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\jeugd1718.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatumMO151",Conn,3,3 SQL="Select * from StartDatumMO151 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 eerste competitieronde
Programma volgende speelronde vanaf woensdag beschikbaar
<% response.write Sdatum %> <% response.write (RS("Tijd")) %> uur <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %> <% response.write (RS("Opmerking")) %>