<%@ Language=VBScript %> <% '************************************************************************************ 'Space 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("ExcaSpace") = "" then 'missing building number name - cannot show data %> <% else %> <% end if %>
Sorry no space number has been supplied to display, please try again
<% dim SpaceToFind if Request.QueryString("num") <> "" then SpaceToFind = Request.QueryString("num") else SpaceToFind = Request.Form("ExcaSpace") end if if isnumeric(SpaceToFind) then Call DisplaySpaceSheet(SpaceToFind) else Response.Write("Invalid Space Number") end if%>
<%call footer() %>