Club Informatie <% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=d:\www\teisterbanders.nl\database\senioren1112.mdb;DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}","","" SET DTBrs=Server.CreateObject("ADODB.Recordset") DTBrs.Open "Clubinfo",Conn,3,3 SQL="Select * from Clubinfo WHERE ClubName='v.v. Rhelico'" Set RS=Conn.Execute(SQL) %> <% Do While not RS.EOF%> <% RS.MoveNext Loop%>

<% Sdatum = datumcnv(RS("StartDate")) %> <% response.write (RS("ClubName")) %>
Accommodatienaam:	<% response.write (RS("TerrainName")) %>
Straatnaam:	<% response.write (RS("Street")) %>
Postcode + Plaats:	<% response.write (RS("Postcode")) %> <% response.write (RS("Place")) %>
Telefoonnummer kantine:	<% response.write (RS("Telephone")) %>
Oprichtingsdatum:	<% response.write Sdatum %>
Clubkleuren:	" height=21 width=24>
District / klasse:	Zuid I - "><% response.write (RS("Klasse")) %>
Aantal senioren ploegen:	<% response.write (RS("Senioren")) %>
Vrouwenvoetbal:	<% response.write (RS("Vrouwen")) %>
Zaterdagvoetbal senioren:	<% response.write (RS("Zaterdag")) %>
Aantal jeugd ploegen:	<% response.write (RS("Jeugd")) %>
Meisjesvoetbal:	<% response.write (RS("Meisjes")) %>
G-voetbal:	<% response.write (RS("G-voetbal")) %>
Aantal speelvelden:	<% response.write (RS("Velden")) %>
Tribune:	<% response.write (RS("Tribune")) %>
Homepage:	"><% response.write (RS("Homepage")) %>
" ALT="Ingang accommodatie Rhelico" height=263 width=500>

<%Conn.Close Set RS=Nothing %>