<%@ Language=VBScript %> <% '************************************************************************************ 'Full Diary record '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Excavation Diary Record",metatag,terms, "") if Request.QueryString("id") = "" then Response.Write("No diary record id passed in, no information to display") else %> <% end if %>

Excavation Diary Entry

<%call WriteOutFullDiaryRecord(request.querystring("id"))%>
Back to Diary Entry List
 
<% call footer() %>