|
<% generateBreadcrumPath %>Sitemap |
Sitemap
<%
Response.write " "
sqlGetHoofdmenu = "SELECT id, titel, directory, file FROM hoofdmenuitems ORDER BY volgorde"
set rsHoofdmenu = Server.CreateObject("ADODB.Recordset")
rsHoofdmenu.open sqlGetHoofdmenu, ConnMenu
if not rsHoofdmenu.eof then
do while not rsHoofdmenu.eof
strHoofdmenuID = rsHoofdmenu("id")
strHoofdmenuTitel = rsHoofdmenu("titel")
strHoofdmenuDirectory = rsHoofdmenu("directory")
strHoofdmenuURL = rsHoofdmenu("file")
if(strHoofdmenuDirectory = "ROOT") then
strAddSlash = ""
strHoofdmenuDirectory = ""
else
strAddSlash = "/"
end if
Response.write "- "&strHoofdmenuTitel&""
Response.write "
"
'-B-- haal SubMenuItems op
sqlGetSubmenu = "SELECT id, titel, file FROM submenuitems WHERE hoofdmenuid="&strHoofdmenuID&" ORDER BY volgorde"
set rsSubmenu = Server.CreateObject("ADODB.Recordset")
rsSubmenu.open sqlGetSubmenu, ConnMenu
if not rsSubmenu.eof then
do while not rsSubmenu.eof
strSubmenuID = rsSubmenu("id")
strSubmenuTitel = rsSubmenu("titel")
strSubdmenuURL = rsSubmenu("file")
Response.write "- "&strSubmenuTitel&"
"
rsSubmenu.moveNext
loop
end if
Response.write " "
rsHoofdmenu.moveNext
loop
end if
Response.write " "
%>
<% generateTagCloud %>
|
|
<%generateAddThis%>
|