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