<% Dim rechoutma Dim rechoutma_numRows Set rechoutma = Server.CreateObject("ADODB.Recordset") rechoutma.ActiveConnection = MM_Database1_STRING rechoutma.Source = "SELECT * FROM qryhildewebsite WHERE MomentShort='Ma (av)' AND Studiegebied LIKE 'hout'" rechoutma.CursorType = 0 rechoutma.CursorLocation = 2 rechoutma.LockType = 1 rechoutma.Open() rechoutma_numRows = 0 %> <% Dim rechoutdi Dim rechoutdi_numRows Set rechoutdi = Server.CreateObject("ADODB.Recordset") rechoutdi.ActiveConnection = MM_Database1_STRING rechoutdi.Source = "SELECT * FROM qryhildewebsite WHERE MomentShort='Di (av)' AND Studiegebied LIKE 'hout'" rechoutdi.CursorType = 0 rechoutdi.CursorLocation = 2 rechoutdi.LockType = 1 rechoutdi.Open() rechoutdi_numRows = 0 %> <% Dim rechoutvrvm Dim rechoutvrvm_numRows Set rechoutvrvm = Server.CreateObject("ADODB.Recordset") rechoutvrvm.ActiveConnection = MM_Database1_STRING rechoutvrvm.Source = "SELECT * FROM qryhildewebsite WHERE MomentShort='Vr (vm)' AND Studiegebied LIKE 'hout'" rechoutvrvm.CursorType = 0 rechoutvrvm.CursorLocation = 2 rechoutvrvm.LockType = 1 rechoutvrvm.Open() rechoutvrvm_numRows = 0 %> <% Dim rechoutwoe Dim rechoutwoe_numRows Set rechoutwoe = Server.CreateObject("ADODB.Recordset") rechoutwoe.ActiveConnection = MM_Database1_STRING rechoutwoe.Source = "SELECT * FROM qryhildewebsite WHERE MomentShort='Wo (av)' AND Studiegebied LIKE 'hout'" rechoutwoe.CursorType = 0 rechoutwoe.CursorLocation = 2 rechoutwoe.LockType = 1 rechoutwoe.Open() rechoutwoe_numRows = 0 %> <% Dim rechoutdon Dim rechoutdon_numRows Set rechoutdon = Server.CreateObject("ADODB.Recordset") rechoutdon.ActiveConnection = MM_Database1_STRING rechoutdon.Source = "SELECT * FROM qryhildewebsite WHERE MomentShort='Do (av)' AND Studiegebied LIKE 'hout'" rechoutdon.CursorType = 0 rechoutdon.CursorLocation = 2 rechoutdon.LockType = 1 rechoutdon.Open() rechoutdon_numRows = 0 %> <% Dim rssemester Dim rssemester_numRows Set rssemester = Server.CreateObject("ADODB.Recordset") rssemester.ActiveConnection = MM_Database1_STRING rssemester.Source = "SELECT distinct Semester FROM qryhildewebsite WHERE Studiegebied LIKE 'hout'" rssemester.CursorType = 0 rssemester.CursorLocation = 2 rssemester.LockType = 1 rssemester.Open() rssemester_numRows = 0 %> <% Dim houtalles Dim houtalles_numRows Set houtalles = Server.CreateObject("ADODB.Recordset") houtalles.ActiveConnection = MM_Database1_STRING houtalles.Source = "SELECT * FROM qryhildewebsite WHERE Studiegebied LIKE 'hout'" houtalles.CursorType = 0 houtalles.CursorLocation = 2 houtalles.LockType = 1 houtalles.Open() houtalles_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 recautoma_numRows = recautoma_numRows + Repeat1__numRows %> <% Dim Repeat23__numRows Dim Repeat23__index Repeat23__numRows = -1 Repeat23__index = 0 rechoutdon_numRows = rechoutdon_numRows + Repeat23__numRows %> <% Dim Repeat21__numRows Dim Repeat21__index Repeat21__numRows = -1 Repeat21__index = 0 rechoutwoe_numRows = rechoutwoe_numRows + Repeat21__numRows %> <% Dim Repeat20__numRows Dim Repeat20__index Repeat20__numRows = -1 Repeat20__index = 0 rechoutdi_numRows = rechoutdi_numRows + Repeat20__numRows %> <% Dim Repeat24__numRows Dim Repeat24__index Repeat24__numRows = -1 Repeat24__index = 0 rechoutvrvm_numRows = rechoutvrvm_numRows + Repeat24__numRows %> <% Dim Repeat19__numRows Dim Repeat19__index Repeat19__numRows = -1 Repeat19__index = 0 rechoutma_numRows = rechoutma_numRows + Repeat19__numRows %>

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

  Centrum voor volwassenenonderwijs regio Waasland

U bevindt zich hier: Home > Lesroosters > Lesrooster Hout
 

Lesrooster Hout: <% While ((Repeat1__numRows <> 0) AND (NOT rssemester.EOF)) %> <%=(rssemester.Fields.Item("Semester").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rssemester.MoveNext() Wend %>

<% If houtalles.EOF And houtalles.BOF Then %>

Het lesrooster voor volgend semester is momenteel nog niet beschikbaar.

<% End If ' end houtalles.EOF And houtalles.BOF %> <% If Not houtalles.EOF Or Not houtalles.BOF Then %>

Alle cursussen hebben plaats in onze vestiging te Sint-Niklaas.

 
Maandag
Dinsdag
Avond <% While ((Repeat19__numRows <> 0) AND (NOT rechoutma.EOF)) %> <% Repeat19__index=Repeat19__index+1 Repeat19__numRows=Repeat19__numRows-1 rechoutma.MoveNext() Wend %>
<%=(rechoutma.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat20__numRows <> 0) AND (NOT rechoutdi.EOF)) %> <% Repeat20__index=Repeat20__index+1 Repeat20__numRows=Repeat20__numRows-1 rechoutdi.MoveNext() Wend %>
<%=(rechoutdi.Fields.Item("PraktijkNaam").Value)%>

 
Woensdag
Donderdag
Avond <% While ((Repeat21__numRows <> 0) AND (NOT rechoutwoe.EOF)) %> <% Repeat21__index=Repeat21__index+1 Repeat21__numRows=Repeat21__numRows-1 rechoutwoe.MoveNext() Wend %>
<%=(rechoutwoe.Fields.Item("PraktijkNaam").Value)%>
<% While ((Repeat23__numRows <> 0) AND (NOT rechoutdon.EOF)) %> <% Repeat23__index=Repeat23__index+1 Repeat23__numRows=Repeat23__numRows-1 rechoutdon.MoveNext() Wend %>
<%=(rechoutdon.Fields.Item("PraktijkNaam").Value)%>

 
Vrijdag
 
Voormiddag
<% While ((Repeat24__numRows <> 0) AND (NOT rechoutvrvm.EOF)) %> <% Repeat24__index=Repeat24__index+1 Repeat24__numRows=Repeat24__numRows-1 rechoutvrvm.MoveNext() Wend %>
<%=(rechoutvrvm.Fields.Item("PraktijkNaam").Value)%>
 

<% End If ' end Not houtalles.EOF Or NOT houtalles.BOF %>
 
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
 
<% rssemester.Close() Set rssemester = Nothing %> <% houtalles.Close() Set houtalles = Nothing %> <% rechoutdon.Close() Set rechoutdon = Nothing %> <% rechoutwoe.Close() Set rechoutwoe = Nothing %> <% rechoutdi.Close() Set rechoutdi = Nothing %> <% rechoutvrvm.Close() Set rechoutvrvm = Nothing %> <% rechoutma.Close() Set rechoutma = Nothing %>