" border="0">
" valign="top">	<% dim vsql, _ osql, _ dsql, _ ssql, _ psql, _ rsBestuur, _ fso Set rsBestuur = Server.CreateObject("ADODB.RecordSet") Set fso = Server.CreateObject("Scripting.FileSystemObject") vsql = "Select * From bestuur Where functie = 'voorzitter'" osql = "Select * From bestuur Where functie = 'ondervoorzitter'" dsql = "Select * From bestuur Where functie = 'dagelijks'" ssql = "Select * From bestuur Where functie = 'secretaris'" psql = "Select * From bestuur Where functie = 'penningmeester'" %> <% rsBestuur.open vsql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop End If rsBestuur.close %>  Voorzitter <% 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")%> <% rsBestuur.open osql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop End If rsBestuur.close %>  Ondervoorzitter <% 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")%> <% rsBestuur.open ssql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop End If rsBestuur.close %>  Sekretaris - Gerechtigd Correspondent <% 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")%> <% rsBestuur.open psql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop End If rsBestuur.close %>  Penningmeester <% 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")%> <% rsBestuur.open dsql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop End If rsBestuur.close %>  Dagelijks Bestuur <% 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")%>	" valign="top">