<%@ Language=VBScript %> <% '************************************************************************************ 'Diary Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Excavation Diary Browse",metatag,terms, "") 'when this page is called scrap any sql held in session Session("sql") = "" Session("nav") = "browse" %>

Excavation Diaries

The excavation diaries are a daily log kept by the excavators on site during each season. They record the day to day activity of the team and their observations on their work.

<% if Request.QueryString("ListBy") = "" AND Request.form = "" then %> <% else %>
    <%if Request.querystring("ListBy") = "year" then 'Response.Write("
  • Years with Diary entries
    ") elseif Request.querystring("ListBy") = "building" then Response.Write("
    • List by Year

      ") 'Response.Write("
    • Buildings with Diary entries:
      ") 'call DiaryBuildingList("list") Call DiaryBuildingListWithEntryCount Response.Write("
    ") else Call DiaryList(Request.QueryString("ListBy"), "", "") end if%>
<% end if %>
<% call footer() %>