%@ Language="VBScript" LCID="1033"%> <%option explicit%> <% 'Beveiligingsniveau van deze pagina bepalen en het sessieniveau daarmee vergelijken dim pag_niveau pag_niveau = 4 %> <% Response.Buffer = True %> <% 'Algemene pagina variabelen dim resultaat,wer_arr,SQL1,i,werknemer_id,werknemer_arr 'Eventuele melding van een afhandeling bepalen If resultaat="" AND checkQueryString("resultaat","normalText") Then resultaat = Request.QueryString("resultaat") End If %>
<%call bovenkant(400,480," ",0,"center",0)%>
<% If resultaat<>"" Then 'Alleen foutmelding box neerzetten als er een resultaat is %> Mededeling <%call onderkant()%> <% 'Array met alle huidige werknemers ophalen SQL1 = "SELECT werknemer_id,voornaam,tussenvoegsels,achternaam FROM werknemer ORDER BY achternaam" wer_arr = geg_ophalen(SQL1) 'Databaseconnectie sluiten call sluitenA %> |