<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsContent__MMColParam rsContent__MMColParam = "1" 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 %> <%' Redirect if page is offline If (rsContent.Fields.Item("isOnline").Value) = false Then Response.Redirect("../404.htm") End if %> " /> " />

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

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