|
Onderhoud
<%
select case session("username")
case ""
session("comment") = "Voor de pagina 'Onderhoud' dient u als beheerder ingelogd te zijn."
session("originalpage") = "../admin/onderhoud.asp"
session("originalpagename") = "Onderhoud"
response.write ("U wordt doorgestuurd naar de loginpagina")
response.redirect("login.asp")
case else
select case session("rol")
case "admin"
'Hoera, er is een user ingelogd, en zijn rol is admin
Response.Write "Op welk onderdeel wil je onderhoud plegen?
"
Response.Write "Gebruikers"
Response.Write " "
Response.Write "Logboek"
Response.Write " "
Response.Write "Activiteitenkalender
"
case "actie"
Response.Write "Op welk onderdeel wil je onderhoud plegen?
"
Response.Write "Activiteitenkalender
"
case "user"
'username is bekend, maar persoon heeft geen adminrechten.
session("comment") = "Voor de pagina 'Onderhoud' dient u als beheerder ingelogd te zijn."
session("originalpage") = "../admin/onderhoud.asp"
session("originalpagename") = "Onderhoud"
response.write ("U hebt geen toegangsrechten tot de onderhoudspagina ")
response.write("Klik hier om onder een andere naam in te loggen ")
case else
'Geen idee! Er is iets mis gegaan.
session("comment") = "Voor de pagina 'Onderhoud' dient u als beheerder ingelogd te zijn."
session("originalpage") = "../admin/onderhoud.asp"
session("originalpagename") = "Onderhoud"
Response.Write "Sorry, ik kan niet vaststellen of je toegang hebt of niet."
Response.Write "Probeer nogmaals in te loggen, of neem contact op met de webmaster"
end select
end select
%>
Copyright K.V. De Biesbosch Bevers © 2008 - Disclaimer
|
