<% Dim oFile, oFso, sFileText Set oFso = Server.CreateObject("Scripting.FileSystemObject") if (oFso.FileExists(Server.MapPath("../pohjat/HEADER.HTM")) = true) then Set oFile = oFso.OpenTextFile(Server.MapPath("../pohjat/HEADER.HTM"), 1) sFileText = oFile.readAll oFile.close set oFile = Nothing sFileText = Replace(sFileText, "", "", 1, -1) sFileText = Replace(sFileText, "", "Sulje haku", 1, -1) select case (sApp) case "5" 'perusaski sFileText = Replace(sFileText, "", "

Haku
Asiakirjat

", 1, -1) case "4" 'vhp sFileText = Replace(sFileText, "", "

Haku
Vhpäätökset

", 1, -1) case else 'kokous sFileText = Replace(sFileText, "", "

Haku
Kokousasiat

", 1, -1) end select response.write sFileText end if set oFso = Nothing %>
  Hakuehdot  
<% select case (sApp) case "5" 'perusaski response.write "Kansio" case "4" 'vhp response.write "Viranhaltija" case else 'kokous response.write "Toimielin" end select %>
<% select case (sApp) case "5" 'perusaski response.write "Laatimispvm" case "4" 'vhp response.write "Laatimispvm" case else 'kokous response.write "Kokouspvm" end select %>
 Uudemmat
 Vanhemmat
<% select case (sApp) case "5" 'perusaski response.write "Asiakirjan teksti" case "4" 'vhp response.write "Viranhaltijap. teksti" case else 'kokous response.write "Kokousasian teksti" end select %>
 Otsikosta
 Tekstistä
Järjestys
 Pvm:n mukaan
 Otsikon mukaan
Sivukoko