" border="0">
" valign="top">	<% dim jsql, _ msql, _ ksql, _ wsql, _ vsql, _ rsBestuur, _ fso Set rsBestuur = Server.CreateObject("ADODB.RecordSet") Set fso = Server.CreateObject("Scripting.FileSystemObject") jsql = "Select * From medewerkers Where functie = 'jeugdcoördinator'" msql = "Select * From medewerkers Where functie = 'Technisch-coördinator'" ksql = "Select * From medewerkers Where functie = 'kine'" vsql = "Select * From medewerkers Where functie = 'kleedkamers'" wsql = "Select * From medewerkers Where functie = 'webmaster'" %> <% rsBestuur.open jsql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop Else %> <% End If rsBestuur.close %>  Jeugdcoördinator <% If fso.FileExists(Server.MapPath("/images/medewerkers/" & rsBestuur("Foto"))) Then %> " border="1" width="100" height="100"> <% Else %> <% End If %> <%= UCase(rsBestuur("Naam")) & ", " & rsBestuur("Voornaam")%> <%= rsBestuur("Straat") & " " & rsBestuur("Nummer") %> <%= rsBestuur("Postcode") & " " & rsBestuur("Gemeente")%> <%= rsBestuur("Telefoon")%> <%= rsBestuur("Gsm")%> "><%= rsBestuur("Email")%> Nog niet bekend... <% rsBestuur.open msql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop Else %> <% End If rsBestuur.close %>  Technisch-coördinator <% If fso.FileExists(Server.MapPath("/images/medewerkers/" & rsBestuur("Foto"))) Then %> " border="1" width="100" height="100"> <% Else %> <% End If %> <%= UCase(rsBestuur("Naam")) & ", " & rsBestuur("Voornaam")%> <%= rsBestuur("Straat") & " " & rsBestuur("Nummer") %> <%= rsBestuur("Postcode") & " " & rsBestuur("Gemeente")%> <%= rsBestuur("Telefoon")%> <%= rsBestuur("Gsm")%> "><%= rsBestuur("Email")%> Nog niet bekend... <% rsBestuur.open ksql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop Else %> <% End If rsBestuur.close %>  Club-kinesiste <% If fso.FileExists(Server.MapPath("/images/medewerkers/" & rsBestuur("Foto"))) Then %> " border="1" width="100" height="100"> <% Else %> <% End If %> <%= UCase(rsBestuur("Naam")) & ", " & rsBestuur("Voornaam")%> <%= rsBestuur("Straat") & " " & rsBestuur("Nummer") %> <%= rsBestuur("Postcode") & " " & rsBestuur("Gemeente")%> <%= rsBestuur("Telefoon")%> <%= rsBestuur("Gsm")%> "><%= rsBestuur("Email")%> Nog niet bekend... <% rsBestuur.open vsql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop Else %> <% End If rsBestuur.close %>  Kleedkamer Verantwoordelijke <% If fso.FileExists(Server.MapPath("/images/medewerkers/" & rsBestuur("Foto"))) Then %> " border="1" width="100" height="100"> <% Else %> <% End If %> <%= UCase(rsBestuur("Naam")) & ", " & rsBestuur("Voornaam")%> <%= rsBestuur("Straat") & " " & rsBestuur("Nummer") %> <%= rsBestuur("Postcode") & " " & rsBestuur("Gemeente")%> <%= rsBestuur("Telefoon")%> <%= rsBestuur("Gsm")%> "><%= rsBestuur("Email")%> Nog niet bekend... <% rsBestuur.open wsql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop Else %> <% End If rsBestuur.close %>  Webmaster <% If fso.FileExists(Server.MapPath("/images/medewerkers/" & rsBestuur("Foto"))) Then %> " border="1" width="100" height="100"> <% Else %> <% End If %> <%= UCase(rsBestuur("Naam")) & ", " & rsBestuur("Voornaam")%> <%= rsBestuur("Straat") & " " & rsBestuur("Nummer") %> <%= rsBestuur("Postcode") & " " & rsBestuur("Gemeente")%> <%= rsBestuur("Telefoon")%> <%= rsBestuur("Gsm")%> "><%= rsBestuur("Email")%> Nog niet bekend...	" valign="top">