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