Standen Teisterbanders 2, 3, 4 en 5
Indeling seizoen 2019 - 2020

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" Set DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "WeekUitslagen25",Conn,3,3 SQL="Select * from WeekUitslagen25 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 dinsdagavond
<% 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\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Startdatum25",Conn,3,3 SQL="Select * from Startdatum25 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%> <% Sdatum = datumcnv(RS("Datum")) %>
Competitieprogramma volgende speelronde
Programma volgende speelronde, indien van toepassing,
vanaf woensdag beschikbaar.
<% response.write Sdatum %> <% response.write (RS("Tijd")) %> uur <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Opmerking")) %>

Teisterbanders 2

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.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= '411' 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 %>
  Res. 4e klasse <% 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\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatum2",Conn,3,3 SQL="Select * from StartDatum2 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")) %>

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma411",Conn,3,3 SQL="Select * from Programma2 where Thuis='Teisterbanders 2' or Uit='Teisterbanders 2' ORDER BY Datum" Set RS=Conn.Execute(SQL) %>
<% Do While not RS.EOF Sdatum = datumcnv(RS("Datum")) %> <% RS.MoveNext Loop%>
Competitieprogramma Teisterbanders 2
<% response.write Sdatum %> <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %>
<%Conn.Close Set RS=Nothing %>

Bekercompetitie
Indeling 1e ronde seizoen 2019 - 2020

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\beker1920.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= '527' 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 5 27 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\beker1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma2",Conn,3,3 SQL="Select * from Programma2 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 1 / 2 september 2018 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")) %>

Teisterbanders 3

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.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= '517' 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 %>
  Res. 5e klasse <% 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\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatum3",Conn,3,3 SQL="Select * from StartDatum3 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")) %>

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma517",Conn,3,3 SQL="Select * from Programma517 where Thuis='Teisterbanders 3' or Uit='Teisterbanders 3' ORDER BY Datum" Set RS=Conn.Execute(SQL) %>
<% Do While not RS.EOF Sdatum = datumcnv(RS("Datum")) %> <% RS.MoveNext Loop%>
Competitieprogramma Teisterbanders 3
<% response.write Sdatum %> <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %>
<%Conn.Close Set RS=Nothing %>

Bekercompetitie
Indeling 1e ronde seizoen 2019 - 2020

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\beker1920.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= '604' 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 04 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\beker1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma3",Conn,3,3 SQL="Select * from Programma3 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 1 / 2 september 2018 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")) %>

Teisterbanders 4

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.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= '635' 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 %>
  Res. 6e klasse <% 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\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatum4",Conn,3,3 SQL="Select * from StartDatum4 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")) %>

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma635",Conn,3,3 SQL="Select * from Programma635 where Thuis='Teisterbanders 4' or Uit='Teisterbanders 4' ORDER BY Datum" Set RS=Conn.Execute(SQL) %>
<% Do While not RS.EOF Sdatum = datumcnv(RS("Datum")) %> <% RS.MoveNext Loop%> <%Conn.Close Set RS=Nothing %>
Competitieprogramma Teisterbanders 4
<% response.write Sdatum %> <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %>

Teisterbanders 5

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.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= '634' 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 %>
  Res. 6e klasse <% 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\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "StartDatum5",Conn,3,3 SQL="Select * from StartDatum5 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")) %>

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma634",Conn,3,3 SQL="Select * from Programma634 where Thuis='Teisterbanders 5' or Uit='Teisterbanders 5' ORDER BY Datum" Set RS=Conn.Execute(SQL) %>
<% Do While not RS.EOF Sdatum = datumcnv(RS("Datum")) %> <% RS.MoveNext Loop%> <%Conn.Close Set RS=Nothing %>
Competitieprogramma Teisterbanders 5
<% response.write Sdatum %> <% response.write (RS("Thuis")) %> - <% response.write (RS("Uit")) %> <% response.write (RS("Voor")) %> - <% response.write (RS("Tegen")) %>

Bekercompetitie
Indeling 1e ronde seizoen 2019 - 2020

<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\beker1920.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= '7001' 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 7 001 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\beker1920.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Programma5",Conn,3,3 SQL="Select * from Programma5 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 1 / 2 september 2018 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")) %>