<%@ Language=VBScript %> <% '************************************************************************************ 'X Finds Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header("Catalhoyuk Research Project: On-line Database Facility",metatag,terms, "") %>

X Finds List

X-finds are similar to special finds, they are finds that are deemed by the excavator to require particular attention by the Finds Specialists. This maybe because of the type of find or due to their location. The X-finds for each unit are given a number, this is a running number sequence begining at 1 for the first X-find discovered in the Unit.

<% if Request.QueryString("ListBy") = "" AND Request.QueryString("num") = "" AND Request.form = "" AND request.querystring("whichpage") = "" then %>
    Sorry no browse options are currently available for x-Finds
<% else if Request.QueryString("ListBy") <> "" AND Request.Form = "" then 'this is a browse call session("sql") = "" %> <% Call FindsList(Request.QueryString("ListBy"), "", "", "") %> <% elseif Request.querystring("whichpage") <> "" then if session("sql") <> "" then ''Response.Write session("sql") Call FindsList(Request.QueryString("search"), "","", Request.QueryString("extra")) else Response.Write("Sorry but the parameters set to display this information have been lost, please search the x-finds information again or try refreshing the page") end if else dim where, val, tbl, txtCrtieria session("sql") = "" if Request.Form("ExcaFindsText") <> "" AND request.form("EXCAFINDSTEXTSUBMIT") <> "" then val = Request.Form("ExcaFindsText") where = " WHERE [Type] Like '%" & val & "%'" if isnumeric(val) then where = where & "OR [Unit Number] = " & val & " OR [X] = " & val & " OR [Y] = " & val & " OR [Z] = " & val tbl = "[Exca: X-Finds: Basic Data]" txtCriteria = " that contain the text: " & val elseif Request.Form("ExcaFindsUnit") <> "" AND request.form("EXCAFINDSUNITSUBMIT") <> "" then if isnumeric(Request.Form("ExcaFindsUnit")) then val = Request.Form("ExcaFindsUnit") where = " WHERE [Unit Number] = " & val tbl = "[Exca: X-Finds: Basic Data]" txtCriteria = " in the Unit: " & val end if 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: X-Finds: Basic Data]" txtCriteria = " in the Unit: " & val end if end if %> <%if where <> "" then Call FindsList("Unit Number", where, tbl, txtCriteria) else Response.Write("No valid criteria entered") end if%> <%end if end if %>
<% call footer() %>