<%session.LCID=2067%>
<%setlocale(2067)%>
<%
'Jonathan Heirbaut in opdracht van CVO Temse 22/03/2006
'jonathan.heirbaut@yucom.be
'declaratie van de connectie en recordsets en
'recordsets de juiste waarde meegeven
dim teller
dim cn
dim rsData
dim rsDatumtekst
dim datumnr
dim gekozenoptie
set cn=server.CreateObject("ADODB.connection")
set rsData=server.CreateObject("ADODB.recordset")
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & server.MapPath("..\..\..\database\leercentrum.mdb")
'rsData.Open "select * from data where datum >= #" & date() & "#",cn,1,3
sqlstring= "select * from datachronologisch "
rsData.Open sqlstring,cn,1,3
%>
<%
'wanneer de datum gekozen is worden alle velden opgevuld met deelnemers voor die dag
select case Request.QueryString("do")
case "Deelnemerslijstweergeven"
dim rsDeelnemers
dim strDeelnemers
set rsDeelnemers=server.CreateObject("ADODB.recordset")
strDeelnemers = "select * from deelnemers where deelnemers.datumnummer = " & gekozenoptie
'& ""
rsDeelnemers.Open strDeelnemers ,cn,1,3
'alle deelnemers in de lijst zetten en controleren of er nog deelnemers bijkunnen
%>
Nr
Deelnemer
Cursus
<%
teller = 0
do while not rsDeelnemers.EOF
teller = teller+1 %>
<% =teller %>
<%=rsDeelnemers("Naam")%>
<%=rsDeelnemers("huidige_cursus")%>
<%
rsDeelnemers.MoveNext
loop %>
<%
if teller >= 16 then %>
Sorry maar deze klas is volzet
Ben je ingeschreven, maar kan je niet komen? Verwittig het secretariaat of de leerkracht.
<% else %>
<% end if
'op de hoofdpagina (wanneer nog geen datum is gekozen) wordt er geen enkele do parameter meegegeven en krijgt de gebruiker de infopagina te zien
case ""%>
Open leercentrum
Ons open leercentrum is opnieuw geopend.
Voor:
alle cursisten van het CVOTemse
hoofdzakelijk voor de cursisten uit de basiscursussen, zoals initiatie, word 1, excel 1, windows 1, internet, zij kunnen rekenen op hulp van de aanwezige leerkracht
cursisten uit andere cursussen kunnen komen oefenen (voor zover de nodige software op de beschikbare pc aanwezig is), of de aanwezige leerkracht kan helpen is niet verzekerd.
Bedoeling:
Je komt in een pcklas oefeningen maken, die je anders thuis zou maken.
Voordelen:
als je een probleempje hebt dan is er een leerkracht in de buurt die je even op weg kan helpen.
Waar / Wanneer
In labo 2 (windows XP) en labo 3 (windows vista) op dinsdagnamiddag van 12.50 tot 15.15 uur. Voor de data zie keuzelijst hierboven.
Een open leercentrum op donderdagavond behoort tot de mogelijkheden vanaf april. Als je hiervoor geinteresseerd bent stuur mij een mailtje .
Inschrijven
Wil je zeker zijn dat er nog plaats is reserveer dan je pc. Mensen die reserveren hebben voorrang. Inschrijven is niet verplicht, als je op het leercentrum aankomt dan mag je een niet gereserveerde pc gebruiken.
<%
'hier worden de deelnemers in de lijst gezet, als er tekstvakken leeg blijven wordt dit opgevangen met een foutmelding
'hier zit ook de controle zodat niemand zich tweemaal in de lijst kan zetten
case "inschrijven"
dim strNaam
dim strCursus
dim rsNaam
Request.Form("txtdatum")
strNaam=Request.Form("txtNaam")
strCursus=Request.Form("txtCursus")
slcnummer= Request.Form("slcnummer")
set rsDeelnemers=server.CreateObject("ADODB.recordset")
strDeelnemers = "select * from deelnemers where deelnemers.datumnummer = " & slcnummer & ""
rsDeelnemers.Open strDeelnemers ,cn,1,3
Teller=0
do while not rsDeelnemers.EOF
teller = teller+1
rsDeelnemers.MoveNext
loop
if teller>=16 then
Response.Write("Sorry maar de klas is volzet. Probeer je volgende keer sneller in te schrijven.")
end if
if strNaam = "" then %>
<% Response.Write("Je bent je naam en voornaam vergeten invullen. Gelieve dit opnieuw te proberen") %>
<%
else
if strCursus ="" then %>
<% Response.Write("Je bent je cursus vergeten invullen. Gelieve dit opnieuw te proberen") %>
<%
else
dim rsInvoegen
dim strInvoegen
set rsInvoegen=server.CreateObject("ADODB.recordset")
StrInvoegen="select * from deelnemers where datumnummer = " & Request.Form("slcnummer") & ""
rsInvoegen.open strInvoegen,cn,1,3
do while not rsInvoegen.EOF
nieuwenaam=lcase(trim(Request.Form("txtNaam")&" "))
behandeldenaam=lcase(trim(rsInvoegen("naam")&" "))
if nieuwenaam = behandeldenaam then
Response.Redirect("leercentrum1.asp?do=error")
end if
rsInvoegen.MoveNext
loop
dim strInvoerenDatum
dim rsInvoerenDatum
strInvoegenDatum = "insert into deelnemers (naam,datuminschr, huidige_cursus, datumnummer) values ( '" & request.form("txtNaam") &"', '" & date() & "' ,'" & request.form("txtCursus") &"', '" & request.form("slcnummer")&"')"
cn.execute strInvoegenDatum %>
<%
Response.Write("Je gegevens werden ingevoerd") %>
<%
end if
end if
case "error"
Response.Write("Deze naam is al ingeschreven voor deze datum")
end select
%>