<% ID = INT(Request("id"))
IF Session("Abonnee_extra") = 1 THEN
'Horizontaal menu
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "SELECT ID, Titel, kleur, Paginatype FROM vw_cos_menu_abo_extra WHERE parent=0 ORDER BY Volgorde", objConn, 3, 3
'Verticaal submenu
Set objRS3 = Server.CreateObject("ADODB.RecordSet")
objRS3.Open "SELECT Parent FROM vw_cos_menu_abo_extra WHERE ID=" & ID &" ORDER BY Volgorde", objConn, 3, 3
parentID = int(objRS3("Parent"))
IF parentID = 0 THEN
parentID = int(Request("id"))
END IF
Set objRS2 = Server.CreateObject("ADODB.RecordSet")
objRS2.Open "SELECT * FROM vw_cos_menu_abo_extra WHERE parent=" & parentID &" ORDER BY Volgorde", objConn, 3, 3
'Inhoud van de pagina
Set objRS1 = Server.CreateObject("ADODB.RecordSet")
objRS1.Open "SELECT * FROM vw_cos_menu_abo_extra WHERE ID=" & ID , objConn, 3, 3
actievekleur = txtSQL(objRS1("kleur"))
lijnkleur = actievekleur
kolom1 = txtSQL(objRS1("kolom1"))
kolom2 = txtSQL(objRS1("kolom2"))
html = txtSQL(objRS1("html"))
paginatype = txtSQL(objRS1("paginatype"))
ELSE
'Horizontaal menu
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "SELECT ID, Titel, kleur, Paginatype FROM vw_cos_menu WHERE parent=0 ORDER BY Volgorde", objConn, 3, 3
'Verticaal submenu
Set objRS3 = Server.CreateObject("ADODB.RecordSet")
objRS3.Open "SELECT Parent FROM vw_cos_menu WHERE ID=" & ID &" ORDER BY Volgorde", objConn, 3, 3
parentID = int(objRS3("Parent"))
IF parentID = 0 THEN
parentID = int(Request("id"))
END IF
Set objRS2 = Server.CreateObject("ADODB.RecordSet")
objRS2.Open "SELECT * FROM vw_cos_menu WHERE parent=" & parentID &" ORDER BY Volgorde", objConn, 3, 3
'Inhoud van de pagina
Set objRS1 = Server.CreateObject("ADODB.RecordSet")
objRS1.Open "SELECT * FROM vw_cos_menu WHERE ID=" & ID , objConn, 3, 3
actievekleur = objRS1("kleur")
lijnkleur = actievekleur
kolom1 = txtSQL(objRS1("kolom1"))
kolom2 = txtSQL(objRS1("kolom2"))
html = txtSQL(objRS1("html"))
paginatype = txtSQL(objRS1("paginatype"))
END IF
Set RS_agenda = Server.CreateObject("ADODB.RecordSet")
RS_agenda.Open "SELECT TOP 2 * FROM vw_actieve_agenda", objConn, 3, 3
%>
COS - onafhankelijk vaktijdschrift voor eigentijds onderwijs en ict
<% IF Session("Abonnee_extra") <> 1 THEN%>
<% END IF %>
<% IF parentID <> -1 THEN %>
<% While not objRS2.EOF
Titel2 = objRS2("Titel")
ID2 = objRS2("ID")
Paginatype = objRS2("Paginatype")
%>
<% Response.Write Titel2 %>
<% objRS2.MoveNext
Wend
%>
<% ELSE %>
<% END IF %>
<% While not objRS.EOF
Titel = objRS("Titel")
ID1 = objRS("ID")
kleur = objRS("kleur")
actievekleur = objRS1("kleur")
Paginatype = objRS("Paginatype")
IF ID1-parentID <> 0 THEN
actievekleur = "CACCCC"
END IF
%>
<% Response.Write Titel %>
<% objRS.MoveNext
Wend
%>
<% IF kolom1 <> "" THEN %>
<% Response.Write kolom1 %>
<% Response.Write kolom2 %>
<% ELSE %>
<% IF html <> "" THEN
Server.Execute("html\" & html)
ELSE
Server.Execute("html\leeg.asp")
END IF
%>
<% END IF %>
<% END IF %>
