" border="0">
" valign="top">	<% dim jsql, _ rsBestuur, _ fso Set rsBestuur = Server.CreateObject("ADODB.RecordSet") Set fso = Server.CreateObject("Scripting.FileSystemObject") jsql = "Select * From kantine order by Naam" %> <% rsBestuur.open jsql, oConn If not rsBestuur.eof Then Do While not rsBestuur.eof %> <% rsBestuur.Movenext() Loop End If rsBestuur.close %>  Leden Kantine-crew <% 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">