<% Dim rsmeerderemomentenperweek Dim rsmeerderemomentenperweek_numRows Set rsmeerderemomentenperweek = Server.CreateObject("ADODB.Recordset") rsmeerderemomentenperweek.ActiveConnection = MM_Database1_STRING rsmeerderemomentenperweek.Source = "SELECT ExtraCurData.ExtraCurNr, CTMomenten.MomentShort, ExtraCurData.CurNr FROM ExtraCurData INNER JOIN CTMomenten ON ExtraCurData.SorteerCode = CTMomenten.SorteerCode WHERE (((ExtraCurData.CurNr)=16104));" rsmeerderemomentenperweek.CursorType = 0 rsmeerderemomentenperweek.CursorLocation = 2 rsmeerderemomentenperweek.LockType = 1 rsmeerderemomentenperweek.Open() rsmeerderemomentenperweek_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='Bouw' " rssemester.CursorType = 0 rssemester.CursorLocation = 2 rssemester.LockType = 1 rssemester.Open() rssemester_numRows = 0 %> <% Dim rebouwalles Dim rebouwalles_numRows Set rebouwalles = Server.CreateObject("ADODB.Recordset") rebouwalles.ActiveConnection = MM_Database1_STRING rebouwalles.Source = "SELECT * FROM qryhildewebsite WHERE Afkorting='InstDomotica'" rebouwalles.CursorType = 0 rebouwalles.CursorLocation = 2 rebouwalles.LockType = 1 rebouwalles.Open() rebouwalles_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 recautoma_numRows = recautoma_numRows + Repeat1__numRows %> <% Dim Repeat15__numRows Dim Repeat15__index Repeat15__numRows = -1 Repeat15__index = 0 recbouwma_numRows = recbouwma_numRows + Repeat15__numRows %> <% Dim Repeat99__numRows Dim Repeat99__index Repeat99__numRows = -1 Repeat99__index = 0 recautowoe_numRows = recautowoe_numRows + Repeat99__numRows %>

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

  Centrum voor volwassenenonderwijs regio Waasland

U bevindt zich hier: Home > Lesroosters > Lesrooster Elektriciteit
 

Lesrooster Elektriciteit: <% 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 rebouwalles.EOF And rebouwalles.BOF Then %>

Het lesrooster voor volgend semester is momenteel nog niet beschikbaar.

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

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

    <% While ((Repeat15__numRows <> 0) AND (NOT rebouwalles.EOF)) %>
  • <%=(rebouwalles.Fields.Item("PraktijkNaam").Value)%>  <% rsmeerderemomentenperweek.Close() rsmeerderemomentenperweek.Source = "SELECT ExtraCurData.ExtraCurNr, CTMomenten.MomentShort, ExtraCurData.CurNr FROM ExtraCurData INNER JOIN CTMomenten ON ExtraCurData.SorteerCode = CTMomenten.SorteerCode WHERE (((ExtraCurData.CurNr)=" & rebouwalles.Fields.Item("CurNr").Value & "))ORDER BY ExtraCurData.SorteerCode; " rsmeerderemomentenperweek.Open() While ((Repeat99__numRows <> 0) AND (NOT rsmeerderemomentenperweek.EOF)) response.write((rsmeerderemomentenperweek.Fields.Item("MomentShort").Value)& " ") Repeat99__index=Repeat99__index+1 Repeat99__numRows=Repeat99__numRows-1 rsmeerderemomentenperweek.MoveNext() Wend %>
    • <% Repeat15__index=Repeat15__index+1 Repeat15__numRows=Repeat15__numRows-1 rebouwalles.MoveNext() Wend %>
 

 

<% End If ' end Not rebouwalles.EOF Or NOT rebouwalles.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 %> <% rebouwalles.Close() Set rebouwalles = Nothing %> <% rsmeerderemomentenperweek.Close() Set rsmeerderemomentenperweek = Nothing %>