%@ Language="VBScript" LCID="1033"%> <% option explicit Response.Buffer = True 'Beveiligingsniveau van deze pagina bepalen en het sessieniveau daarmee vergelijken dim pag_niveau pag_niveau = 8 %> <% %> <% 'Algemene pagina variabelen dim resultaat,login_arr,SQL1,i,login_id,login_los_arr,wer_arr,nee_wer_arr,wel_wer_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 %> Mededeling <%call onderkant()%> <% 'Array met alle huidige werknemers ophalen SQL1 = "SELECT login_id,gebruikersnaam,status FROM login ORDER BY gebruikersnaam" login_arr = geg_ophalen(SQL1) 'Databaseconnectie sluiten call sluitenA %> |