<%@ Language=VBScript %> <% '************************************************************************************ 'Samples Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(" : Samples List",metatag,terms, "") %>

Sample List

When a Unit is excavated a set of samples are taken from it, this means that parts of the unit are placed in special containers and labelled. These samples are saved for analytical purposes and are used by the Specialists on the site to discover more about the activity and the environment surrounding the Unit when it was exposed.

<% if Request.QueryString("ListBy") = "" AND Request.QueryString("num") = "" AND Request.form = "" AND request.querystring("whichpage") = ""then %>
    No groupings available yet
<% else if Request.QueryString("ListBy") <> "" AND Request.Form = "" then 'this is a browse call session("sql") = "" %>
    <% Call SampleList(Request.QueryString("ListBy"), "", "", "") %>
<% elseif Request.querystring("whichpage") <> "" then if session("sql") <> "" then ''Response.Write session("sql") 'Call UnitList(Request.QueryString("search"), "", "", Request.QueryString("extra")) Call SampleList(Request.QueryString("search"), "","", Request.QueryString("extra")) else Response.Write("Sorry but the parameters set to display this information have been lost, please search the sample information again or try refreshing the page") end if else dim where, val, tbl, txtCrtieria session("sql") = "" if Request.Form("ExcaSampleText") <> "" AND request.form("EXCASAMPLETEXTSUBMIT") <> "" then val = Request.Form("ExcaSampleText") where = " WHERE [Sample Type] Like '%" & val & "%' OR [Comment] Like '%" & val & "%'" if isnumeric(val) then where = where & " OR [X] = " & val & " OR [Y] = " & val & " OR [Z] = " & val where = where & " OR [Amount] Like '%" & val & "%'" tbl = "[Exca: Samples]" txtCriteria = " that contain the text: " & val elseif Request.Form("ExcaSampleUnit") <> "" AND request.form("EXCASAMPLEUNITSUBMIT") <> "" then if isnumeric(Request.Form("ExcaSampleUnit")) then val = Request.Form("ExcaSampleUnit") where = " WHERE [Unit Number] = " & val tbl = "[Exca: Samples]" txtCriteria = " in the Unit: " & val end if elseif Request.Form("ExcaSampleType") <> "" AND request.form("EXCASAMPLETYPESUBMIT") <> "" then val = Request.Form("ExcaSampleType") where = " WHERE [Sample Type] = '" & val & "'" tbl = "[Exca: Samples]" txtCriteria = " of the Type: " & val elseif Request.QueryString("num") <> "" then 'this call has come from another page and wants the results relating to a partic Unit if isnumeric(Request.QueryString("num")) then val = Request.QueryString("num") where = " WHERE [Unit Number] = " & val tbl = "[Exca: Samples]" txtCriteria = " in the Unit: " & val end if end if %> <%if where <> "" then Call SampleList("Unit Number", where, tbl, txtCriteria) else Response.Write("No valid criteria entered") end if%> <%end if end if %>
<% call footer() %>