%@ 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, "") %>
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%> |