<%@ 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 %> <%=application("pageTitle")%>
  <%call bovenkant(400,480," ",0,"center",0)%>
<% If resultaat<>"" Then %>

Mededeling
<%=resultaat%>

<% End If %> <% 'Database connectie openen call openenA If Request.Form("wijzigen")<>"" OR Request.Form("toevoegen")<>"" OR Request.Form("toevoegen_submit")="ja" Then If Request.Form("wijzigen")<>"" Then If NOT Len(Request.Form("login_id"))>0 Then Response.Redirect("index.asp?resultaat=Er is geen gebruiker geselecteerd.") Response.End End If 'Alle gegevens ophalen SQL1 = "SELECT gebruikersnaam,status " &_ "FROM login " &_ "WHERE login_id=" & Request.Form("login_id") login_los_arr = geg_ophalen(SQL1) End If %> <% ElseIf Request.Form("verwijderen")<>"" OR Request.Form("delete_submit")="ja" Then If NOT Len(Request.Form("login_id"))>0 Then Response.Redirect("index.asp?resultaat=Er is geen gebruiker geselecteerd.") Response.End End If %> <% End If %>
<%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 %>
 
<%call bovenkant(0,205,"Functies",0,"center",1)%>
gebruikers aan projecten toekennen
<%call onderkant()%>
<%call bovenkant(0,205,"Overzicht",0,"left",1)%> <% If Request.Form("toevoegen")="" Then Response.Write FillSelectBox(login_arr,"login_id",16,0,"login",1,Request.Form("login_id")) Else Response.Write FillSelectBox(login_arr,"login_id",16,0,"login",1,0) End If %> <%call onderkant()%>