<% '''''''''''''''''''''''' Function Descriptions and Usage '''''''''' '''''''''''''''''''' ''' DO NOT EDIT ANY FILES other than those in the root directory. ie. index.asp, page2.asp, global.asa and CSS style sheets. ''' All other code modifications require clearance through support@atlanticbt.com and another code version should be created for your request '''''''''''''''''''''''''''' Functions ''''''''''''''''''''''''''''''''''''''''''''''''''' '' GetPageInfo(id,column) '' this function returns information from the content table for the id and column specified '' example usage: response.write GetPageInfo(1,"title") '' columns: title, meta, content, category, sort_position, maingraphic, navdisplay '' GetCategoryPages(category,pre,post,targeturl) -- this function returns the categories in basic format: '' {pre}category name{post} '' example usage: response.write GetCategoryPages(1,"
  • ","
    • ","/index.asp") '' GetMainGraphic(id) -- this function returns the filename of the selected graphic for the page. '' If "random" is selected this will return a random graphic from the images folder '' example usage: '' GetCategoryName(id) -- this function returns the name of the category '' example usage: response.write GetCategoryName(id) '' GetFeature(PageID, FeatureID, Pre, Post, displayTitle) -- this function returns the Page Feature wraped by pre and post '''''''''''''''''''''''''' End Functions ''''''''''''''''''''''''''''''''''''''''''''''''' %> <% id = request.querystring("id") %> <% HomeID = GetHomePageID() %> <%if id <> 0 then response.Write("MRINetwork The Sussex Group - " &GetPageInfo(id, "PageTitle")) else Response.Write("MRI Network The Sussex Group") end if%> <% menu1 = 2 menu2 = 3 menu3 = 4 MainPaneID = GetNthPageFromCategory(1,1) RightTopPaneID = GetNthPageFromCategory(1,2) RightBottomPaneID = GetNthPageFromCategory(1,3) %> inner<% else %>index<% end if %>">
    <%="Today's Date is "&MonthName(Month(date))&" "&Day(Date)&", "&year(date)%>

    <%=GetCategoryName(menu1)%>

      <%GetCategoryPages menu1,"
    • ","
      • ","index.asp"%>
    <% if id = "" then %>

    Our Services

    <% GetFeature HomeID, 5, "", "", "", "" %>
    <% else %>

    <%=GetCategoryName(menu2) %>

      <% GetCategoryPages menu2,"
    • ","
      • ","index.asp" %>

    <%=GetCategoryName(menu3) %>

      <% GetCategoryPages menu3,"
    • ","
      • ","index.asp" %>
    <% end if %>
    <% if id <> "" then %> <% GetFeature id, 5, "", "", "firstright_box", "" preHTML = "" postHTML = "" GetFeature id, 1, preHTML, postHTML, "firstright_box", "Testimonials" GetFeature id, 4, "", "", "firstright_box", "Poll" %> <% else %>

    <%=GetPageInfo(RightTopPaneID, "PageTitle")%>

    <%=GetPageInfo(RightTopPaneID, "Content")%>

    <%=GetPageInfo(RightBottomPaneID, "PageTitle")%>

    <%=GetPageInfo(RightBottomPaneID, "Content")%>
    <% end if %>
    <% if Request.QueryString("searchterm") <> "" and Request.QueryString("submit") = "submit" then %>

    Search Results

    <% GetSearchResults(Request.QueryString("searchterm")) %> <% else %> <% if id <> "" then %>

    <%=GetCategoryName( GetPageInfo(id, "ZoneID"))%>

    <% else %>

    <%=GetPageInfo(MainPaneID, "PageTitle")%>

    <% end if %> <% if id <> "" then %>
    /<%=GetMainGraphic(id)%>">
    <% else %>
    /HomeImages/<%=GetMainGraphic(HomeID)%>">
    <% end if %> <% if id <> "" then %>

    <%=GetPageInfo(id, "PageTitle")%>

    <%if Request.ServerVariables("REQUEST_METHOD")= "POST" then SendResume else %> <% formTest = GetPageInfo(id, "Content") if formTest = "InsertSubmitForm" then DisplayForm else response.Write(formTest) end if %> <% end if %>
    <% else %>
    <%=GetPageInfo(MainPaneID, "Content")%>
    <% end if %> <% end if %>

    Copyright © <%=Application("Year")%> <%=Application("CompanyTitle")%>. All Rights Reserved.

    Copyright © <%=Application("Year")%> MRINetwork - All offices are independently owned and operated.