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