<%@ Language=VBScript %> <% '************************************************************************************ 'unit Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header("Catalhoyuk Research Project: On-line Database Facility",metatag,terms, "") %>
<% if Request.QueryString("num") = "" AND Request.form("ExcaUnit") = "" then 'missing building number name - cannot show data %> Sorry no Unit number has been supplied to display, please try again <% else %>
<% dim UnitToFind if Request.QueryString("num") <> "" then UnitToFind = Request.QueryString("num") else UnitToFind = Request.Form("ExcaUnit") end if if isnumeric(UnitToFind) then Call DisplayUnitSheet(UnitToFind) else Response.Write("Invalid Unit Number") end if%> <% end if %>
<%call footer() %>