<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Dim eerstevandemaand, eerstevolgendemaand, eerstvolgendemaandeuropa, eerstevandemaandeuropees, eerstevorigemaandeuropees if Request.QueryString("gevraagdedatum")= "" then eerstevandemaand = Month(date()) & "/1/" & Year(date()) eerstevandemaandeuropees = "1/" & Month(date()) &"/" & Year(date()) if Month(date()) = 12 then eerstevolgendemaand = "1/1/" & Year(date())+1 eerstvolgendemaandeuropa = "1/1/" & Year(date())+1 else eerstevolgendemaand = Month(date())+1 & "/1/" & Year(date()) eerstvolgendemaandeuropa = "1/" & Month(date())+1 & "/" & Year(date()) end if if Month(date()) = 1 then eerstevorigemaandeuropees ="1/12/" & Year(date())-1 else eerstevorigemaandeuropees = "1/" & Month(date())-1 & "/" & Year(date()) end if else eerstevandemaand = Month(Request.QueryString("gevraagdedatum")) & "/1/" & Year(Request.QueryString("gevraagdedatum")) eerstevandemaandeuropees = "1/" & Month(Request.QueryString("gevraagdedatum"))&"/" & Year(Request.QueryString("gevraagdedatum")) if Month(Request.QueryString("gevraagdedatum")) = 12 then eerstevolgendemaand = "1/1/" & Year(Request.QueryString("gevraagdedatum"))+1 eerstvolgendemaandeuropa = "1/1/" & Year(Request.QueryString("gevraagdedatum"))+1 else eerstevolgendemaand = Month(Request.QueryString("gevraagdedatum"))+1 & "/1/" & Year(Request.QueryString("gevraagdedatum")) eerstvolgendemaandeuropa = "1/" & Month(Request.QueryString("gevraagdedatum"))+1 & "/" & Year(Request.QueryString("gevraagdedatum")) end if if Month(Request.QueryString("gevraagdedatum")) = 1 then eerstevorigemaandeuropees ="1/12/" & Year(Request.QueryString("gevraagdedatum"))-1 else eerstevorigemaandeuropees = "1/" & Month(Request.QueryString("gevraagdedatum"))-1 & "/" & Year(Request.QueryString("gevraagdedatum")) end if end if Recordset1__MMColParam = "#" & eerstevandemaand & "#" If (Request.QueryString("eventdatestart") <> "") Then Recordset1__MMColParam = Request.QueryString("eventdatestart") End If %> <% Dim Recordset1__MMColParam2 Recordset1__MMColParam2 = "#" & eerstevolgendemaand & "#" If (Request.QueryString("eventdatestop") <> "") Then Recordset1__MMColParam2 = Request.QueryString("eventdatestop") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conkalender_STRING Recordset1.Source = "SELECT * FROM tblevent2 WHERE (eventdate >= " + Replace(Recordset1__MMColParam, "'", "''") + ") and (eventdate < " + Replace(Recordset1__MMColParam2, "'", "''") + ")" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> CVO Janitor Sint-Niklaas Beveren Kalender

Zoeken | RSS | Moodle
Sint-Niklaas | Beveren | Sint-Gillis

  Centrum voor volwassenenonderwijs regio Waasland

U bevindt zich hier: Home > Algemene info > Kalender
 
Bouw
  • Je eigen huis bouwen of verbouwen?
  • Leren metselen, vloeren of wandtegels plaatsen?

Meer... 

Kalender
print

Hier kan u alle vakantiedagen en activiteiten terugvinden die op onze school plaatsvinden.

Attestuitreiking eerste semester Beveren (Puithoek) : 26 januari 2011

Attestuitreiking eerste semester Sint-Niklaas : 27 januari 2011

Krokusvakantie : 7 maart - 11 maart 2011

Paasvakantie : 11 april - 26 april 2011

Hemelvaart : 2 juni - 3 juni 2011

 
Janitor, Centrum voor Volwassenenonderwijs van het Gemeenschapsonderwijs, Noordlaan 32, 9100 Sint-Niklaas
Tel: 03/760.96.00 Fax: 03/760.96.02 E-mail: info@janitor.be Website: http://www.janitor.be
 
<% Recordset1.Close() Set Recordset1 = Nothing %>