%@ Language=VBScript %> <% '************************************************************************************ 'Diary Search screen '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Quick Excavation Search",metatag,terms, "") 'when this page is called scrap any sql held in session Session("sql") = "" Session("nav") = "search" dim callsubject 'get the data to search if Request.querystring("subject") = "" then callsubject = "" else callsubject = Request.QueryString("subject") if callsubject <> "Samples" AND callsubject <> "X-Finds" AND callsubject <> "Skeleton" then callsubject = callsubject & " Sheet" end if %>
|