| |
<%call bovenkant(400,480," ",0,"center",0)%>
<%
If resultaat<>"" Then
'Alleen foutmelding box neerzetten als er een resultaat is
%>
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
'Als de werknemer wordt gewijzigd
If NOT Len(Request.Form("werknemer_id"))>0 Then
'Als er geen werknemer is geselecteerd stoppen
Response.Redirect("index.asp?resultaat=Er is geen medewerker geselecteerd.")
Response.End
End If
'Alle gegevens ophalen
SQL1 = "SELECT voornaam,tussenvoegsels,achternaam, voorletters, geslacht,straatnaam,huisnummer,postcode,woonplaats,telefoonnummer,mobiel_nummer,emailadres,sofinummer,rekeningnummer,geboortedatum,inDienst,uitDienst " &_
"FROM werknemer " &_
"WHERE werknemer_id=" & Request.Form("werknemer_id")
werknemer_arr = geg_ophalen(SQL1)
End If
%>
<%
ElseIf Request.Form("verwijderen")<>"" OR Request.Form("delete_submit")="ja" Then
'Als de werknemer wordt verwijderd
If NOT Len(Request.Form("werknemer_id"))>0 Then
'Als er geen werknemer is geselecteerd stoppen
Response.Redirect("index.asp?resultaat=Er is geen medewerker geselecteerd.")
Response.End
End If
%>
<%
End If
%>
<%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
%>
|
|
|
|