<%
' Cookiewaarde ophalen
Dim letterGrootte
lettergrootte = Request.Cookies("lettergrootte")
' Stijlblad definieren
' Groter/kleiner bepalen
Dim css
Dim groter
Dim kleiner
select case letterGrootte
case "1" ' Normaal
css = "stylesheet.css"
groter = 2
kleiner = 1
case "2" ' Groter
css = "tekst-groter.css"
groter = 3
kleiner = 1
case "3" ' Grootst
css = "tekst-grootst.css"
groter = 3
kleiner = 2
case "4" ' Zwart
css = "highcontrast.css"
groter = 2
kleiner = 1
case else ' Mocht er iets misgaan, > Normaal kiezen
css = "stylesheet.css"
groter = 2
kleiner = 1
end select
%>
Gelijkekansen.be - Seminarie 'LGBT en Educatie'