<%

aanmelden=false

%>
<!--#include file="../include/variabelen_cm.inc"-->
<!--#include file="../include/constanten_cm.inc"-->
<!--#include file="../include/tabellen.inc"-->
<!--#include file="../functies/db.inc"-->
<!--#include file="../include/security.inc"-->
<!--#include file="../functies/functies.inc"-->
<!--#include file="../functies/filefuncties.inc"-->
<!--#include file="../functies/convert.inc"-->
<!--#include file="../functies/check_variabelen.inc"-->
<!--#include file="../functies/get_knoppen.inc"-->
<!--#include file="../functies/knoppen_sessionarray.inc"-->
<%

agent=Request.ServerVariables("HTTP_USER_AGENT")



nu=IsoDate(Now)
id=0
knop_id=0

if (isEmpty(Session("ses_knoppen"))) then 
	knoppen2=knoppen_sessionarray()
	if (NOT isEmptyArray(knoppen2)) then 
		knoppenstr=""
		for i=0 to UBound(knoppen2)
			tmparr=knoppen2(i)
			tmpstr=Join(tmparr,"**")
			if (i=0) then knoppenstr=tmpstr else knoppenstr=knoppenstr&"##"&tmpstr
		next
	else
		knoppenstr=""
	end if
	Session("ses_knoppen")=knoppenstr
else
	knoppen2=Split(Session("ses_knoppen"),"##")
	if (NOT isEmptyArray(knoppen2)) then 
		for i=0 to UBound(knoppen2)
			knoppen2(i)=Split(knoppen2(i),"**")
		next
	end if
end if


index=-1
if (index=-1 AND NOT isEmptyArray(knoppen2)) then index=0

if (index>-1) then 
	knp_id=knoppen2(index)(0)
	naam=knoppen2(index)(1)
	parent=knoppen2(index)(2)
	plaats=knoppen2(index)(3)
	main_url=knoppen2(index)(4)
	soort=knoppen2(index)(5)

	while(main_url="" AND index>-1)
		index=-1
		for i=0 to UBound(knoppen2)
			if (CDbl(knoppen2(i)(2))=CDbl(knp_id)) then  
				index=i
				i=UBound(knoppen2)
			end if
		next
	
		if (index>-1) then 
			knp_id=knoppen2(index)(0)
			naam=knoppen2(index)(1)
			parent=knoppen2(index)(2)
			plaats=knoppen2(index)(3)
			main_url=knoppen2(index)(4)
			soort=knoppen2(index)(5)
		end if
	wend
else 
	main_url=""
	knp_id=-1
	soort=0
end if
	


inh=""
Set result=dsd_exec(conn,"select W1.id, W1.naam, W1.parent, W3.id, W3.naam from "&tabel1&" W1, "&tabel14&" W2, "&tabel4&" W3 where W3.gekoppeld_aan=W1.id AND W1.id=W2.id_knop AND W2.id_groep=-1 AND W1.plugin=0 AND W1.standaard=0 AND W3.gecontroleerd_door is not null AND W3.soort in ("&cBESTAND&", "&cHTML&", "&cHTML_FORMULIER&") AND W3.datum_publicatie<='"&nu&"' AND (W3.datum_eind>='"&nu&"' OR W3.datum_eind is NULL) order by W1.plaats",0)
while(dsd_fetch(result, values))
	knop=values(0)
	knopnaam=values(1)
	parent=values(2)
	id=values(3)
	naam=values(4)
			
	naam=htmlspecialchars(naam)
	
	tmparr=dsd_exec_row(conn,"select url from "&v_schema&".urls where id="&id&" and len(url)>1",0,1)
	res=tmparr(0)
	row=tmparr(1)
	if (row>0) then 
		tmparr=dsd_fetch_row(res,0)
		url=tmparr(0)

		if (inh<>"") then inh=inh&vbCrLf
		inh=inh&"http://"&Request.ServerVariables("SERVER_NAME") & url
	else
		while (parent<>"0") 
			tmparr=dsd_exec_row(conn,"select id, naam, parent from "&tabel1&" where id="&parent,0,1)
			res=tmparr(0)
			row=tmparr(1)
			if (row>0) then 
				tmparr=dsd_fetch_row(res,0)
				knop=tmparr(0)
				knopnaam=tmparr(1)
				parent=tmparr(2)
			else
				parent="0"
			end if
		wend
			
		knopnaam=Replace(knopnaam," ", "_")
		knopnaam=Replace(knopnaam,"""", "")
		knopnaam=Replace(knopnaam,"'", "")
		knopnaam=Replace(knopnaam,"\", "")
	
		if (inh<>"") then inh=inh&vbCrLf
		inh=inh&"http://"&Request.ServerVariables("SERVER_NAME") &"/"&knopnaam&"/"&id&".html"
	end if
wend
dsd_free_resource(result)
Response.write(inh)

%>