<%=(rsContent.Fields.Item("NLPageTitle").Value)%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsContent__MMColParam rsContent__MMColParam = "38" If (Request.QueryString("WebpageId") <> "") Then rsContent__MMColParam = Request.QueryString("WebpageId") End If %> <% Dim rsContent Dim rsContent_cmd Dim rsContent_numRows Set rsContent_cmd = Server.CreateObject ("ADODB.Command") rsContent_cmd.ActiveConnection = MM_connGlobalgreen_STRING rsContent_cmd.CommandText = "SELECT Image1, isOnline, NLContentBody, NLDescription, NLKeywords, NLPageTitle, WebpageId FROM Webpages WHERE WebpageId = ?" rsContent_cmd.Prepared = true rsContent_cmd.Parameters.Append rsContent_cmd.CreateParameter("param1", 5, 1, -1, rsContent__MMColParam) ' adDouble Set rsContent = rsContent_cmd.Execute rsContent_numRows = 0 %> <% Dim rsTree Dim rsTree_cmd Dim rsTree_numRows Set rsTree_cmd = Server.CreateObject ("ADODB.Command") rsTree_cmd.ActiveConnection = MM_connGlobalgreen_STRING rsTree_cmd.CommandText = "SELECT MenuId, MenuTitleNl, ParentTipId, MenuLink, MenuOrder FROM QueryMenuTips ORDER BY MenuOrder" rsTree_cmd.Prepared = true Set rsTree = rsTree_cmd.Execute rsTree_numRows = 0 %> <% 'TreeMenu1 Start ' Set TreeMenu1 = new MX_TreeMenu TreeMenu1.Init "TreeMenu1" TreeMenu1.setQuery rsTree TreeMenu1.setPK "MenuId" TreeMenu1.setFK "ParentTipId" TreeMenu1.setNameField "MenuTitleNl" TreeMenu1.setTitleField "MenuTitleNl" 'URL Type: Dynamic TreeMenu1.setLinkField "MenuLink" TreeMenu1.setTargetField "" 'TreeMenu1 Layout TreeMenu1.highlightCurrent true TreeMenu1.setLevel -1 'TreeMenu1 End %> <%' Redirect if page is offline If (rsContent.Fields.Item("isOnline").Value) = false Then Response.Redirect("../404.htm") End if %> " /> " /> <%=(rsContent.Fields.Item("NLPageTitle").Value)%>

<%=(rsContent.Fields.Item("NLContentBody").Value)%>

<% 'Dynamic Tree menu Response.write (TreeMenu1.render) %>

<% rsContent.Close() Set rsContent = Nothing %> <% rsTree.Close() Set rsTree = Nothing %>