<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_page__MMColParam rs_page__MMColParam = "Home" If (Request.QueryString("p") <> "") Then rs_page__MMColParam = Request.QueryString("p") End If %><% Dim rs_page Dim rs_page_numRows Set rs_page = Server.CreateObject("ADODB.Recordset") rs_page.ActiveConnection = MM_to_db_STRING rs_page.Source = "SELECT * FROM tbl_Pages WHERE entry_Name = '" + Replace(rs_page__MMColParam, "'", "''") + "'" rs_page.CursorType = 0 rs_page.CursorLocation = 2 rs_page.LockType = 1 rs_page.Open() rs_page_numRows = 0 %><% If rs_page.EOF And rs_page.BOF Then response.Redirect("default.asp?p=PageNotFound&q=" & request.QueryString("p")) End If ' end rs_page.EOF And rs_page.BOF %><% 'Prevents loading a picture as content If ((rs_page.Fields.Item("entry_Type").Value)="download") Or ((rs_page.Fields.Item("entry_Type").Value)="picture") then response.Redirect("default.asp?p=" & rs_page.Fields.Item("entry_Section").Value) End If 'End Prevents loading a picture as content%><% this_page=(rs_page.Fields.Item("entry_Name").Value) %> <% If (rs_page.Fields.Item("entry_Name").Value)="Home" Then %><%= website_name %><% Else %><%= website_short_name %> | <%=(rs_page.Fields.Item("entry_Title").Value)%><% End If %> <%description_text=(rs_page.Fields.Item("entry_Description").Value)%> <% if use_breadcrumbs= "On" then %><% End If %> <% call do_style("" & path_prefix & "s/css.css", "screen") call do_style("" & path_prefix & "s/print.css", "print") call do_js("" & path_prefix & "js/firebug/firebug.js")%>
<% if use_breadcrumbs= "On" then %> <% pagesection(rs_page.Fields.Item("entry_Section").Value) %> <% If (rs_page.Fields.Item("entry_Section").Value)<>"root" Then %> <% End If %> <% End If %>

<%=(rs_page.Fields.Item("entry_Title").Value)%><% if MM_grantAccess = true then%> | " target="_blank" class="edit">edit<%end if%>

<% do_picture(rs_page.Fields.Item("entry_Name").Value) %> <% do_download(rs_page.Fields.Item("entry_Name").Value) %> <%=(rs_page.Fields.Item("entry_Content").Value)%> <% 'If request.QueryString("m")="e" Then %><% 'End If %> <% If request.QueryString("p")="Contact" Then %><% End If %> <% If request.QueryString("p")="SiteMap" Then %><% End If %>